隐藏快捷方式属性中的目标

又下了一天的雨，南宁下起雨来真是没完没了。

仍然宅了一天，明天早上去钦州找我老姐。

没啥可写的，把昨天晚上预言家晚报写的隐藏快捷方式属性中的目标的脚本发一下。

'作者: 预言家晚报
'日期: 2012/1/13
'描述: 隐藏快捷方式属性中的目标
'原理: http://hi.baidu.com/gejieboss/blog/item/e3c1630f4092a5d97acbe13d.html
For i=0 To WScript.Arguments.Count-1
    strP=WScript.Arguments(i)
Next 
Set ado = CreateObject("ADODB.Stream")
ado.Type = 1
ado.Mode=3
ado.Open 
ado.LoadFromFile strP
str=ado.Read
ado.Close 

Set xml = CreateObject("Microsoft.XMLDOM")
Set cad = xml.createElement("pic")
cad.dataType = "bin.hex"
cad.nodeTypedValue = str

t=Left(cad.text,41) & "11" & Right(cad.text,Len(cad.text)-43)
cad.nodeTypedValue=t
xml.loadXML "<?xml version=""1.0""?>"
ado.open
ado.Write cad.nodeTypedValue
ado.SaveToFile strp,2
ado.Close 

MsgBox "隐藏成功",64,"预言家晚报制作"

随机文章:

1. VB6拾遗：序
2. VBS中的左移位&右移位运算
3. VBS调用WMI搜索文件
4. 批处理技术内幕：随机数%RANDOM%
5. 价值50大洋的VBS脚本

这篇文章发布于 2012年01月14日，星期六，21:47，归类于 操作系统。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。