中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbscript中可不可绕过msgbox?

snowhill
新手上路

积分 11
发帖 6
注册 2008-2-18
状态离线

『楼主』: 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里怎么绕过这个提示框?让后面的也并发执行?

2009-5-14 22:45