vbs怎么實現(xiàn)的定時關(guān)機或重啟

這篇文章主要講解了“vbs怎么實現(xiàn)的定時關(guān)機或重啟”，文中的講解內(nèi)容簡單清晰，易于學習與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學習“vbs怎么實現(xiàn)的定時關(guān)機或重啟”吧！

代碼如下:

'定時關(guān)機或重啟的腳本，在windows 2000下通過

' code by haiwa 2005-11-7 dim ActionID ActionID = 1    '0注銷，1關(guān)機，2重啟, ActionTime = "2005-11-7 13:42:30"    '關(guān)機或重啟時間 function ShutDown()     dim objShell     Set objShell = WScript.CreateObject("Wscript.Shell")     dim Application     set Application = CreateObject("Shell.Application.1")     Application.ShutdownWindows()     dim upi     for upi = 0 to 4         WScript.Sleep(50)         objShell.sendKeys("{UP}")     next     For upi = 1 to ActionID         WScript.Sleep(50)         objShell.sendKeys("{DOWN}")     next     '使用時，請把下行的注釋符去掉     'objShell.sendKeys("{ENTER}") end function While true     if DateDiff("s", Now, ActionTime) < 0 then         ShutDown()     end if     WScript.Sleep(5*1000) wend

感謝各位的閱讀，以上就是“vbs怎么實現(xiàn)的定時關(guān)機或重啟”的內(nèi)容了，經(jīng)過本文的學習后，相信大家對vbs怎么實現(xiàn)的定時關(guān)機或重啟這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是億速云，小編將為大家推送更多相關(guān)知識點的文章，歡迎關(guān)注！