控制其它窗体的按钮点击事件
2005-04-19 18:56
405 查看
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
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 Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://popo.163.com/download.shtml"
End Sub
Private Sub Timer1_Timer()
Dim lngFrmHwnd As Long
Dim lngBtnHwnd As Long
lngFrmHwnd = FindWindow(vbNullString, "文件下载 - 安全警告") '修改窗口标题
If lngFrmHwnd > 0 Then
lngBtnHwnd = FindWindowEx(lngFrmHwnd, ByVal 0&, "BUTTON", vbNullString)
End If
If lngBtnHwnd > 0 Then
SendMessage lngBtnHwnd, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&
SendMessage lngBtnHwnd, WM_LBUTTONUP, ByVal 0&, ByVal 0&
Timer1.Enabled = False
End If
End Sub
Private Sub WebBrowser1_FileDownload(Cancel As Boolean)
Timer1.Enabled = True
Timer1.Enabled = 100
End Sub
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
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 Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://popo.163.com/download.shtml"
End Sub
Private Sub Timer1_Timer()
Dim lngFrmHwnd As Long
Dim lngBtnHwnd As Long
lngFrmHwnd = FindWindow(vbNullString, "文件下载 - 安全警告") '修改窗口标题
If lngFrmHwnd > 0 Then
lngBtnHwnd = FindWindowEx(lngFrmHwnd, ByVal 0&, "BUTTON", vbNullString)
End If
If lngBtnHwnd > 0 Then
SendMessage lngBtnHwnd, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&
SendMessage lngBtnHwnd, WM_LBUTTONUP, ByVal 0&, ByVal 0&
Timer1.Enabled = False
End If
End Sub
Private Sub WebBrowser1_FileDownload(Cancel As Boolean)
Timer1.Enabled = True
Timer1.Enabled = 100
End Sub
相关文章推荐
- .NET WinForms中点击窗体右上角的关闭按钮后的事件处理
- 对无边框的QT窗体设置点击任务栏按钮最小化和还原事件
- QT窗体设置点击任务栏按钮最小化和还原事件
- Go语言Windows程序设计(4)--处理子窗体消息之按钮点击事件
- WINFORM 程序中点击 窗体关闭按钮事件弹提醒框
- 对无边框的QT窗体设置点击任务栏按钮最小化和还原事件
- unity开发 HTC vive手柄控制 手柄上各个按钮的点击事件
- Unity3d开发 HTC vive手柄控制 手柄上各个按钮的点击事件
- 我想点击窗体右上方的最小化图标,整个窗体最小化到系统托盘,不知在那里控制最小化的事件
- Go语言Windows程序设计(4)--处理子窗体消息之按钮点击事件
- Unity_DOTween动画的学习(十一)_DOTweenPath路径编辑器的使用补充_结合按钮触发不同点击事件控制播放状态_Waypoints
- 窗体继承,然后实现按钮点击事件的重写
- [VB.NET]点击窗体上面的关闭按钮时,激发的是哪个事件?
- 对无边框的QT窗体设置点击任务栏按钮最小化和还原事件
- Popupwindow 显示, 其它背景变暗。 并加上点击事件 ~ (用于记录)
- datagridview 单击特定单元格触发事件 单击按钮列触发事件 (处理点击header触发事件异常)
- 在android中用代码触发一个按钮的点击事件的代码是: buttonName.performClick();
- DuiLib : 执行按钮事件, 模拟按钮的点击
- 自定义导航栏返回按钮点击事件
- JavaScript 弹出窗体点击按钮返回选择数据的实现