濮阳杆衣贸易有限公司

主頁 > 知識庫 > 自己寫的一個定時關(guān)機或重啟的vbs腳本

自己寫的一個定時關(guān)機或重啟的vbs腳本
熱門標(biāo)簽：外呼系統(tǒng)群 上海辦理400電話選號 機器人打電銷適用于美業(yè)嗎 外呼系統(tǒng)說話聲音小怎么辦 墨西哥地圖標(biāo)注app 智云億呼電話機器人 龍巖400電話申請 企業(yè)400電話辦理價錢低 天津智能外呼系統(tǒng)排名

dim ActionID
ActionID = 1    '0注銷，1關(guān)機，2重啟,
ActionTime = "2006-1-4 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文件，如：shutdown.vbs，然后雙擊或在文件上點右鍵選擇以命令提示打開,
'如果到了你設(shè)置重啟的時候，系統(tǒng)會出現(xiàn)關(guān)機的對話框。
'直接下面代碼程序會出現(xiàn)關(guān)機的對話框，最后的回車注釋掉了，正常使用時，請去掉注釋符。  

您可能感興趣的文章:
  • 可以定時自動關(guān)機的vbs腳本
  • vbs實現(xiàn)的定時關(guān)機、重啟的腳本和程序
  • vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼
  • VBS 斷網(wǎng)后自動關(guān)機30秒后
  • Crack8 VBS整人腳本 你不說你愛我 就關(guān)機
  • VBS中獲取系統(tǒng)本次及上次開關(guān)機時間的代碼(WinXP/win2003/Win7兼容版)
  • vb下的惡搞關(guān)機程序
  • VB關(guān)機惡搞小程序

標(biāo)簽：麗水 承德 青島 黃山 鄂爾多斯 齊齊哈爾 阜新 錫林郭勒盟

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《自己寫的一個定時關(guān)機或重啟的vbs腳本》，本文關(guān)鍵詞  自己,寫的,一個,定時,關(guān)機,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《自己寫的一個定時關(guān)機或重啟的vbs腳本》相關(guān)的同類信息！
  • 本頁收集關(guān)于自己寫的一個定時關(guān)機或重啟的vbs腳本的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    汤阴县| 凉城县| 玛纳斯县| 鱼台县| 景洪市| 福海县| 剑阁县| 新田县| 万山特区| 广饶县| 嘉义市| 南安市| 镇原县| 嵊州市| 兴文县| 伊吾县| 调兵山市| 靖安县| 通江县| 庆阳市| 阳高县| 梅河口市| 晋宁县| 吉木萨尔县| 乌兰察布市| 原阳县| 曲周县| 宁蒗| 布尔津县| 手游| 泸西县| 临沭县| 庄河市| 敖汉旗| 栾川县| 高平市| 乐业县| 宣武区| 军事| 绍兴市| 宣城市|