vb 模拟鼠标点击

来源：百度知道 编辑：UC知道 时间：2024/05/09 05:13:46
如何用vb模拟鼠标在屏幕的x = 10 : y = 20 的位子上点击一下左键？？？

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '这个是设置鼠标的位置!

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) '定义鼠标事件
'上面的是声明部分.只有声明了,才可以使用..

'代码部分
Call SetCursorPos(10, 20)'让鼠标移动到(10,20)

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击!

mouse_event MOUSEEVENTF_MOVE,10,10,0,0