婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 自己寫的一個定時關(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)民參考！
    • 推薦文章
    主站蜘蛛池模板： 望奎县| 重庆市| 临清市| 万山特区| 呼图壁县| 西平县| 大新县| 岗巴县| 临猗县| 武义县| 霍山县| 神池县| 巴南区| 苍南县| 英吉沙县| 澎湖县| 九台市| 图木舒克市| 九台市| 安宁市| 万源市| 镇江市| 马山县| 宣恩县| 金沙县| 安仁县| 丽江市| 松潘县| 云安县| 望城县| 台湾省| 修武县| 依兰县| 眉山市| 同心县| 临汾市| 抚宁县| 农安县| 隆昌县| 宜宾市| 新竹市|