VB程序员博客

是这样的 我要去点WebBrowser1 里的一个FLASH 现在是用mouse_event去点 这样影响了我电脑鼠标的使用

在网络上搜索到用SendMessage 或 PostMessage 发送点击测试下来都不能成功
首先得到窗体的 句柄 然后在查找到 WebBrowser1的句柄(WebBrowser1这个没有句柄 里面是Shell Embedding)
所以找到了 Shell Embedding 句柄后发送 SendMessage 或 PostMessage 去点击WebBrowser1 的坐标

下面已经得到了WebBrowser1 的句柄了 但是不知道怎么发送点击 希望有高手帮助

g_WindowHwnd = FindWindow(vbNullString, "Form3")
g_WindowHwnd = GetBrowserWindow(g_WindowHwnd)

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) & "|" & ClassString
End If
Do While hwndPeer <> 0
hwndPeer = GetWindow(hwndPeer, GW_HWNDNEXT)
RetVal = GetClassName(hwndPeer, ClassString, 256)
If InStr(ClassString, "Shell Embedding") <> 0 Then
List1.AddItem Str(hwndPeer) & "|" & ClassString
End If
Loop
GetBrowserWindow = hwndPeer
End Function

据说FLASH这样不行的~

是否没有消息处理机制？

标签: , sendmessage, 点击, 鼠标