VBS腳本加密/解密VBS腳本(簡易免殺版1.1)
2019-10-26 18:00:19
供稿：網友
Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Args = WScript.Arguments
Ver="1.1"
CloseTime = 5
FileName = WScript.ScriptName
FileFullName = WScript.ScriptFullName
FilePath = FSO.GetParentFolderName(FileFullName)
InsPath = FSO.GetSpecialFolder(1)
InsFullName = FSO.BuildPath(InsPath ,FileName)
Copyright="廢鐵"
QQ="QQ：415736"
Email="Email：415736@163.com"
InsTitle="加密/解密VBS腳本(簡易免殺版)"&Ver
InsAnswer="加密/解密VBS腳本(簡易免殺版)"&Ver
RegPath1="HKEY_CLASSES_ROOT/vbsfile/shell/EnCode_VBS/"
RegValue1="加密/解密VBS腳本"&Ver
RegForm1="REG_SZ"
RegPath2="HKEY_CLASSES_ROOT/vbsfile/shell/EnCode_VBS/command/"
RegValue2="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & chr(34) & "%L" & chr(34)
RegPath3="HKEY_CLASSES_ROOT/vbsfile/shell/EnCode_VBS/EnCode_Very"
RegValue3="0"
RegValue4="1"
IF FileFullName <> InsFullName then
intAnswer = MsgBox("【是】將“"+ InsAnswer +"”加入到右鍵菜單，"&Chr(10)&Chr(10)&"【否】將“
"+ InsAnswer +"”從右鍵菜單刪除。 ", vbQuestion + vbYesNoCancel, "安裝 - "+ InsTitle +" - "+
Copyright)
If intAnswer = vbYes Then
WshSHell.RegWrite RegPath1,RegValue1,RegForm1
WshSHell.RegWrite RegPath2,RegValue2,RegForm1
WshSHell.RegWrite RegPath3,RegValue4,RegForm1
FSO.GetFile(FileFullName).Copy(InsFullName)
WshSHell.popup _
"添加腳本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"添加注冊表項："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _
chr(10) & CloseTime & " 秒鐘后本窗口將自動關閉!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C) " + Copyright +" " & QQ &" " + Email _
, CloseTime, "安裝成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
end if
If intAnswer = vbNo Then
WshSHell.RegDelete RegPath3
WshSHell.RegDelete RegPath2
WshSHell.RegDelete RegPath1
FSO.DeleteFile InsFullName
WshSHell.popup _
"刪除腳本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"刪除注冊表項："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _
chr(10) & CloseTime & " 秒鐘后本窗口將自動關閉!" +chr(10)+chr(10)+ _
