隐藏CMD批处理运行窗口+同时运行多个批处理HIDECMD.VBS - 中国DOS联盟论坛

另存为HIDECMD.VBS
'HIDECMD.VBS BY: fastslz http://bbs.cn-dos.net 2007-01-03 '隐藏批处理运行窗口本身就是风险代码，如果你很菜请离开此页！ Usage1 = "请将批处理文件Bat、Cmd拖放到此文件上" Usage2 = "命令语法１： HIDECMD.VBS ""D:\Test.bat""" Usage3 = "命令语法２： HIDECMD.VBS /M ""D:\Test1.bat"" ""D:\Test2.bat"" " Usage4 = "隐藏批处理运行窗口工具" Options = "/M" set objShell = CreateObject ("Wscript.Shell") set BatFile = WScript.Arguments if BatFile.Count = 0 Then MsgBox Usage1 &vbCrLf& Usage2 &vbCrLf& Usage3, 4096+vbInformation, Usage4 Wscript.Quit(0) end if if BatFile.Count > 1 Then ignoring = StrComp(BatFile(0), Options, vbTextCompare) if ignoring = 0 Then For I = 1 To BatFile.Count - 1 MultiBat = BatFile(I) Call RunBat(MultiBat) Next Wscript.Quit(0) else objShell.Popup "参数太多或语法错误！"&vbCrLf&"此提示框在5秒后自动退出 ",5, "程序意外终止" Wscript.Quit(0) end if end if MultiBat=BatFile(0) Call RunBat(MultiBat) Wscript.Quit(0) Function RunBat(MultiBat) BatTmp=split(MultiBat,"\") BatName=BatTmp(UBound(BatTmp)) ignoring = StrComp(MultiBat, BatName, vbTextCompare) if ignoring = 0 Then BatPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) else BatPath=Left(MultiBat,Len(MultiBat)-Len(BatName)) end if objShell.CurrentDirectory=BatPath objShell.Run ("%Comspec% /c "&Chr(34)&BatPath&BatName&Chr(34)),vbHide End Function

[ Last edited by fastslz on 2008-2-11 at 09:08 PM ]

第1楼　fastslz	发表于 2008-01-06 13:28
铂金会员　发帖 2,315　积分 5,493　来自上海
隐藏CMD批处理运行窗口+同时运行多个批处理HIDECMD.VBS 另存为HIDECMD.VBS 'HIDECMD.VBS BY: fastslz http://bbs.cn-dos.net 2007-01-03 '隐藏批处理运行窗口本身就是风险代码，如果你很菜请离开此页！ Usage1 = "请将批处理文件Bat、Cmd拖放到此文件上" Usage2 = "命令语法１： HIDECMD.VBS ""D:\Test.bat""" Usage3 = "命令语法２： HIDECMD.VBS /M ""D:\Test1.bat"" ""D:\Test2.bat"" " Usage4 = "隐藏批处理运行窗口工具" Options = "/M" set objShell = CreateObject ("Wscript.Shell") set BatFile = WScript.Arguments if BatFile.Count = 0 Then MsgBox Usage1 &vbCrLf& Usage2 &vbCrLf& Usage3, 4096+vbInformation, Usage4 Wscript.Quit(0) end if if BatFile.Count > 1 Then ignoring = StrComp(BatFile(0), Options, vbTextCompare) if ignoring = 0 Then For I = 1 To BatFile.Count - 1 MultiBat = BatFile(I) Call RunBat(MultiBat) Next Wscript.Quit(0) else objShell.Popup "参数太多或语法错误！"&vbCrLf&"此提示框在5秒后自动退出 ",5, "程序意外终止" Wscript.Quit(0) end if end if MultiBat=BatFile(0) Call RunBat(MultiBat) Wscript.Quit(0) Function RunBat(MultiBat) BatTmp=split(MultiBat,"\") BatName=BatTmp(UBound(BatTmp)) ignoring = StrComp(MultiBat, BatName, vbTextCompare) if ignoring = 0 Then BatPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) else BatPath=Left(MultiBat,Len(MultiBat)-Len(BatName)) end if objShell.CurrentDirectory=BatPath objShell.Run ("%Comspec% /c "&Chr(34)&BatPath&BatName&Chr(34)),vbHide End Function [ Last edited by fastslz on 2008-2-11 at 09:08 PM ]

第2楼　HAT	发表于 2008-01-06 14:55
版主　发帖 5,017　积分 9,023
学习 PS: 我的symantec没报警^_^

第3楼　fastslz	发表于 2008-01-06 15:25
铂金会员　发帖 2,315　积分 5,493　来自上海
symantec没报高风险那说明至少比cmdow.exe要强测试这个代码时还发现%Comspec% /c 一个BUG 运行%Comspec% /c "D:\1 1" D:\1 1.bat内容 @echo off echo %~f0 pause %~f0显示结果没有扩展名的，运行%Comspec% /c "D:\1"却能正确显示扩展名，所以大家尽量避免带空格的批处理文件名

第4楼　plp626	发表于 2008-01-08 18:29
银牌会员　发帖 1,020　积分 2,278
问楼主： HIDECMD.VBS在何处生成？

第5楼　fastslz	发表于 2008-01-08 19:06
铂金会员　发帖 2,315　积分 5,493　来自上海
另存为HIDECMD.VBS

第6楼　313885174	发表于 2008-01-08 19:38
中级用户　发帖 100　积分 206
看标题不错要是能解释所有的语句就更好了