新手制作（自动疲劳提醒）软件请教高手（已解决）

guang19831217

我是新手，电脑不关机的，请教高手这个要修改怎么才能9 10 11 12小时每次到时间运行一次。现在到时

间如9点的提醒有很多遍。造成重复提醒。

1. ; 请置于脚本顶部
   
2. $g_szVersion = "自动疲劳提醒"
   
3. If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
   
4. AutoItWinSetTitle($g_szVersion)
   
5. ; 下面是脚本的其它代码
   
6. FileCreateShortcut(@ScriptFullPath, @StartupCommonDir & "\自动疲劳提醒.lnk")
   
7. 
   
8. Opt("TrayIconHide", 1)  
   
9. 
   
10. While 1                 
    
11. 
    
12. if @HOUR = 9 then      
    
13. Opt("TrayIconHide", 0)  
    
14. TrayTip("提醒:你已经连续工作1小时了","请适当休息几分钟...",20,1)
    
15. TrayTip("提醒:善于劳逸结合，注意保护眼睛","请适量做些运动...",20,1)
    
16. Sleep(20000)
    
17. Opt("TrayIconHide", 1)  
    
18. endif                  
    
19. 
    
20. if @HOUR = 10 then      
    
21. Opt("TrayIconHide", 0)  
    
22. TrayTip("提醒:你已经连续工作2小时了","请适当休息几分钟...",20,1)
    
23. TrayTip("提醒:善于劳逸结合，注意保护眼睛","请适量做些运动...",20,1)
    
24. Sleep(20000)
    
25. Opt("TrayIconHide", 1)  
    
26. endif                 
    
27. 
    
28. if @HOUR = 11 then      
    
29. Opt("TrayIconHide", 0)  
    
30. TrayTip("提醒:你已经连续工作3小时了","请适当休息几分钟...",20,1)
    
31. TrayTip("提醒:善于劳逸结合，注意保护眼睛","请适量做些运动...",20,1)
    
32. Sleep(20000)
    
33. Opt("TrayIconHide", 1)  
    
34. endif                 
    
35. 
    
36. if @HOUR = 12 then      
    
37. Opt("TrayIconHide", 0)  
    
38. TrayTip("提醒:你已经连续工作4小时了","请适当休息几分钟...",20,1)
    
39. TrayTip("提醒:善于劳逸结合，注意保护眼睛","请适量做些运动...",20,1)
    
40. Sleep(20000)
    
41. Opt("TrayIconHide", 1)  
    
42. endif                 
    
43. 
    
44. WEnd                    ; 循环结束

复制代码

king8462

@HOUR 是 当前时钟的时值(24时制),值的范围是 00 到 23

只要时间是9点以后，他会每隔20秒运行一次！

xianhou

时间的判断要精确的秒。

3mile

只判断了小时，而没有对分、秒作判断。即9点时每20秒提醒一次。
以下代码未作测试。
[au3]
local $hour=9
while $hour<13
if @HOUR = $hour and @min<1 then
   if msgbox(4,"提醒","知道了！")=6 then $hour+=1
endif
sleep(100)
wend
[/au3]

yeqing880

楼上的代码。。。。帅

guang19831217

是不是要判断到小时，分、秒，就不会每20秒提醒一次，想问下有没有9点运行后退出，但不退出程序的判断，我下面还想增加的时间很乱，没规律的。高手真多，3mile 大大真厉害，谢谢各位大大。

guland

回复 6# guang19831217


    你把你的第一个问题研究明白了,后面的问题就就懂了,道理都是一样的

t87564833

其实也可以使用系统的计划任务·不占用进程，不过一个计划任务不能设置1天内多次运行。

guang19831217

谢谢大大们的指点。我会努力学习的。

yinui

一个蠢办法：
一个小时只提示一次

1. ; 请置于脚本顶部
   
2. $g_szVersion = "自动疲劳提醒"
   
3. If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
   
4. AutoItWinSetTitle($g_szVersion)
   
5. ; 下面是脚本的其它代码
   
6. FileCreateShortcut(@ScriptFullPath, @StartupCommonDir & "\自动疲劳提醒.lnk")
   
7. 
   
8. Opt("TrayIconHide", 1)  
   
9. 
   
10. While 1                 
    
11. 
    
12. if @HOUR = 9 and @HOUR9 <> 1 then      
    
13. Opt("TrayIconHide", 0)  
    
14. TrayTip("提醒:你已经连续工作1小时了","请适当休息几分钟...",20,1)
    
15. TrayTip("提醒:善于劳逸结合，注意保护眼睛","请适量做些运动...",20,1)
    
16. @HOUR9 = 1
    
17. Sleep(20000)
    
18. Opt("TrayIconHide", 1)  
    
19. endif                  
    
20. 
    
21. if @HOUR = 10  and @HOUR10 <> 1 then      
    
22. Opt("TrayIconHide", 0)  
    
23. TrayTip("提醒:你已经连续工作2小时了","请适当休息几分钟...",20,1)
    
24. TrayTip("提醒:善于劳逸结合，注意保护眼睛","请适量做些运动...",20,1)
    
25. @HOUR10 = 1
    
26. Sleep(20000)
    
27. Opt("TrayIconHide", 1)  
    
28. endif                 
    
29. 
    
30. if @HOUR = 11  and @HOUR11 <> 1 then      
    
31. Opt("TrayIconHide", 0)  
    
32. TrayTip("提醒:你已经连续工作3小时了","请适当休息几分钟...",20,1)
    
33. TrayTip("提醒:善于劳逸结合，注意保护眼睛","请适量做些运动...",20,1)
    
34. @HOUR11 = 1
    
35. Sleep(20000)
    
36. Opt("TrayIconHide", 1)  
    
37. endif                 
    
38. 
    
39. if @HOUR = 12  and @HOUR12 <> 1 then      
    
40. Opt("TrayIconHide", 0)  
    
41. TrayTip("提醒:你已经连续工作4小时了","请适当休息几分钟...",20,1)
    
42. TrayTip("提醒:善于劳逸结合，注意保护眼睛","请适量做些运动...",20,1)
    
43. @HOUR12 = 1
    
44. Sleep(20000)
    
45. Opt("TrayIconHide", 1)  
    
46. endif
    
47.                  
    
48. if @HOUR > 12  Or  @HOUR < 9 then
    
49. @HOUR8 = 0
    
50. @HOUR9 = 0
    
51. @HOUR11 = 0
    
52. @HOUR12 = 0
    
53. endif
    
54. 
    
55. sleep(1000)
    
56. WEnd                    ; 循环结束

复制代码

guang19831217

高手真多，学习了，谢谢。我正在学习精确到秒，那样打基础应该能好些。

andersonljw

正需要，好好看看