对象'HWND'的方法'IWebBrowser1'失败’

获取WebBrowser控件句柄

最新推荐文章于 2021-08-28 17:28:29 发布

最新推荐文章于 2021-08-28 17:28:29 发布 · 420 阅读

文章标签：

#人工智能 #shell

本文介绍了一种通过编写VBScript代码来获取WebBrowser控件窗口句柄的方法。主要步骤包括新建模块并定义API函数，然后实现GetWebBrowserHwnd函数来查找具有ShellEmbedding类名的子窗口句柄。

不能直接使用。解决方法如下：
一、新建一个模块，复制下面代码：
Option Explicit
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

Function GetWebBrowserHwnd(hwndBrowserContainer As Long) As Long
Dim RetVal As Long
Dim hwndPeer As Long
Dim ClassString As String * 256
hwndPeer = GetWindow(hwndBrowserContainer, GW_CHILD)
Do While hwndPeer <> 0
RetVal = GetClassName(hwndPeer, ClassString, 256)
If InStr(ClassString, "Shell Embedding") <> 0 Then
GetWebBrowserHwnd = hwndPeer
Exit Do
End If
hwndPeer = GetWindow(hwndPeer, GW_HWNDNEXT)
Loop
End Function
二、在窗体中获取webbrowser1的hwnd的方法是：
dim i as long
i=GetWebBrowserHwnd(Me.hwnd)