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