全部
Ada助手

VB 如何向 WebBrowser1 中的flash发送左边点击事件

homeyone 2009-04-21 11:21:49

现在已经可以获取 WebBrowser1 的句柄也能点击到WebBrowser1
但是无法点击WebBrowser1中的FLASH。

请问有什么方法可以点击到吗？

最好能有点代码方面的提示呵呵。各位谢谢了。

...全文

给本帖投票

740 6 打赏收藏转发到动态举报

写回复

用AI写文章

CH375WriteData(0, mBuffer, mTotal))>>

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

xingjingq 2010-01-16

打赏
举报

[Quote=引用 2 楼 homeyone 的回复:]
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Dim dHwnd As Long
Dim tHwnd As Long
dhwnd=findwindow("ThunderFormDC","Form1")
if dhwnd>0 then
thwnd=findwindowex(dhwnd,byval 0&,"Shell Embedding",vbnullstring)
if thwnd>0 then
thwnd=findwindowex(thwnd,byval 0&,"Shell DocObject View",vbnullstring)
if thwnd>0 then
thwnd=findwindowex(thwnd,byval 0&,"Internet Explorer_Server",vbnullstring)
if thwnd>0 then
thwnd=findwindowex(thwnd,byval 0&,"MacromediaFlashPlayerActiveX",vbnullstring)
end if
end if
end if
end if

这样去获得FlASH的句柄根本得不到，只能得到IE的。
[/Quote]

我用此方法获得的 webbrowser控件里的flash的hwnd 与用spy++ 获得的一样哦

LiuHuitao 2009-05-31

打赏
举报

[Quote=引用 3 楼 homeyone 的回复:]
哎，自己搞定了，原来如果你要定义FLSAH就要直接访问FLASH，否则获取不到。
结贴
[/Quote]

能说的更具体些吗？

Redsun248 2009-05-13

打赏
举报

homeyone 2009-04-23

打赏
举报

哎，自己搞定了，原来如果你要定义FLSAH就要直接访问FLASH，否则获取不到。
结贴

homeyone 2009-04-21

打赏
举报

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Dim dHwnd As Long
Dim tHwnd As Long
dhwnd=findwindow("ThunderFormDC","Form1")
if dhwnd>0 then
thwnd=findwindowex(dhwnd,byval 0&,"Shell Embedding",vbnullstring)
if thwnd>0 then
thwnd=findwindowex(thwnd,byval 0&,"Shell DocObject View",vbnullstring)
if thwnd>0 then
thwnd=findwindowex(thwnd,byval 0&,"Internet Explorer_Server",vbnullstring)
if thwnd>0 then
thwnd=findwindowex(thwnd,byval 0&,"MacromediaFlashPlayerActiveX",vbnullstring)
end if
end if
end if
end if

这样去获得FlASH的句柄根本得不到，只能得到IE的。

homeyone 2009-04-21