GUICtrlCreateObj 打开的网页如何判断用户点登陆了

kuautoit

#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("163", 381, 270)
$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX= GUICtrlCreateObj($oIE,-500,-115,1000,1000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$oIE.navigate("http://mail.163.com/")


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                       

        EndSwitch
WEnd

kuautoit

我想点了后地址一定会变，我怎么判断地址变了，

_ddqs.

Dim $o_url = ""



If $o_url <> $oIE.locationURL Then 
        $o_url = $oIE.locationURL
        MsgBox(0,0,"地址变了！")
        
EndIf

kuautoit

我怎么加上没有反应啊

_ddqs.

#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("163", 381, 270)
$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX = GUICtrlCreateObj($oIE, -500, -115, 1000, 1000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$oIE.navigate("http://mail.163.com/")


Sleep(2000)

Dim $o_url = $oIE.locationURL

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit


        EndSwitch


        If $o_url <> $oIE.locationURL Then

                $o_url = $oIE.locationURL

                MsgBox(262144, 0, "地址变了！", 3 ,$Form1)



        EndIf




WEnd