autoit3 创建了一个托盘菜单，

ITong

1. #NoTrayIcon
   
2. 
   
3. Opt("TrayMenuMode", 3) ; 默认菜单项目 (脚本暂停中/退出)(Script Paused/Exit) 将不会显示,并且所选项目不能被选中(checkbox不会打勾) . 请参考TrayMenuMode选项1和2(3=1+2).
   
4. 
   
5. Local $prefsitem    = TrayCreateItem("参数")
   
6. TrayCreateItem("")
   
7. Local $aboutitem    = TrayCreateItem("关于")
   
8. TrayCreateItem("")
   
9. Local $exititem = TrayCreateItem("退出")
   
10. 
    
11. TraySetState()
    
12. 
    
13. While 1
    
14.     Local $msg = TrayGetMsg()
    
15.     Select
    
16.         Case $msg = 0
    
17.             ContinueLoop
    
18.         Case $msg = $prefsitem
    
19.             MsgBox(64, "参数:", "系统版本:" & @OSVersion)
    
20.         Case $msg = $aboutitem
    
21.             MsgBox(64, "关于:", "AutoIt3-托盘-例子.")
    
22.         Case $msg = $exititem
    
23.             ExitLoop
    
24.     EndSelect
    
25. WEnd
    
26. 
    
27. Exit

复制代码

上面的是帮助文档中的例子，

如上面例子，我想执行我的另一个
循环方法。。直到托盘菜单点击退出，
可是一直走菜单循环Case
不走下面的过一段时间刷新ie页面，如何解决啊？下面是我的循环代码！
求救，谢谢

do循环是让这个刷新页面一直循环下去。。

1. #include <IE.au3>
   
2. Local $oIE = _IECreate("http://192.168.8.3:88/zentao/user-login-L3plbnRhby8=.html?account=zhang_tong&password=111111",0,0,1,0)
   
3. Do
   
4. visitsitebug("http://192.168.8.3:88/zentao/bug-browse-3-assignToMe-0.html","xxx网提醒:")
   
5. Sleep(1000)
   
6. visitsitebug("http://192.168.8.3:88/zentao/bug-browse-13-assignToMe-0.html","xxxx平台")
   
7. Sleep(60000)
   
8. Until 0=1
   
9. 
   
10. Func visitsitebug($value,$websitename)
    
11.         Local $oNav = _IENavigate($oIE,$value,1)
    
12.         _IEAction($oIE,"refresh")
    
13.         Local $sText = _IEBodyReadText($oIE)
    
14.         Local $var = String($sText)
    
15.         Local $result = StringInStr( $var,"暂时没有记录")
    
16.         If $result = 0 Then
    
17.                 TrayTip($websitename, "有指派给我的bug未解决，请打开查看！", 5, 1)
    
18.                 Sleep(10000)
    
19.         ElseIf $result > 0 Then
    
20.                 TrayTip($websitename, "无bug需要解决。", 5, 1)
    
21.                 Sleep(10000)
    
22.         EndIf
    
23. EndFunc

复制代码

nmgwddj

楼上兄台哪个公司的测试……

ITong

回复 2# nmgwddj


    求解决。。。

nmgwddj

我先看看，下次代码写到代码框里好吧，这样很多人表示没有心情看。。

nmgwddj

表示没有看懂，再新建个函数来掉带参数的visitsitebug函数，用AdlibRegister定时循环可否？

annybaby

回复 1# ITong

while是个死循环啊,你代码中本来就是一直在接收托盘消息

    Case $msg = 0
这句没有必要

在while中加入你要执行的函数visitsitebug

另外竟然还有个DO循环,又那么多sleepN久,反应迟钝啊,建议用定时器
最要命的是,还不用代码标记或者语法高亮~~
不想看`

ITong

回复 6# annybaby


    while里面加了，那循环一次，然后就走visitsitebug了啊。不可能再走while了啊

ITong

回复 5# nmgwddj


    定时器是那个方法？给个简单例子，谢谢

ITong

怎么标记为已解决 a?

cdmtony

查看論壇資料吧。