vb 模拟鼠标按下

来源：百度知道 编辑：UC知道 时间：2024/05/09 13:52:19
请问怎样用VB模拟鼠标点击

能不能不用API函数阿
就是类似于键盘的 SendKeys 这种方法
在当前程序就行

可以使用Sendmessage，不过使用方法很丰富，要好好实践一段时间才好掌握

不用API一般可以在当前程序进行模拟，而Sendmessage可以跨窗口使用

在当前程序中，可以使用如下语句，其中的常量可以查找添加，多练习几次，很容易的：
SetCursorPos(x,y)
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0)
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0)

直接 call 那个控件的 click 响应函数。

代码：
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Timer1_Timer()
Call keybd_event(82, 0, 0, 0) '模拟按下"R"键
End Sub