[问题求助] [已解决]求助vbs代码改写:实现判断当前是否在指定时间段，并做不同操作。

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
复制代码