vb程序中webbrowser 接受SendMessage 的消息
来源:互联网 发布:java实战项目案例 编辑:程序博客网 时间:2024/05/19 22:47
webbrowser 不能收到SendMessage的消息
主要是因为1webbrowser 的句柄找不到。经过努力搜索,终于解决了。做个记录.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
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
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const MK_LBUTTON = &H1
'获得webbrowser的句柄
Public Function GetBrowserWindow(窗体句柄 As Long) As Long
Dim hwndPeer As Long
hwndPeer = FindWindowEx(窗体句柄, 0, "Shell Embedding", vbNullString)'网上很多帮助就找到这里就结束了,那是不能收到消息的。
hwndPeer = FindWindowEx(hwndPeer, 0, "Shell DocObject View", vbNullString)
hwndPeer = FindWindowEx(hwndPeer, 0, "Internet Explorer_Server", vbNullString)
GetBrowserWindow = hwndPeer
End Function
'按钮单击
Private Sub 命令_Click()
Dim t As String, x As Long, y As Long, w As WebBrowser, wbhwnd As Long, k As Long
x = 537'从WebBrowser控件左上角起0,0,坐标不是平时left、right、top、height那个坐标,可以直接复制控件到画图里面,看分辨录。
y = 44 * &H10000'弄成高位
wbhwnd = GetBrowserWindow(Form1.hwnd)
k = PostMessage(wbhwnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal ((y) + x))
k = PostMessage(wbhwnd, WM_LBUTTONUP, 0, (x + (y)))
End Sub
'测试通过。
- vb程序中webbrowser 接受SendMessage 的消息
- 接受sendmessage(application.handle..)的消息?
- VB中功能强大的SendMessage函数
- vb利用FindWindow,GetWindowText,SendMessage查找程序并发送最小化消息
- vb利用FindWindow,GetWindowText,SendMessage查找程序并发送最小化消息
- SendMessage函数在两个程序间的消息传递
- 利用SendMessage 发送消息到当前机子的另一个程序
- VB.NET中使用WebBrowser
- SDK中SendMessage与PostMessage消息的不同
- vc中使用SendMessage正确发送自定义消息的方法
- vc中使用SendMessage正确发送自定义消息的方法
- vc中使用SendMessage正确发送自定义消息的方法
- 在VB中使用IE的 WebBrowser控件改进界面设计
- 如何在VB中控制webbrowser的弹出窗口
- VB.net 如何在WebBrowser中插入新的内容
- SendMessage消息参数的用法
- 使用sendMessage向其他程序发送消息
- vb 操作webBrowser的dom
- 书目
- C语言 数据类型修饰符与存储类修饰符
- 别和我谈理想,戒了 !
- 通讯录:C++实现
- 由链表与约瑟夫想起
- vb程序中webbrowser 接受SendMessage 的消息
- .net网站发布总结之经验1-允许更新此预编译站点
- iis与apache共用80端口方法集
- bboss persistent 实现数据库更新操作
- 模拟一个裁判给比赛选手打分
- 在面板上找出点击了哪个按钮
- 短作业优先算法-SJF
- 转的文章,About JSON(javascript object notation) 详细介绍
- 线程的数据结构