请大神帮忙看看内嵌IE上退出键不生效

beyotang

因为行业的原因，必须在这个教育网上在线学习，所以弄了这么个东西来挂机。挂机代码现在没问题了，唯独退出键不生效，只能在托盘图标点右键退出，请大神帮忙改改。新手不太懂，也没有编程经验。

1. #include <ie.au3>
   
2. Global $Url = "http://zyjsry.mypx.org/index.asp"
   
3. Global $Url2 = "http://zyjsry.mypx.org/Learn_show.asp?ID=327"
   
4. Global $BackURL
   
5. Global $login_IE = _IECreateEmbedded ()
   
6. Global $login_gui = GUICreate("内嵌IE不弹出新窗口" , 930, 565)
   
7. Global $login_GUIActiveX = GUICtrlCreateObj($login_IE, 10, 10, 910, 440)
   
8. Global $Btn_Back = GUICtrlCreateButton("返回", 120, 480, 100, 70)
   
9. Global $Buttonx = GUICtrlCreateButton("退出", 650, 480, 100, 70)
   
10. $EventObject2 = ObjEvent($login_IE, "IEEvent_", "DWebBrowserEvents2")   ;注册获取 IE对象产生的事件,有事件则调用后面的相关函数
    
11. GUISetState()
    
12. login()
    
13. While 1
    
14.         $nMsg = GUIGetMsg()
    
15.         Switch $nMsg
    
16.                 Case -3
    
17.                         $EventObject2 = 0
    
18.                         Exit
    
19.                 Case $Buttonx
    
20.                         $EventObject2 = 0
    
21.                         Exit
    
22.                 Case $Btn_Back
    
23.                         $login_IE.Navigate($BackURL)
    
24.         EndSwitch
    
25. WEnd
    
26. 
    
27. Volatile Func IEEvent_NewWindow3($ppDisp, ByRef $Cancel, $dwFlags, $bstrUrlContext, $bstrUrl)
    
28.         $BackURL = $bstrUrlContext
    
29.         $Cancel = True
    
30.         $login_IE.Navigate( $bstrUrl )
    
31. EndFunc
    
32. 
    
33. Func login()
    
34.         $login_IE.Navigate($Url)
    
35.                 _IELoadWait($login_IE)
    
36.                 $user = _IEGetObjByName($login_IE, "name")
    
37.                 $user.value = '赵明'
    
38.                 $pw = _IEGetObjByName($login_IE, "codenum")
    
39.                 $pw.value = '88888888888888'
    
40.                 $Submit = _IEGetObjByName($login_IE, "imageField")
    
41.                 Sleep(800)
    
42.                 $Submit.click
    
43.                 Sleep(5000)
    
44.                 _IELoadWait($login_IE)
    
45.                 $login_IE.Navigate($Url2)
    
46.                 Sleep(1680000)
    
47. EndFunc

复制代码

xzf680

Sleep(1680000)
迟延时间过长了吧

1361739590

只要登入就可以了？？干嘛sleep？

soulost

只要登入就可以了？？干嘛sleep？