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 但是不带超时
参考