中国DOS联盟

'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