復制代碼 代碼如下:
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=runnerchr(strs(i))
Next
objf.Close
Set objf=fso.OpenTextFile(fname,2)
objf.Write runner
MsgBox "解密成功",64,"提示"
End if
Next
您可能感興趣的文章:- 利用相對定位及偏移量做精美輸入界面
- 獲取任意Html元素與body之間的偏移距離 offsetTop、offsetLeft （For:IE5＋ FF1 ）[
- JQuery獲取元素文檔大小、偏移和位置和滾動條位置的方法集合
- javascript獲取元素偏移量的方法有哪些
- 取得元素的左和上偏移量的方法
- js 獲取元素在頁面上的偏移量的方法匯總
