可以將Bat轉(zhuǎn)換位VBS文件的VBS腳本

更新時間：2007年07月30日 19:44:30 作者：

下面代碼稍有修改，原結(jié)構(gòu)是腳本與釋放的bat同步執(zhí)行并等待bat執(zhí)行完畢后刪除bat，本意是不遺留臨時文件。后來想想通用性不好，比如釋放執(zhí)行的bat文件是個常駐進程的監(jiān)視類型那VBS也會無休止的等待而無法退出，所以還是改為異步執(zhí)行，腳本調(diào)用bat后自行退出。考慮到還原原文件的完整性末尾添加自刪除也打消了想法。壓縮包暫未更新。

復制代碼代碼如下:

'bat2vbs.vbs by baomaboy 
Dim WshSHell,FSO 
On Error Resume Next 
Set WshSHell = WScript.CreateObject("WScript.Shell") 
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set WinVer = WshSHell.Environment("Process") 
Set Args = WScript.Arguments 
CloseTime = 5 
FileName = WScript.ScriptName 
FileFullName = WScript.ScriptFullName 
FilePath = FSO.GetParentFolderName(FileFullName) 
InsPath = FSO.GetSpecialFolder(1) 
InsFullName = FSO.BuildPath(InsPath ,FileName) 
LnkPathNT = WshSHell.SpecialFolders(2) 
LnkPath9X = WshSHell.SpecialFolders(14) 
LnkPathAll = WshSHell.SpecialFolders("SendTo") 
OtherFileName="Manage_New.txt" 
OtherFilePath=FSO.GetSpecialFolder(2) 
TemFileName="無標題" 
TemFilePath=FSO.GetSpecialFolder(2) 
Copyright="玲瓏科技" 
QQ="QQ:25926183" 
Email="Email：fty1995@163.com" 
InsTitle="Bat2Vbs by baomaboy" 
InsAnswer="Bat2Vbs by baomaboy" 
RegPath1="HKEY_CLASSES_ROOT\batfile\shell\BatToVbs\" 
RegValue1="BAT轉(zhuǎn)VBS腳本文件" 
RegForm1="REG_SZ" 
RegPath2="HKEY_CLASSES_ROOT\batfile\shell\BatToVbs\command\" 
RegValue2="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & chr(34) & "%L" & chr(34) 
RegForm2="REG_SZ" 
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,RegForm2 
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 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)+ _ 
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _ 
, CloseTime, "卸載成功 - "+ InsTitle +" - "+ Copyright, 0 + 64 
end if 
        If intAnswer = vbCancel Then 
end if 
ELSE 
if Args.count=0 then wscript.quit 
Set ReadFile = FSO.OpenTextFile(Args(0), 1) 
ReadAllText = ReadFile.ReadAll 
ReadFile.Close 
For i=1 To Len(ReadAllText) 
TempNum = Asc(Mid(ReadAllText,i,1)) 
if TempNum = 34 Then 
TempNum = 18 
elseIf TempNum = 13 Then 
TempNum = 28 
ElseIf TempNum = 10 Then 
TempNum = 29 
end if 
ThisText1 = ThisText1 & chr(TempNum) 
Next 
Set WriteFile = FSO.OpenTextFile(Args(0)&".VBS",2,True) 
WriteFile.WriteLine("On Error Resume Next:Dim WshSHell,FSO,Bat2Vbs:Set WshSHell = WScript.CreateObject(""WScript.Shell""):Set FSO = CreateObject(""Scripting.FileSystemObject""):Bat2Vbs="""& ThisText1 &"""") 
WriteFile.WriteLine("Execute(""For i=1 To Len(Bat2Vbs)""&vbCrLf&""TempNum = Asc(Mid(Bat2Vbs,i,1))""&vbCrLf&""If TempNum = 28 Then""&vbCrLf&""TempNum = 13""&vbCrLf&""ElseIf TempNum = 29 Then""&vbCrLf&""TempNum = 10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""ThisText2 = ThisText2 & chr(TempNum)""&vbCrLf&""Next"")") 
WriteFile.WriteLine("Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.bat""),2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run ""%Comspec% /C ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.bat""),1,false") 
WriteFile.Close 
end if 
Set WshSHell = Nothing 
Set FSO = Nothing 
Set Args = Nothing 
WScript.Quit(0) 