怎样实现鼠标自动移动？

[sf8989]

我现在想写一个小程序，运行后会自动移动鼠标，就是我不用手动它，让TIMER 控件去让鼠标满屏幕的走，希望大哥大姐们指点一二，最好能有类似的例子发个给我，我的邮箱：[e-mail]

[兔子-顾问]

api
具体没想过细节。

[maybelian]

使用mouse_event api函数

[sf8989]

maybelian(maybelian)： 使用mouse_event api函数

还是不会用，能不能详细一点，谢谢！！

[maybelian]

现声明api函数及用到的常量：
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer)
Const MOUSEEVENTF_MOVE As Integer = &H1 '/* mouse move */
Const MOUSEEVENTF_ABSOLUTE As Integer = &H8000 '/* absolute move */

然后可以写一个函数如下：
Private Sub MoveMouse(ByVal dwX As Integer, ByVal dwY As Integer)
Me.mouse_event(MOUSEEVENTF_MOVE , dwX, dwY, 0, 0)
End Sub
接着你在timer控件的Tick事件里调用MoveMouse函数并传不同的dwX和dwY值（注：这里的dwX和dwY是相对坐标；如果你指定为(MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE),则他们指定的是绝对坐标位置，（0，0）对应屏幕的左上角，（65535，65535）对应屏幕右下角，就可以实现你的目的了

还要声明一点，其实很多东西还是自己要学会去查资料：）

[sf8989]

非常感谢!