vb 控件webbrowser 句柄问题

来源：百度知道 编辑：UC知道 时间：2024/06/18 03:48:55
我编程时，无法获得webbrowser控件的句柄，用webbrowser1.hwnd会出错 ，我想获得form1里所有webbrowser控件的句柄（注意是所有)，请给我代码，如果答案正确， 追加100分
你的方法是可行，但是如果webbroser打开一个网页，它了类型就变了，怎么获得打开网页后的句柄的，就是类型为internet web_server 的句柄
叫我QQ聊：601724632 帮我解决给你开通QQ会员

能获得所有webbrowser的句柄,但是不知道哪个哪个

添加一个list ,一个command,多个webbrowser

加入以下代码

Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Sub Command1_Click()
GetBrowserWindow Me.hwnd
End Sub

Private Function GetBrowserWindow(hwndBrowserContainer As Long) As Long
Dim RetVal As Long
Dim hwndPeer As Long
Dim ClassString As String * 256
hwndPeer = GetWindow(hwndBrowserContainer, GW_CHILD)
RetVal = GetClassName(hwndPeer, ClassString, 256)
If InStr(ClassString, "Shell Embedding") <> 0 Then
List1.AddItem Str(hwndPeer) & "|" &