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

标签: , , , , ,

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

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

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

'作者: 预言家晚报
'日期: 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. 中兴F460 V3.0版本获取超级用户密码
  2. JavaScript 类型的包装对象(Typed Wrappers)
  3. VBS中字符串连接的效率问题
  4. OpenWrt搭建KMS服务器激活Windows和Office
  5. VBS Scripting.Dictionary 排序

一条评论 发表在“隐藏快捷方式属性中的目标”上

  1. 艳文说道:

    都回去过年了。。。

留下回复