struct IUnknown = \
    QueryInterface&, \
    AddRef&, \
    Release&

struct IWebBrowser = IUnknown, \
    GetTypeInfoCount&, \
    GetTypeInfo&, \
    GetIDsOfNames&, \
    Invoke&, \
    GoBack&, \ 
    GoForward&, \
    GoHome&, \ 
    GoSearch&, \
    Navigate&, \
    Refresh&, \
    Refresh2&, \
    Stop&, \ 
    get_Application&, \
    get_Parent&, \
    get_Container&, \
    get_Document&, \
    get_TopLevelContainer&, \
    get_Type&, \
    get_Left&, \
    put_Left&, \
    get_Top&, \
    put_Top&, \
    get_Width&, \
    put_Width&, \
    get_Height&, \
    put_Height&, \
    get_LocationName&, \
    get_LocationURL&, \
    get_Busy&, \ 
    Quit&, \
    ClientToWindow&, \
    PutProperty&, \
    GetProperty&, \
    get_Name&, \
    get_HWND&, \
    get_FullName&, \
    get_Path&, \
    get_Visible&, \
    put_Visible&, \
    get_StatusBar&, \
    put_StatusBar&, \ 
    get_StatusText&, \
    put_StatusText&, \
    get_ToolBar&, \
    put_ToolBar&, \ 
    get_MenuBar&, \
    put_MenuBar&, \ 
    get_FullScreen&, \
    put_FullScreen&, \
    Navigate2&, \
    QueryStatusWB&, \
    ExecWB&, \
    ShowBrowserBar&, \
    get_ReadyState&, \
    get_Offline&, \
    put_Offline&, \
    get_Silent&, \
    put_Silent&, \
    get_RegisterAsBrowser&, \
    put_RegisterAsBrowser&, \
    get_RegisterAsDropTarget&, \
    put_RegisterAsDropTarget&, \
    get_TheaterMode&, \
    put_TheaterMode&, \
    get_AddressBar&, \
    put_AddressBar&, \
    get_Resizable&, \
    put_Resizable&

declare WebControl&
declare IFace#, IWebbrowser#
dim IFace#, 4
dim IWebbrowser#, IWebbrowser

cls

WebControl&=create("HTMLWin",%hwnd,"https://skypecasts.skype.com/skypecasts/ongoing?setlang=de",0,0,0,width(%hwnd),height(%hwnd))

'IFace# = HTMLWin("QueryInterface", WebControl&)
'IWebBrowser# = long(IFace#, 0)
'call(IWebbrowser#.get_Document&, IFace#)

while HTMLWin("GetBusy", webControl&) 

	setText %hWnd,"Läd: "+str$(&getTickCount)
	
wend

setText %hWnd,"Fertig."

waitinput

end