XProfan

window %maxX,%maxY
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var Html$="C:\Test.html"
var WebControl&=create("HTMLWin",%hwnd,Html$,1,0,0,width(%hwnd),height(%hwnd))
var WebBrowser&=HTMLWin("QueryInterface",WebControl&)
var Document&=ocxget(WebBrowser&,"Document")
var Body&=ocxget(Document&,"Body")
var innerHTML$=ocxget(Body&,"innerHTML")
var innerText$=ocxget(Body&,"innerText")
ocxRelease(Body&,Document&,WebBrowser&)
ocxDeInit()
waitinput
destroywindow(WebControl&)
cls
print innerText$
waitinput
cls
print innerHTML$
waitinput