XProfan

var Document&=ocxGet(WebObject&,Document)klappt
var body&=ocxGet(Document&,body)klappt
var h&=ocxGet(body&,bgcolor)klappt nicht :(

--Alle Links einer Webseite auflisten
--Es könnten noch weitere Eigenschaften (ID, Target usw.) ermittelt werden
window 10,100-780,400
 $H Windows.ph
 $H ocx2.ph
 $I ocx2.inc
 $I HtmlExtra.inc
 $I ocxinfo.inc
ocxInit()
cls
print jo
declare WebControl&
var WebObject&=ocxCreate(https://seite,%hwnd,500,10,250,100,$50800000,addr(WebControl&))

whilenot %mousekey

    sleep 50
    setText %hWnd,Läd: +ocxget(WebObject&,readystate)

endwhile

while %mousekey

wend

var Document&=ocxGet(WebObject&,Document)
var collection&=ocxGet(Document&,Body)
print ocxGet(collection&,innerHTML)
waitinput
end

ocxInit()
var WebControl&=create(HTMLWin,%hwnd,www.xprofan.de,1,10,10,500,500)
var WebObject&=HTMLWin(QueryInterface,WebControl&)
var Document&=ocxGet(WebObject&,Document)

ocxInit()
declare WebControl&
var WebObject&=ocxCreate(about:blank,%hwnd,10,10,500,500,$50800000,addr(WebControl&))
HTMLWin(GoHome,WebControl&)

def $endZeit 22:30
def $appTitle myShutdown 0.1
var h&=findWindow($appTitle)

if h&

    sendMessage(h&,16,0,0)
    end

endif

windowStyle 16 | 1 | 2 | 4 | 8
windowTitle $appTitle
cls
useIcon knopf1
userMessages 16
setTimer 10000
mcls 42,16

while 1

    startPaint -1
    cls 0
    useFont Courier,10,0,0,0,0,0
    textColor $FFFFFF,.1
    drawText 0,0,time$(0)
    endPaint
    mCopySizedBmp 1,1 - 39,11 > 0,0 - width(%hWnd),height(%hWnd);0
    waitInput
    case %uMessage=16 : break

    if %wmTimer

        if time$(0)=$endZeit

            exitWindows 6
            break

        endif

    endif

wend

killTimer
end