複製程式
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 即可取消關機程序