_IECreateEmbedded, Rückmeldung wenn User einen Link anklickt

  • Hallo zusammen,

    hab eine kleine frage, finde das Beispiel in der AutoIT hilfe ganz cool, würde es gerne übernehmen nur fehlt mir eine Rückmeldung vom Script.

    In der Auto-IT-Hilfe wird ein Browser quasi erstellt, quasi ein AutoIT GUI mit IE eingebettet.
    Wie bekomme ich aber eine Rückmeldung vom IE bzw. von der GUI wenn der USER ein Link angeklickt hat?

    Grund: ich möchte noch ein Ladebalken dazu machen sodass wenn der User was anklickt auch einen Ladebalken erhält.... (marquee style)

    Danke vorab!

    Script aus der Hilfe:

    [autoit]

    ; *******************************************************
    ; Example 1 - Trap COM errors so that 'Back' and 'Forward'
    ; outside of history bounds does not abort script
    ; (expect COM errors to be sent to the console)
    ; *******************************************************
    ;
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

    [/autoit][autoit][/autoit][autoit]

    _IEErrorHandlerRegister ()

    [/autoit][autoit][/autoit][autoit]

    $oIE = _IECreateEmbedded ()
    GUICreate("Embedded Web control Test", 640, 580, _
    (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
    $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

    [/autoit][autoit][/autoit][autoit]

    GUISetState() ;Show GUI

    [/autoit][autoit][/autoit][autoit]

    _IENavigate ($oIE, "http://www.autoitscript.com")

    [/autoit][autoit][/autoit][autoit]

    ; Waiting for user to close the window
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    _IENavigate ($oIE, "http://www.autoitscript.com")
    Case $msg = $GUI_Button_Back
    _IEAction ($oIE, "back")
    Case $msg = $GUI_Button_Forward
    _IEAction ($oIE, "forward")
    Case $msg = $GUI_Button_Stop
    _IEAction ($oIE, "stop")
    EndSelect
    WEnd

    [/autoit][autoit][/autoit][autoit]

    GUIDelete()

    [/autoit][autoit][/autoit][autoit]

    Exit

    [/autoit]