vb编写一个鼠标控制程序

来源：百度知道 编辑：UC知道 时间：2024/05/16 14:29:28
我学过一点VB，想编写一个控制鼠标的小程序玩，就是控制游戏窗口里的鼠标实现单击，双击等动作，不知该如何下手，高手能给我介绍下步骤吗？听说要用到调用windows的API函数，我试了几次没有成功，我的操作系统是vista，能给我段代码最好了，要确实能用的，如果成功的话，会让我有信心继续学习vb，高手指点一下，好的话一定加分，请说的详细点，谢谢！

这是我以前做的一个鼠标连点器，把源码给你吧

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Const MOUSEEVENTF_LEFTDOWN = &H2

Const MOUSEEVENTF_LEFTUP = &H4

Const MOUSEEVENTF_RIGHTDOWN = &H8

Const MOUSEEVENTF_RIGHTUP = &H10

Private Sub Command3_Click()

End

End Sub

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Value

Timer1.Interval = HScroll1.Value

End Sub

Private Sub Timer1_Timer()

If Option1.Value = True Then mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

If Option2.Value = True Then mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0,