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

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

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

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

'作者: 预言家晚报
'日期: 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. NDS模拟器NO$GBA
2. JavaScript里的sprintf函数
3. MySQL整数类型TINYINT SMALLINT MEDIUMINT INT BIGINT
4. Copy Source As Html
5. VBS转EXE工具：Exe From Vbs

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