标题: vbscript中可不可绕过msgbox? [打印本页]

---

作者: snowhill     时间: 2009-5-14 22:45    标题: 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里怎么绕过这个提示框?让后面的也并发执行?

---

作者: newxso     时间: 2009-5-14 23:32
把5~9行换成以下的一行即可：

ws.Popup str,60,"注意",VbExclamation

---

作者: ljl88900     时间: 2009-5-14 23:36
顶一下。

---

作者: snowhill     时间: 2009-5-14 23:49
,谢谢..用这个就跳过了~~