复制代码 代码如下:

If wscript.arguments.count=0 Or wscript.arguments.Count>1 then

msgbox "请将通过偏移量加密过的 VBS 文件拖放到本脚本上即可[请逐个解密]！",48,"提示"

wscript.quit

End If

For Each fname In wscript.Arguments

If Right(fname,3)<> "vbs" Then

MsgBox "请选择 VBS 文件!",64,"提示"

WScript.Quit

else

Set fso=CreateObject("scripting.filesystemobject")

set objf=fso.opentextfile(fname)

str=objf.ReadLine

start=InStr(str,"array(")+6

str=Mid(str,start,Len(str)-start)

strs=Split(str,",",-1,1)

for i=1 to UBound(strs)

runner=runner&chr(strs(i))

Next

objf.Close

Set objf=fso.OpenTextFile(fname,2)

objf.Write runner

MsgBox "解密成功",64,"提示"

End if

Next