window 10,10-600,500
usermessages 16
$H Windows.ph
declare dll&,Web&,html$
dll&=usedll("atl.dll")
def AtlAxWinInit(0) !"atl.dll","AtlAxWinInit"
AtlAxWinInit()
html$="mshtml:<html><body><h1>Profan²</h1></body>& lt;/html>"
--oder auch: html$="www.profan.de"
Web&=control("AtlAxWin",html$,$50000000,100,100,300,300,%hwnd,0,0,$200)
while 1
waitinput
case %umessage=16:break
endwhile
destroywindow(Web&)
case dll&:
(770)
Deutsch
English
Français
Español
Italia