Option Explicit
 
'定义常量，在这里设置关机时间
Const ObjHour   = 11   '时 0-23
Const ObjMinute = 45   '分 0-59
Const ObjSecond = 00   '秒 0-59
 
'检查输入是否合法
Dim IsInputLegal
IsInputLegal = True
If ObjHour < 0 Or ObjHour > 23 Then
    IsInputLegal = False
End If
If ObjMinute < 0 Or ObjMinute > 59 Then
    IsInputLegal = False
End If
If ObjSecond < 0 Or ObjSecond > 59 Then
    IsInputLegal = False
End If
If IsInputLegal = False Then
    WScript.Echo "输入非法 时区间：[0-23] 分区间：[0,59] 秒区间：[0,59]"
    WScript.Quit
End If
 
'定义变量
Dim ObjTime    '目标时间
Dim CurTime    '当前时间
Dim CurHour    '当前时
Dim CurMinute  '当前分
Dim CurSecond  '当前秒
 
ObjTime = "指定关机时间：" & ObjHour & "时 " & ObjMinute & "分 " & ObjSecond & "秒"
 
Dim IsTimeOut
IsTimeOut = False
 
'时间到则终止循环
Do Until IsTimeOut = True
     
    CurHour = Hour(Now)
    CurMinute = Minute(Now)
    CurSecond = Second(Now)
     
    CurTime = "当前时间：" & CurHour & "时 " & CurMinute & "分 " & CurSecond & "秒"
    'WScript.Echo ObjTime & " | " & CurTime
     
    If (CurHour = objHour And CurMinute = objMinute And CurSecond = objSecond) Or _
        (Hour(Now) = objHour And Minute(Now) = objMinute And Second(Now) = objSecond+1) Then
        IsTimeOut = True
    End If
     
    WScript.Sleep(1000)
     
Loop
 
WScript.CreateObject("wscript.shell").Run "shutdown -s -t 300", 0
'WScript.Echo vbCrlf
WScript.Echo "收拾收拾准备睡觉啦！5分钟后我会把你的电脑关掉哦~~~"
'WScript.Echo "在控制台输入命令 shutdown -a 可以取消关机计划"
'WScript.Echo vbCrlf
复制代码

st=#23:45#
et=#05:45#

Set Ws= WScript.CreateObject("WScript.Shell")

Do
If (Time>st And Time<#23:59:59#) Or (Time>#0:00# And Time <et) Then
	[说] "收拾收拾准备睡觉啦！5分钟后我会把你的电脑关掉哦!!!"
	ws.Run "shutdown /f /s /t 300", 0,false
	WScript.quit
Else
	'[说] " 时间还没到"
End If
Wscript.Sleep 40000 '减少CPU占用 每40秒检测一次
Loop

Function  [说]([内容])
    [说]= ws.popup(vbcrlf&[内容]&vbcrlf,10,"妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪",8+8) 
End Function
复制代码

statime=#23:35#
endtime=#05:35#
sameday = true
if statime>endtime then sameday = false
Set Ws= WScript.CreateObject("WScript.Shell")

Do

ringtime = false
if sameday = true and Time>statime and Time<endtime then
  ringtime = true
else if sameday = false and (Time>statime or Time<endtime) then
  ringtime = true
else
'[说] "哈哈"
end if
end if

if ringtime = true then
	[说] "收拾收拾准备睡觉啦！5分钟后我会把你的电脑关掉哦!!!"
      	ws.Run "shutdown /f /s /t 30", 0,false
       	wscript.quit
Else
	'[说] "时间还没到"
End If
Wscript.Sleep 40000 '减少CPU占用 每40秒检测一次

Loop


Function  [说]([内容])
set [wscr]=wscript.createObject("wscript.shell")  
    [说]= [wscr].popup(vbcrlf&[内容]&vbcrlf,10,"妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪",8+8) 
End Function
复制代码

Do
dtmStaDate1 =date()&" 23:35:00"
dtmStaDate2 =date()&" 23:59:00"

dtmEndDate1 =  date()&" 00:00:00"
dtmEndDate2 =  date()&" 05:35:00"

call time_add(dtmStaDate1,dtmStaDate2)
call time_add(dtmEndDate1,dtmEndDate2)

  WScript.Sleep 40000
'循环40秒判断
Loop

function time_add(ActionTime1,ActionTime2) 
 [时光流逝1]=DateDiff("s", Now, ActionTime1)    
 [时光流逝2]=DateDiff("s", Now, ActionTime2)  
 If  [时光流逝1] < 0 and [时光流逝2] > 0  Then   ' [时光流逝] 表示时间过去了那么多秒 :正数是还要等待。负数是已经到了未来指定时间  
       [说] "收拾收拾准备睡觉啦！5分钟后我会把你的电脑关掉哦~~~"
       WScript.CreateObject("wscript.shell").Run "shutdown /f /s /t 300", 0,false
       wscript.quit
Else
    '[说] " 时间还没到"
 End If
end function


Function  [说]([内容])
set [wscr]=wscript.createObject("wscript.shell")  
    [说]= [wscr].popup(vbcrlf&[内容]&vbcrlf,10,"妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪妈妈咪",8+8) 
End Function
复制代码