Handle WebBrowser

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Demonx
Бывалый
Бывалый
 
Сообщения: 237
Зарегистрирован: 25.06.2003 (Ср) 0:08
Откуда: Литва/Висагинас

Handle WebBrowser

Сообщение Demonx » 29.03.2004 (Пн) 14:01

Не могу полчить хэндл браузера.
:arrow: Делаю:
Код: Выделить всё
MsgBox WebBrowser1.hWnd

:arrow: Пишет ошибку:
Код: Выделить всё
-2147467259 Method 'HWND' of object 'IWebBrowser2' failed


Почему :?:

MEMBER
Гугль
Гугль
 
Сообщения: 758
Зарегистрирован: 29.11.2002 (Пт) 12:02
Откуда: 10 этаж

Сообщение MEMBER » 30.03.2004 (Вт) 1:04

Есть только один известный мне способ. Засовывать 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
Господа! Пользуйтесь www.ya.ru
ЗЫ и www.planetsourcecode.com


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 16

    TopList  
cron