自己寫的一個(gè)定時(shí)關(guān)機(jī)或重啟的vbs腳本

更新時(shí)間：2008年06月04日 08:47:11 作者：

'以下代碼是定時(shí)關(guān)機(jī)或重啟的腳本，在windows 2000下通過

dim ActionID
ActionID = 1    '0注銷，1關(guān)機(jī)，2重啟,
ActionTime = "2006-1-4 13:42:30"    '關(guān)機(jī)或重啟時(shí)間

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
    '使用時(shí)，請把下行的注釋符去掉
    'objShell.sendKeys("{ENTER}")
end function

While true
    if DateDiff("s", Now, ActionTime) < 0 then
        ShutDown()
    end if
    WScript.Sleep(5*1000)
wend

'將上面代碼存為vbs文件，如：shutdown.vbs，然后雙擊或在文件上點(diǎn)右鍵選擇以命令提示打開,
'如果到了你設(shè)置重啟的時(shí)候，系統(tǒng)會(huì)出現(xiàn)關(guān)機(jī)的對話框。
'直接下面代碼程序會(huì)出現(xiàn)關(guān)機(jī)的對話框，最后的回車注釋掉了，正常使用時(shí)，請去掉注釋符。

您可能感興趣的文章:

相關(guān)文章

VBS教程：函數(shù)-Array 函數(shù)
VBS教程：函數(shù)-Array 函數(shù)...
2006-11-11
VBS教程：屬性-TotalSize 屬性
VBS教程：屬性-TotalSize 屬性...
2006-11-11
vbs-toolkit VBSEdit 提供免費(fèi)的COM組件
VBSCRIPT 語法簡單強(qiáng)大但是功能上明顯不足需要第三方的控制 e.g. COM 組件來擴(kuò)展其功能. VBSEDIT 安裝完之后就可以在安裝目錄下發(fā)現(xiàn) 免費(fèi)提供的 COM 組件 vbs toolkit
2018-06-06
VBS利用SendKeys輸入中文字符的方法
Author:Trajon.BWL今天在網(wǎng)上隨便閑逛，逛到一個(gè)帖子，這位迷茫的朋友想知道該怎么使用SendKeys的vbs方法來輸入中文字符
2008-08-08
VBS教程：VBscript屬性-Value 屬性
VBS教程：VBscript屬性-Value 屬性...
2006-11-11
VBS教程：方法-WriteBlankLines 方法
VBS教程：方法-WriteBlankLines 方法...
2006-11-11
使用 Iisext.vbs 列出Web服務(wù)擴(kuò)展的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠(yuǎn)程計(jì)算機(jī)上列出 Web 服務(wù)擴(kuò)展,需要的朋友可以參考下
2014-07-07
vbs腳本加密幾個(gè)小細(xì)節(jié)小結(jié)下
加密的vbs腳本拖到這個(gè)腳本上就行了。網(wǎng)上有位朋友問我這個(gè)問題，我由于今天才上email看了下文件，發(fā)現(xiàn)下面的問題，說實(shí)話對于他要問的我和你清楚，我不太會(huì)寫呢，不是出于技術(shù)問題，是出于已經(jīng)沒了這份愛好。出于對朋友學(xué)習(xí)的理解，我給解決了幾個(gè)問題，下面總結(jié)下。并給出正確的代碼。
2008-01-01
VBS取QQ或TM自動(dòng)登錄代碼并防止關(guān)閉的腳本
取TM自動(dòng)登錄代碼并防止關(guān)閉(自動(dòng)登錄)
2008-06-06
VBScript開發(fā)自動(dòng)化測試腳本的方法分析
很多人都覺得微軟的VBScript功能比較弱，如果從開發(fā)自動(dòng)化測試的角度來講，更是不可能了。從我對VBScript腳本的了解來看，對一個(gè)腳本是否可以做自動(dòng)化測試需要這個(gè)測試人員具備兩方面的知識(shí)，第一個(gè)，就是對VBScript腳本開發(fā)語言精通，要了解VBScript的核心技術(shù)如何更廣泛的應(yīng)用；第二個(gè)，就是要有自動(dòng)化的測試思想，這個(gè)一定得是做過測試工作的能夠了解的多一些。
2008-03-03