Question

vb编写一个鼠标控制程序

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

Answer 1

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

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, 0, 0, 0

If Option3.Value = True Then

mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

End If

End Sub

Private Sub Timer2_Timer()

If GetAsyncKeyState(vbKeyF1) Then Timer1.Enabled = True

If GetAsyncKeyState(vbKeyF2) Then

Timer1.Enabled = False

MsgBox "已停止连点！", vbInformation, "小翟提示"

End If

End Sub

Answer 2

nafen

Answer 3

心翔zsd 的不错