Question

VB模拟鼠标

在后台自动工作
当鼠标左键单击时
模拟鼠标向下移动
当松开左键时
停止移动

Answer 1

用不着钩子，就是捕获鼠标状态、获得鼠标位置、重新定位鼠标的一个过程，加个计时器：

Private Declare Function GetAsyncKeyState Lib "user32 " (ByVal vkey As Long) As Integer
Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal y As Long)
Private Declare Function GetCursorPos& Lib "user32" (xy As PointAPI)
Private Type PointAPI
x As Long: y As Long
End Type

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Dim MyKey As Long, dl As Long, xy As PointAPI
MyKey = GetAsyncKeyState(vbKeyLButton)

If MyKey = -32768 Or MyKey = -32767 Then
dl = GetCursorPos(xy)
SetCursorPos xy.x, xy.y + 10
End If
End Sub

Answer 2

可能要用勾子拦截系统消息，还是等着看高手是怎么解决的。

Answer 3

期待。。。。

Answer 4

做过后台点击广告的程序
不知道你说的是不是
要的话可以找我