可以将Bat转换位VBS文件的VBS脚本
导读：收集整理的这篇文章主要介绍了可以将Bat转换位VBS文件的VBS脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 下面代码稍有修改，原结构是脚本与释放的bat同步执行并等待bat执...
收集整理的这篇文章主要介绍了可以将Bat转换位VBS文件的VBS脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 下面代码稍有修改，原结构是脚本与释放的bat同步执行并等待bat执行完毕后删除bat，本意是不遗留临时文件。后来想想通用性不好，比如释放执行的bat文件是个常驻进程的监视类型那vbS也会无休止的等待而无法退出，所以还是改为异步执行，脚本调用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转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)
您可能感兴趣的文章:
- 用VBS来代替BAT或CMD文件进行命令
- vbs后台运行bat删除自身的代码
- 进程监控实现代码[vbs+bat]
- vbs 批量修改文件，bat 批处理文件调用执行vbs，并在cmd窗口打印返回值（vbs运行结果）
- VBS脚本和BAT批处理删除自身的方法
- EXE2BAT(EXE转BAT)的vbs脚本
- VBS和bat批处理逐行读取文件实例
- BAT批处理、VBScript批量安装字体脚本分享
- vbs与bat混编修改虚拟盘符的卷标
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 可以将Bat转换位VBS文件的VBS脚本
本文地址： https://pptw.com/jishu/609591.html