#Include "window9.bi"
#Include "win/oleacc.bi"
Dim Shared As Integer ptr bra
Dim Shared As Integer event
Dim shared As hwnd hWndChild, hwnd
hwnd=OpenWindow("WebGadget",10,10,800,600) : CenterWindow(hwnd)
bra=WebGadget(1,10,50,760,500,"bing.com",WS_VSCROLL Or WS_HSCROLL,WS_EX_CLIENTEDGE)
ButtonGadget(3,10,10,50,20,"Get")

Function EnumChildProc Cdecl( hwnd As hwnd, lparam  As lParam) As bool
  Dim As ZString*100 buf
  GetClassName( hwnd, @buf, 100 )
  If buf = "Internet Explorer_Server" Then
   hWndChild = hwnd
   Return FALSE
  Else
   Return TRUE
  EndIf
End function

Do
  event=WaitEvent()
  If Event=EventClose Then
   End
  ElseIf  Event=EventGadget Then
   Select Case EventNumber
    Case 3
     CoInitialize( NULL )
     Dim As HINSTANCE hInst = LoadLibrary("OLEACC.DLL" )
     Dim msg As UINT
     Dim R As  Integer
     Dim hr As HRESULT
     Dim spDoc As IHTMLDocument2 Ptr
     Dim As wString Ptr sUrl
              EnumChildWindows( hWnd, Cast(Any Ptr,@EnumChildProc), 0 )
     msg = RegisterWindowMessage("WM_HTML_GETOBJECT")
     SendMessageTimeout(hWndChild, msg, 0, 0, SMTO_ABORTIFHUNG, 1000, @R)
     hr = ObjectFromLresult(R, @IID_IHTMLDocument, 0, @spDoc)    
     spDoc->lpVtbl->get_url(spDoc,@sUrl)
     MessBox("",*sUrl)
     CoUninitialize()
     FreeLibrary( hInst)
   End Select
  EndIf
Loop

#Include "window9.bi"
#Include "win/oleacc.bi"

Dim Shared As Integer Ptr bra
Dim Shared As Integer event
Dim Shared As hwnd hWndChild, hwnd, hParent
hwnd=OpenWindow("WebGadget",10,10,200,170)
CenterWindow(hwnd)
ButtonGadget(3,10,10,100,30,"Navigate")
ButtonGadget(4,10,50,80,30,"Zoom +")
ButtonGadget(5,100,50,80,30,"Zoom -")

Function EnumChildProc Cdecl(hwnd As hwnd, lparam  As lParam) As bool
    Dim As ZString*100 buf
    GetClassName(hwnd, @buf, 100)
    If buf = "Internet Explorer_Server" Then
       hWndChild = hwnd       
       Return FALSE
    Else
       Return TRUE
    EndIf
End Function

#define UNICODE
#Include Once "disphelper/disphelper.bi"
Dim Shared As IDispatch Ptr ieApp, spParent
Dim spDoc As IHTMLDocument2 Ptr
dhInitialize(TRUE)
dhToggleExceptions(TRUE)
Dim zoom As Double = 1

CoInitialize( NULL )
Dim As HINSTANCE hInst = LoadLibrary("OLEACC.DLL" )
Dim msg As UINT
Dim R As  Integer
Dim hr As HRESULT
Dim As WString Ptr sUrl

hParent=FindWindow("HH Parent", "Window9 Gui Library")

If hParent=0 Then  
  MessBox("","Окно справки отсутствует!")
    End  
EndIf

EnumChildWindows(hParent, Cast(Any Ptr,@EnumChildProc), 0)
msg = RegisterWindowMessage("WM_HTML_GETOBJECT")
SendMessageTimeout(hWndChild, msg, 0, 0, SMTO_ABORTIFHUNG, 1000, @R)
hr = ObjectFromLresult(R, @IID_IHTMLDocument, 0, @spDoc)
'spDoc->lpVtbl->get_url(spDoc,@sUrl)

spDoc->lpVtbl->get_script(spDoc,@spParent)
dhGetValue("%o",@ieApp,spParent,".document.parentwindow")

CoUninitialize()
FreeLibrary( hInst)

If ieApp=0 Then  
    MessBox("","Получить объект не удалось!")
    End  
EndIf

Do
    event=WaitEvent()
    If Event=EventClose Then
       End
    ElseIf  Event=EventGadget Then
       Select Case EventNumber
          Case 3
             Var urltext="Informationaboutthedevelopers.htm"             
             dhCallMethod(ieApp,"Navigate(%s)",urltext)
          Case 4
             zoom += 0.1
             dhPutValue(ieApp, "document.body.style.zoom = %s", Str(zoom))
          Case 5
             zoom -= 0.1
             dhPutValue(ieApp, "document.body.style.zoom = %s", Str(zoom))
       End Select
    EndIf
Loop