[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 PowerAssistant
11  
12 REM 设置命令行颜色.
13 REM 前景色(0＝黑,1＝蓝,2＝绿,3＝浅绿,4＝红,5＝紫,6＝黄,7=白,8=灰,9=淡蓝).
14 REM 背景色(A＝淡绿,B=淡浅绿,C=淡红,D=淡紫,E=淡黄,F=亮白).
15 COLOR 0A
16  
17 REM 调用倒计时脚本.
18 CSCRIPT Natalia.vbs //NOLOGO
19  
20 PAUSE

 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 IsInputLegal
10 IsInputLegal = True
11 If ObjHour < 0 Or ObjHour > 23 Then
12     IsInputLegal = False
13 End If
14 If ObjMinute < 0 Or ObjMinute > 59 Then
15     IsInputLegal = False
16 End If
17 If ObjSecond < 0 Or ObjSecond > 59 Then
18     IsInputLegal = False
19 End If
20 If IsInputLegal = False Then
21     WScript.Echo "输入非法 时区间：[0-23] 分区间：[0,59] 秒区间：[0,59]"
22     WScript.Quit
23 End If
24  
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 IsTimeOut
35 IsTimeOut = False
36  
37 ‘时间到则终止循环
38 Do Until IsTimeOut = True
39      
40     CurHour = Hour(Now)
41     CurMinute = Minute(Now)
42     CurSecond = Second(Now)
43      
44     CurTime = "当前时间：" & CurHour & "时 " & CurMinute & "分 " & CurSecond & "秒"
45     WScript.Echo ObjTime & " | " & CurTime
46      
47     If (CurHour = objHour And CurMinute = objMinute And CurSecond = objSecond) Or _
48         (Hour(Now) = objHour And Minute(Now) = objMinute And Second(Now) = objSecond+1) Then
49         IsTimeOut = True
50     End If
51      
52     WScript.Sleep(1000)
53      
54 Loop
55  
56 WScript.CreateObject("wscript.shell").Run "shutdown -s -t 300", 0
57 WScript.Echo vbCrlf
58 WScript.Echo "收拾收拾准备睡觉啦！5分钟后我会把你的电脑关掉哦~~~"
59 WScript.Echo "在控制台输入命令 shutdown -a 可以取消关机计划"
60 WScript.Echo vbCrlf