[已解决]vbs如何修改代码，判断满足4个条件之一就执行操作？

ygqiang

vbs如何修改代码，判断满足4个条件之一就执行操作？
已解决，见4楼代码

需要：加上多个变量st1、et1，st2、et2，...
如果当前时间满足下面4个条件之一，在st和et之间，或者在st1和et1之间...都执行操作。
st=#07:30#
et=#07:30#

st1=#08:30#
et1=#08:30#

st2=#14:30#
et2=#14:30#

st3=#21:30#
et3=#21:30#

1. st=#07:30#
   
2. et=#07:30#
   
3. 
   
4. 
   
5. Set Ws= WScript.CreateObject("WScript.Shell")
   
6. 
   
7. Do
   
8. If (Time>st And Time <et) Then
   
9.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
   
10.         ws.Run "shutdown /f /r /t 1", 0,false
    
11.         'ws.Run "shutdn-gj.bat"
    
12.         WScript.quit
    
13. Else
    
14.         '[说] " 时间还没到"
    
15. End If
    
16. Wscript.Sleep 40000 '减少CPU占用 每40秒检测一次
    
17. Loop
    
18. 
    
19. Function  [说]([内容])
    
20.     [说]= ws.popup(vbcrlf&[内容]&vbcrlf,10,"啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊",8+8)
    
21. End Function

复制代码

ygqiang

下面代码为啥测试，满足条件，却不执行重启操作？

1. st=#07:30#
   
2. et=#07:30#
   
3. 
   
4. st1=#08:30#
   
5. et1=#08:30#
   
6. 
   
7. st2=#10:40#
   
8. et2=#10:40#
   
9. 
   
10. st3=#21:30#
    
11. et3=#21:30#
    
12. 
    
13. 
    
14. Set Ws= WScript.CreateObject("WScript.Shell")
    
15. 
    
16. Do
    
17. If (Time>=st And Time <=et) Then
    
18.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
    
19.         ws.Run "shutdown /f /r /t 1", 0,false
    
20.         'ws.Run "shutdn-gj.bat"
    
21.         WScript.quit
    
22. ElseIf (Time>=st1 And Time <=et1) Then
    
23.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
    
24.         ws.Run "shutdown /f /r /t 1", 0,false
    
25.         'ws.Run "shutdn-gj.bat"
    
26.         WScript.quit
    
27. ElseIf (Time>=st2 And Time <=et2) Then
    
28.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
    
29.         ws.Run "shutdown /f /r /t 1", 0,false
    
30.         'ws.Run "shutdn-gj.bat"
    
31.         WScript.quit
    
32. ElseIf (Time>=st3 And Time <=et3) Then
    
33.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
    
34.         ws.Run "shutdown /f /r /t 1", 0,false
    
35.         'ws.Run "shutdn-gj.bat"
    
36.         WScript.quit
    
37. Else
    
38.         '[说] " 时间还没到"
    
39. End If
    
40. Wscript.Sleep 40000 '减少CPU占用 每40秒检测一次
    
41. Loop
    
42. 
    
43. Function  [说]([内容])
    
44.     [说]= ws.popup(vbcrlf&[内容]&vbcrlf,10,"啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊",8+8)
    
45. End Function

复制代码

aloha20200628

回复 2# ygqiang

st 与 et 是同值，没有时差，当然被 if 比对结果恒为 false 了...
另：4个逻辑判断可用 or 连接，示例代码如下

1. 
   
2. If ( Time>=st And Time <=et or Time>=st1 And Time <=et1 or Time>=st2 And Time <=et2 or Time>=st3 And Time <=et3 ) Then
   
3.    wsh.echo "重启"
   
4. Else
   
5.    wsh.echo "时间未到"
   
6. end if
   

复制代码

ygqiang

回复 3# aloha20200628


    谢谢。下面代码测试通过。

1. st=#07:29#
   
2. et=#07:30#
   
3. 
   
4. st1=#08:29#
   
5. et1=#08:30#
   
6. 
   
7. st2=#14:29#
   
8. et2=#14:30#
   
9. 
   
10. st3=#20:29#
    
11. et3=#20:30#
    
12. 
    
13. 
    
14. Set Ws= WScript.CreateObject("WScript.Shell")
    
15. 
    
16. Do
    
17. If (Time>st And Time <et) Then
    
18.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
    
19.         ws.Run "shutdown /f /r /t 1", 0,false
    
20.         'ws.Run "shutdn-gj.bat"
    
21.         WScript.quit
    
22. ElseIf (Time>st1 And Time <et1) Then
    
23.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
    
24.         ws.Run "shutdown /f /r /t 1", 0,false
    
25.         'ws.Run "shutdn-gj.bat"
    
26.         WScript.quit
    
27. ElseIf (Time>st2 And Time <et2) Then
    
28.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
    
29.         ws.Run "shutdown /f /r /t 1", 0,false
    
30.         'ws.Run "shutdn-gj.bat"
    
31.         WScript.quit
    
32. ElseIf (Time>st3 And Time <et3) Then
    
33.         '[说] "啊啊啊啊啊啊啊啊啊啊电脑重启啊啊啊啊啊啊啊啊啊啊"
    
34.         ws.Run "shutdown /f /r /t 1", 0,false
    
35.         'ws.Run "shutdn-gj.bat"
    
36.         WScript.quit
    
37. Else
    
38.         '[说] " 时间还没到"
    
39. End If
    
40. Wscript.Sleep 40000 '减少CPU占用 每40秒检测一次
    
41. Loop
    
42. 
    
43. Function  [说]([内容])
    
44.     [说]= ws.popup(vbcrlf&[内容]&vbcrlf,10,"啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊",8+8)
    
45. End Function

复制代码

Five66

st1、et1，st2、et2都是相同的 ,Time是获取当前时间 ,获取是需要时间的 ,比较也是需要时间的 ,每次获取或比较之后的Time理论上都跟之前不同 ,基本是不可能满足条件的 ,再加上还有40秒的延迟 ,更加不可能了
还有4楼代码一旦不满足就会进入延迟 ,延迟过程中时间就可能会错过了 ,一旦错过了基本上也不会满足条件

ygqiang

回复 5# Five66


    实际测试，4楼代码可以满足需求。定时重启