Handle WebBrowser

[Demonx]

Не могу полчить хэндл браузера.
Делаю:

Код: Выделить всё

MsgBox WebBrowser1.hWnd

Пишет ошибку:

Код: Выделить всё

-2147467259 Method 'HWND' of object 'IWebBrowser2' failed

Почему

[MEMBER]

Есть только один известный мне способ. Засовывать WebBrowser в какой-нибудь контейнер, например в PictureBox, а затем, с помощью:

Код: Выделить всё

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _
                                                 ByVal wCmd As Long) As Long

вытаскивать hWnd child'a.
----
На форме разместите PictureBox, засуньте в него WebBrowser.
Код:

Код: Выделить всё

Option Explicit

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _
                                                 ByVal wCmd As Long) As Long
       
Private Const GW_CHILD = 5
'---------------------------------------------------------------------------------
Public Function GetBrowserWindow(hwndBrowserContainer As Long) As Long
    GetBrowserWindow = GetWindow(hwndBrowserContainer, GW_CHILD)
End Function
'---------------------------------------------------------------------------------
Private Sub Command1_Click()
    MsgBox GetBrowserWindow(Picture1.hwnd)
End Sub