Question

VB 控制鼠标移动

启动软件后
我希望他能够在1秒后让鼠标向下移动50像素，再过1秒后向上移动50像素

Answer 1

加QQ 497376106 交流交流VB
重复键盘鼠标动作可以下载 按键精灵 这个软件 ，可以记录鼠标键盘动作。。还可以编一些辅助脚本。。

Answer 2

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)
Private Const MOUSEEVENTF_MOVE = &H1 'Mouse move
Private mTimeCount As Integer

Private Sub Form_Load()
mTimeCount = 0
Timer1.Interval = 1000 '设置1秒时钟
End Sub

Private Sub Timer1_Timer()
Dim v_x As Long
Dim v_y As Long

If mTimeCount = 0 Then
v_x = 0 '设置x坐标
v_y = 50 '设置y坐标
mTimeCount = mTimeCount + 1
Else
v_x = 0 '设置x坐标
v_y = -50 '设置y坐标
mTimeCount = 0
End If
Call mouse_event(MOUSEEVENTF_MOVE, v_x, v_y, 0&, 0&)

End Sub

感觉楼主要这个功能有点无聊，不过挺好玩滴，嘿嘿。