[VBS指令碼]定時提示並關閉電腦

標籤：

一、Natalia.bat

雙擊這個檔案可以運行Natalia

控制台在開啟後會變成最小化，標題為PowerAssistant，黑色背景淡綠色文字

運行指令碼Natalia.vbs

 

 1 @ECHO OFF  2   3 REM 指令碼最小化運行. 4 IF "%1" == "m" GOTO BEGIN  5 MSHTA VBScript:CreateObject("WSCript.Shell").Run("%~fs0 m",6)(Window.Close)&&EXIT  6 :BEGIN 7   8 REM 注釋最後一定要跟一個解譯器可識別半形字元，否則指令碼會運行錯誤. 9 REM 設定命令列標題.10 TITLE PowerAssistant11  12 REM 設定命令列顏色.13 REM 前景色彩(0＝黑,1＝藍,2＝綠,3＝淺綠,4＝紅,5＝紫,6＝黃,7=白,8=灰,9=淡藍).14 REM 背景色(A＝淡綠,B=淡淺綠,C=淡紅,D=淡紫,E=淡黃,F=亮白).15 COLOR 0A16  17 REM 調用倒計時指令碼.18 CSCRIPT Natalia.vbs //NOLOGO19  20 PAUSE

 

二、Natalia.vbs

 

在最上面的“定義常量部分”，可以設定預計關機的時間

 

 1 Option Explicit 2   3 ‘定義常量 4 Const ObjHour   = 23   ‘時 0-23 5 Const ObjMinute = 30   ‘分 0-59 6 Const ObjSecond = 00   ‘秒 0-59 7   8 ‘檢查輸入是否合法 9 Dim IsInputLegal10 IsInputLegal = True11 If ObjHour < 0 Or ObjHour > 23 Then12     IsInputLegal = False13 End If14 If ObjMinute < 0 Or ObjMinute > 59 Then15     IsInputLegal = False16 End If17 If ObjSecond < 0 Or ObjSecond > 59 Then18     IsInputLegal = False19 End If20 If IsInputLegal = False Then21     WScript.Echo "輸入非法 時區間：[0-23] 分區間：[0,59] 秒區間：[0,59]"22     WScript.Quit23 End If24  25 ‘定義變數26 Dim ObjTime    ‘目標時間27 Dim CurTime    ‘目前時間28 Dim CurHour    ‘當前時29 Dim CurMinute  ‘當前分30 Dim CurSecond  ‘當前秒31  32 ObjTime = "目標時間：" & ObjHour & "時 " & ObjMinute & "分 " & ObjSecond & "秒"33  34 Dim IsTimeOut35 IsTimeOut = False36  37 ‘時間到則終止迴圈38 Do Until IsTimeOut = True39      40     CurHour = Hour(Now)41     CurMinute = Minute(Now)42     CurSecond = Second(Now)43      44     CurTime = "目前時間：" & CurHour & "時 " & CurMinute & "分 " & CurSecond & "秒"45     WScript.Echo ObjTime & " | " & CurTime46      47     If (CurHour = objHour And CurMinute = objMinute And CurSecond = objSecond) Or _48         (Hour(Now) = objHour And Minute(Now) = objMinute And Second(Now) = objSecond+1) Then49         IsTimeOut = True50     End If51      52     WScript.Sleep(1000)53      54 Loop55  56 WScript.CreateObject("wscript.shell").Run "shutdown -s -t 300", 057 WScript.Echo vbCrlf58 WScript.Echo "收拾收拾準備睡覺啦！5分鐘後我會把你的電腦關掉哦~~~"59 WScript.Echo "在控制台輸入命令 shutdown -a 可以取消關機計劃"60 WScript.Echo vbCrlf

 

三、運行效果

 

 

[VBS指令碼]定時提示並關閉電腦