『第
5 楼』:
'******************
'* intWindowStyle 控制 CMD 窗口显示状态
'* （详细说明参键 VBS Run命令说明）
'* 0 隐藏一个窗口并激活另一个窗口。 1(默认值) 激活并显示窗口。
'*
'* isWait 指示是否等待 CMD 命令执行完毕再继续执行 VBS 后续代码
'*
'******************
Function RunBat(BatString, intWindowStyle, isWait)
Set objShell=CreateObject("WScript.Shell")
Dim exeCmd
exeCmd="cmd /c "&BatString
objShell.Run exeCmd, intWindowStyle, isWait
End Function
Dim n, bat1, bat2
'由于Run命令中不能包含换行符号，因此只能勉强用 & 将所有CMD命令连成一行
'如果 & 会给你的批处理带来逻辑错误请勿使用
n=Chr(38)
bat1= "@echo off" & n & _
"title CMD窗口" & n & _
"echo 算你小子识相！" & n & _
"pause>nul"
bat2= "@echo off" & n & _
"title CMD窗口" & n & _
"color 17" & n & _
"echo 草泥马" & n & _
"pause>nul"
If MsgBox("我是不是很牛逼？", 36, "VBS窗口")=6 Then
RunBat bat1, 1, True
Else
RunBat bat2, 1, False
End If
MsgBox "请注意我出来的时候BAT是否执行完毕。", 4112, "isWait 的作用"
|
