XProfan

usermessages 16
declare WebControl&, a&, a$
'---- Fenster + Menü ----
cls
appendmenubar 101,"<"
appendmenubar 102,">"
appendmenubar 103,"&X"
appendmenubar 104,"&Aktualisieren"
appendmenubar 105,"&Startseite"
appendmenubar 106,"&Suchen"
appendmenubar 107,"&Datei öffnen"
appendmenubar 108,"&Ordner öffnen"
appendmenubar 109,"&URL öffnen"
'---- WebControl erzeugen ----
WebControl&=create("HTMLWin",%hwnd,"www.xprofan.de",0,0,0,width(%hwnd),height(%hwnd))
'---- Programmschleife ----

while 1

    if %key=4

        setwindowpos WebControl&=0,0-width(%hwnd),height(%hwnd)

    elseif menuitem(101)

        HTMLWin("GoBack", WebControl&)

    elseif menuitem(102)

        HTMLWin("GoForward", WebControl&)

    elseif menuitem(103)

        HTMLWin("Stop", WebControl&)

    elseif menuitem(104)

        HTMLWin("Refresh", WebControl&)

    elseif menuitem(105)

        HTMLWin("GoHome", WebControl&)

    elseif menuitem(106)

        HTMLWin("GoSearch", WebControl&)

    elseif menuitem(107)

        a$=loadfile$("Bitte Bild oder HTML-Datei wählen","*.*")
        repaint 1
        HTMLWin("Navigate", WebControl&, a$)

    elseif menuitem(108)

        a$=choosedir$("Bitte Ordner wählen")
        repaint 1
        HTMLWin("Navigate", WebControl&, a$)

    elseif menuitem(109)

        a$=input$("Bitte Web-Adresse eingeben:","URL:","")
        repaint 1
        HTMLWin("Navigate", WebControl&, a$)

    endif

    while HTMLWin("GetBusy", WebControl&)

        sleep 200

    endwhile

    waitinput
    case %umessage=16 : break

endwhile

destroywindow(WebControl&)
end

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

while 1

    waitinput

endwhile