如何使用SendMessage函数实现模拟鼠标点击按钮事件

2024-12-21 12:12:33

推荐回答（1个）

回答1：

你在开始菜单VB那项可以找到Microsoft Visual Studio 6.0 Tools里的API Text Viewer，打开然后加载WIN32API.txt就可以找你要的东西了…

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

这行写在代码最前面或一个模块文件里，
后面只要调用SendMessage函数就可以了，

Public Const WM_COMMAND = &H111

这个常量是一般点击按钮所用的消息代码，具体用法你可以百度下…
SendMessage(窗口句柄, WM_COMMAND, 控件ID号, 0)
控件ID号是比较烦的东西…建议你看下Windows的消息机制…