下面代碼稍有修改，原結(jié)構(gòu)是腳本與釋放的bat同步執(zhí)行并等待bat執(zhí)行完畢后刪除bat，本意是不遺留臨時文件。后來想想通用性不好，比如釋放執(zhí)行的bat文件是個常駐進程的監(jiān)視類型那VBS也會無休止的等待而無法退出，所以還是改為異步執(zhí)行，腳本調(diào)用bat后自行退出。考慮到還原原文件的完整性末尾添加自刪除也打消了想法。壓縮包暫未更新。
復(fù)制代碼 代碼如下:
'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 " 秒鐘后本窗口將自動關(guān)閉!" +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 " 秒鐘后本窗口將自動關(guān)閉!" +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)
您可能感興趣的文章:- 用VBS來代替BAT或CMD文件進行命令
- vbs后臺運行bat刪除自身的代碼
- 進程監(jiān)控實現(xiàn)代碼[vbs+bat]
- vbs 批量修改文件，bat 批處理文件調(diào)用執(zhí)行vbs，并在cmd窗口打印返回值（vbs運行結(jié)果）
- VBS腳本和BAT批處理刪除自身的方法
- EXE2BAT(EXE轉(zhuǎn)BAT)的vbs腳本
- VBS和bat批處理逐行讀取文件實例
- BAT批處理、VBScript批量安裝字體腳本分享
- vbs與bat混編修改虛擬盤符的卷標
