XProfan

window %maxx,%maxy
var Url$="https://www.zdf.de/ZDFmediathek/hauptnavigation/startseite/#/hauptnavigation/startseite"
var WebControl&=create("HTMLWin",%hwnd,Url$,1,10,10,width(%hwnd)-20,height(%hwnd)-20)

while 1

    waitinput

endw

proc GetVar'---------------------------------------------------GetVar

    parameters Var&,Index%
    Var&=Var&+Index%*16'----Index in Array 0-basiert
    var vt%=long(Var&,0)'---Typ
    var Val&=long(Var&,8)'--Wert
    case vt%=~VT_BSTR:return stringw$(Val&,0)
    return Val&

endproc'-------------------------------------------------------------

proc InvokeProc'-------------------------------------------InvokeProc

    parameters DispID&,Var&
    '--------------------------------Bei Parametern umgekehrte Reihenfolge gegenüber Doku beachten!

    if DispID&=250'------------------DISPID_BEFORENAVIGATE2

        var Pointer&=GetVar(Var&,5)'--6. Parameter VT_VARIANT | VT_BYREF => Ergebnis: Pointer auf VT_VARIANT (Typ darin: VT_BSTR)
        Url$=GetVar(Pointer&,0)'------VT_BSTR => Ergebnis: String

        if NewWindow%'----------------Navigation blockieren: BEFORENAVIGATE2 wurde nach NEWWINDOW3 aufgerufen

            Pointer&=GetVar(Var&,0)'---1. Parameter VT_BOOL | VT_BYREF => Ergebnis: Pointer auf BOOL
            long Pointer&,0=~VARIANT_TRUE

        else'-------------------------Navigation wird ausgeführt

            sendmessage(%hwnd,5001,0,0)'--Nachicht an Hauptfenster: Url$ aktualisiert

        endif

    elseif DispID&=273'--------------DISPID_NEWWINDOW3

        NewUrl$=GetVar(Var&,0)'-------1. Parameter VT_BSTR => Ergebnis: String
        var Pointer&=GetVar(Var&,3)'--4. Parameter VT_BOOL | VT_BYREF => Ergebnis: Pointer auf BOOL
        long Pointer&,0=~VARIANT_TRUE
        NewWindow%=1
        sendmessage(%hwnd,5000,0,0)'--Nachicht an Hauptfenster: Linkumleitung angesprochen

    elseif DispID&=105'--------------DISPID_COMMANDSTATECHANGE

        var a&=GetVar(Var&,0)'--------1. Parameter VT_BOOL => Ergebnis: BOOL
        var b&=GetVar(Var&,1)'--------2. Parameter VT_I4 => Ergebnis: LONG
        case b&=1:enablemenu 102,not(a&)'--CSC_NAVIGATEFORWARD
        case b&=2:enablemenu 101,not(a&)'--CSC_NAVIGATEBACK

    endif

endproc'------------------