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

标签: , , , , ,

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

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

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

'作者: 预言家晚报
'日期: 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. JavaScript调用VBS中的InputBox和MsgBox函数
  2. 实现简单的VBS加密
  3. 用JavaScript实现PHP的urlencode函数
  4. eXeScope注册码算法
  5. MSDN 6.0 简体中文完全版下载

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

  1. 艳文说道:

    都回去过年了。。。

留下回复