vb自动关机带提示符和超时执行

vb自动关机带提示符和超时执行

Dim wsh , BtnCode
Set wsh = Wscript.CreateObject("Wscript.Shell") 
BtnCode = wsh.Popup("close PC?", 120, "close", 4 + 32)
Select Case BtnCode
case 6 wsh.run "shutdown -s -t 10"
case 7 WScript.Echo "cancel"
case -1 wsh.run "shutdown -s -t 10"
End Select

120代表超时时间，单位秒

Popup说明

https://www.vbsedit.com/html/f482c739-3cf9-4139-a6af-3bde299b8009.asp

 

值 说明 
0 显示“确定”按钮。 
1 显示“确定”和“取消”按钮。 
2 显示“放弃”、“重试”和“忽略”按钮。 
3 显示“是”、“否”和“取消”按钮。 
4 显示“是”和“否”按钮。 
5 显示“重试”和“取消”按钮。

图标类型

值 说明 
16 显示“停止标记”图标。 
32 显示“问号”图标。 
48 显示“感叹号”图标。 
64 显示“信息标记”图标。

也可以考虑用megBox 但是不带超时

 

 

参考

https://www.cnblogs.com/boltkiller/articles/4791671.html