vbscript中可不可绕过msgbox? - 中国DOS联盟论坛

为了管理方便写了一个自动关机的脚本:
set ws=Wscript.CreateObject("Wscript.shell")
str="系统将在一分钟后自动关机,请大家做好保存工作~"
dim value
ws.run ("cmd.exe /c schtasks /create /tn 关机 /tr c:\windows\shutdown.vbs /sc DAILY /st 23:10:00 /ru System"),0
value =msgbox(str,vbinformation+vbsystemmodel,"注意：")
ws.appactivate "注意："
Wscript.sleep 100
Ws.sendkeys (vbcr)
wscript.sleep 60000
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next
但不点确点,脚本不能绕过msgbox实现关机啊,在VBSCRIPT里怎么绕过这个提示框?让后面的也并发执行?

第1楼　snowhill	发表于 2009-05-14 22:45
新手上路　发帖 6　积分 11
vbscript中可不可绕过msgbox? 为了管理方便写了一个自动关机的脚本: set ws=Wscript.CreateObject("Wscript.shell") str="系统将在一分钟后自动关机,请大家做好保存工作~" dim value ws.run ("cmd.exe /c schtasks /create /tn 关机 /tr c:\windows\shutdown.vbs /sc DAILY /st 23:10:00 /ru System"),0 value =msgbox(str,vbinformation+vbsystemmodel,"注意：") ws.appactivate "注意：" Wscript.sleep 100 Ws.sendkeys (vbcr) wscript.sleep 60000 Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown(1) Next 但不点确点,脚本不能绕过msgbox实现关机啊,在VBSCRIPT里怎么绕过这个提示框?让后面的也并发执行?

第2楼　newxso	发表于 2009-05-14 23:32
初级用户　发帖 101　积分 73　来自 GZ
把5~9行换成以下的一行即可： ws.Popup str,60,"注意",VbExclamation

第3楼　ljl88900	发表于 2009-05-14 23:36
新手上路　发帖 6　积分 11
顶一下。

第4楼　snowhill	发表于 2009-05-14 23:49
新手上路　发帖 6　积分 11
,谢谢..用这个就跳过了~~