Win编程 订阅所有【Win编程】的日志

VB获取窗体上的按钮控件并单击示例

编辑:dnawo 日期:2009-09-03

字体大小: 小 中 大
例一：自动点击计算器上的个按钮

Module1.bas：
复制内容到剪贴板程序代码 程序代码
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_LBUTTONDOWN = &H201 '左键按下
Public Const WM_LBUTTONUP = &H202 '左键弹起
Public Const MK_LBUTTON = &H1
Public Const BM_CLICK = &HF5 '单击

form1代码：
复制内容到剪贴板程序代码 程序代码
Private Sub Form_Load()
    Dim calc, btn_1, btn2, btn_3 As Long
    
    calc = FindWindow("SciCalc", vbNullString) '获取计算器句柄
    'calc = FindWindowEx(0, 0, "SciCalc", vbNullString) '同上
    
    btn_1 = FindWindowEx(calc, 0, "Button", "1") '获取按钮1句柄
    btn_2 = FindWindowEx(calc, 0, "Button", "2") '获取按钮2句柄
    btn_3 = FindWindowEx(calc, 0, "Button", "3") '获取按钮3句柄

    PostMessage btn_1, WM_LBUTTONDOWN, 0, ByVal 0 '鼠标在按钮1按下
    PostMessage btn_1, WM_LBUTTONUP, 0, ByVal 0 '鼠标在按钮1弹起
    PostMessage btn_2, WM_LBUTTONDOWN, 0, ByVal 0 '鼠标在按钮2按下
    PostMessage btn_2, WM_LBUTTONUP, 0, ByVal 0 '鼠标在按钮2弹起
    PostMessage btn_3, WM_LBUTTONDOWN, 0, ByVal 0 '鼠标在按钮3按下
    PostMessage btn_3, WM_LBUTTONUP, 0, ByVal 0 '鼠标在按钮3弹起
    
    '效果同上
    'PostMessage btn_1, BM_CLICK, 0, 0 '单击按钮1
    'PostMessage btn_2, BM_CLICK, 0, 0 '单击按钮2
    'PostMessage btn_3, BM_CLICK, 0, 0 '单击按钮3
End Sub

例二：自动点击扫雷程序的第一个方块

Module1.bas：
复制内容到剪贴板程序代码 程序代码
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const MK_LBUTTON = &H1

form1代码：
复制内容到剪贴板程序代码 程序代码
Private Sub Form_Load()
    Dim winmine As Long
    Dim lp As Long
    
    winmine = FindWindow("扫雷", vbNullString) '获取扫雷程序句柄
    lp = 60 * 65536 + 15 'Y * 65536 + X
    
    PostMessage winmine, WM_LBUTTONDOWN, MK_LBUTTON, ByVal lp
    PostMessage winmine, WM_LBUTTONUP, MK_LBUTTON, ByVal lp
End Sub

分析说明

对于计算器程序，界面上的每个按钮都是一个控件，而扫雷程序，整个窗体就一个控件，无法单独获取到每个按钮控件，所以例一使用的是按钮句柄，而例二使用的是扫雷程序句柄，并且指定了坐标。这边就有个问题：如果例一也改为使用计算器句柄，并指定坐标，结果还会一样吗？测试结果表明：只有计算器窗体能响应鼠标消息，而按钮(子控件)无法响应鼠标消息，就不能激发按钮的点击事件，也就无法正常输入数字！

上一篇: 使用FindWindowEx获取多个窗体示例
下一篇: 从sis文件中提取UID
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志:
评论: 0 | 引用: 0 | 查看次数: 7522
发表评论
请登录后再发表评论！