200分求VB使用WINIO模拟鼠标左键源码

来源：百度知道 编辑：UC知道 时间：2024/09/22 14:31:10
暂时给100分，能用的话追加100分！
要求，F2快捷开始，鼠标移开50×50的距离或当前颜色变了则停止

能调整点击间隔时间。。。

要源码！！！谢谢
网上现成的那个我看过，我不会弄！发过那个来也不给分啊！就是这个http://www.game191.com/read.php?tid=490别给我发啊！发了不给分！！
我要我要求的那个源码！F3停止也行

mouse_event不能用，就得要winio的

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 )
模拟动作
mouse_event &H4 Or &H2, 0, 0, 0, 0 '左键单击
mouse_event &H8 Or &H10, 0, 0, 0, 0 '右键单击
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
模拟移动
SetCursorPos 50, 50 '移动到50 * 50

+QQ834955616给你