如何在開機後自動執行”自動關機”程式？

問題來源：

http://tw.knowledge.yahoo.com/question/question?qid=1509091310888

問題內容：

如何在開機後自動執行"自動關機"程式?
我想要在每次開機後一段時間讓電腦自動執行"自動關機"程式,而我又不想下載網路上所提供的自動關機軟體,只想在"開始"狀態下的"執行"寫入執行指令, 因為電腦平時不是本人在用的而這樣為的是不要讓使用者一直沉迷電腦遊戲,所以各位大大是否能為我解答這個困難.......非常感激

補充：
我若是要設定每天固定開機一段時間就執行關機動作的話輸入指令要如何填寫呢?????

補充：
我若是要設定每天固定開機一段時間就執行關機動作的話輸入指令要如何填寫呢?????而我能不能在"開始"狀態下的"執行"寫入一次指令就好了,因為我不 想要每次開機都要重新輸入一次,畢竟開機的人並不完全都是我,我總不能在他前面輸入指令給他看吧,這樣不是破功了嗎.....因為我最終的目的是要再他不 知道的情況下牽制他沉迷遊戲當中,希望有厲害的大大能幫我這個忙.....真的非常感激

問題答案：

把以下範例存成 xxxx.vbs，然後放到啟動的目錄下即可。
如：
全部的使用者都會執行：「C:\Documents and Settings\All Users\「開始」功能表\程式集\啟動」
或
特定的使用者才會執行：「C:\Documents and Settings\【使用者名字】\「開始」功能表\程式集\啟動」


不會有任何跡象的版本：

Option Explicit Const WindowStyle_Hidden = 0 Dim objShell Dim strShutdown strShutdown = "shutdown -s -t 0 -f" WScript.Sleep (2 * 60 * 60 * 1000) '休息兩小時，單位是毫秒 set objShell = CreateObject("WScript.Shell") objShell.Run strShutdown, WindowStyle_Hidden Wscript.Quit

假裝被駭客入侵的版本：

Option Explicit Const WindowStyle_Hidden = 0 Const WindowStyle_Activates = 1 Dim objShell Dim strShutdown Dim sCmd Dim sTitle Dim i, char sTitle = "shutdown" sCmd = "cmd /k title " & sTitle strShutdown = "shutdown -s -t 6 -f" WScript.Sleep (2 * 60 * 60 * 1000) '休息兩小時，單位是毫秒 set objShell = CreateObject("WScript.Shell") objShell.Run strShutdown, WindowStyle_Hidden '先執行 6 秒後關機 objShell.Run sCmd, WindowStyle_Activates '再模擬有人鍵入要關機的指令 strShutdown = strShutdown & vbNewLine & "exit" & vbNewLine For i = 1 to Len(strShutdown) char = Mid(strShutdown, i, 1) WScript.Sleep(25) objShell.AppActivate sTitle objShell.SendKeys char WScript.Sleep(25) Next Wscript.Quit