Question

vb鼠标点击事件

利用vb做后台点击程序。比如向窗体的web控件的10，10坐标发送点击事件。当窗体最小化后，仍然可以执行的。不要移动鼠标的。

Answer 1

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' 左键按下Private Const MOUSEEVENTF_LEFTUP = &H4 ' 左键抬起
Private Const MOUSEEVENTF_MOVE = &H1 ' 鼠标移动 在需要操作鼠标的地方调用如下两句
Call Mouse_Event(MOUSEEVENTF_LEFTDown,10,10,0,0) '让鼠标在10,10位置按下 Call Mouse_Event(MOUSEEVENTF_LEFTUP,10,10,0,0) '让鼠标在10,10位置抬起这两句代码的操作就相当于我们单击一次鼠标（先按下然后抬起）如果你需要做移动鼠标到某个位置的话，可以用这个API来实现（用Mouse_Event里的MOUSEEVENTF_MOVE需要将你的相对屏幕的坐标按屏幕65535X65535的比例进行转换成绝对座标才可以） Private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
在需要移动鼠标的地方调用如下：Call SetCursorPos(10,10) '这里的10,10就是屏幕相对当前分辨率而言的绝对坐标