vbs實現(xiàn)的定時關(guān)機、重啟的腳本和程序
更新時間：2008年06月18日 12:13:20 作者：
用vbs實現(xiàn)的定時關(guān)機重啟的腳本，沒想到haiwa2005年就寫了這個東西，原理就是調(diào)用了shutdown和vbs的延時功能
將下面代碼存為vbs文件，如：shutdown.vbs，然后雙擊或在文件上點右
鍵選擇以命令提示打開,如果到了你設(shè)置重啟的時候，系統(tǒng)會出現(xiàn)關(guān)機的對話
框。
直接下面代碼程序會出現(xiàn)關(guān)機的對話框，最后的回車注釋掉了，正常使用
時，請去掉注釋符。
以下代碼在window 2000 下通過。
'定時關(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
鍵選擇以命令提示打開,如果到了你設(shè)置重啟的時候，系統(tǒng)會出現(xiàn)關(guān)機的對話
框。
直接下面代碼程序會出現(xiàn)關(guān)機的對話框，最后的回車注釋掉了，正常使用
時，請去掉注釋符。
以下代碼在window 2000 下通過。
復(fù)制代碼 代碼如下:
'定時關(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
相關(guān)文章
使用腳本調(diào)用系統(tǒng)的關(guān)機對話框?qū)崿F(xiàn)代碼
以前有介紹如何使用命令行調(diào)用系統(tǒng)的關(guān)機對話框rundll32.exe shell32.dll #60,但是，上述方法會存在一問題，XP下無法正常使用該方法進行關(guān)機2012-05-05
用于修復(fù)XP中最小化程序 在任務(wù)欄顯示圖標(biāo)的vbs腳本
本腳本用于修復(fù)Windows XP中當(dāng)最小化程序時，無法在任務(wù)欄顯示圖標(biāo)的問題2009-05-05
tel.xls.vbs xls專殺工具...2007-06-06
利用正則判別素數(shù)，來源于網(wǎng)絡(luò)，神人,喜歡vbs的朋友可以參考下2013-07-07
抖音vbs表白代碼大全 抖音vbscript表白代碼使用方法
抖音vbs表白代碼大全分享，最近很多小伙伴都在抖音上看到了一個vbs表白代碼這個玩法，感覺非常的有趣。不過不少玩家還不知道怎么弄的，下面就來一起看下制作方法吧2018-07-07
用vbs實現(xiàn)解除注冊表CMD、Regedit、Taskmgr限制的腳本代碼
vbs解除CMD、Regedit、Taskmgr限制的代碼2008-06-06
用VBS實現(xiàn)的發(fā)送帶Cookie的HTTP請求的代碼
在昨天的《使用正確版本的XMLHTTP》中賣了個關(guān)子，ServerXMLHTTP的功能比XMLHTTP強大，你現(xiàn)在大概已經(jīng)猜到了吧。沒錯，用ServerXMLHTTP可以在HTTP請求頭中加入Cookie，而XMLHTTP不可以2013-01-01
VBS教程：函數(shù)-FormatNumber 函數(shù)
VBS教程：函數(shù)-FormatNumber 函數(shù)...2006-11-11
RCLS.vbs使用幫助...2007-02-02
vbscript 調(diào)用WebService實現(xiàn)代碼
vbscript 調(diào)用WebService實現(xiàn)代碼，需要的朋友可以參考下。2009-11-11