复制程式
Option Explicit
local_new_ask
Function local_new_ask
Dim objShell
On Error Resume Next
If Msgbox("您的使用正确?", vbQuestion + vbYesNo, "VBS询问系统") = vbYes Then
Msgbox "感谢您的使用", , "VBS询问系统"
Else
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -s -t 10"
End If
End Function
其实 "感谢您的使用" 那边的图示,你也可以加入参数 vbInformation 会比较好看
Shell 的用法参考自
http://www.computerperformanc.../ezine45.htmshutdown 的用法请自行更改,如果要加上评论(Comment),可以参考以下用法 :
shutdown -s -t 10 -c "Testing"
测试 shutdown 的时候,时间请调 120 秒以上
如需取消 倒数关机,输入指令 (在 CMD 中输入)
shutdown -a 即可取消关机程序