[vb]按住SHIFT,用鼠标点击一下屏幕上的任何一个地方,鼠标就会自动连续点击10下

朋友你好我想用VB做一个这样的程序启动这个程序后,这个程序就有如下功能按住SHIFT,用鼠标点击一下屏幕上的任何一个地方,鼠标就会自动连续点击10下这个如何能够实现呢我是... 朋友你好
我想用VB做一个这样的程序
启动这个程序后,这个程序就有如下功能
按住SHIFT,用鼠标点击一下屏幕上的任何一个地方,鼠标就会自动连续点击10下
这个如何能够实现呢
我是初学者,也就是菜鸟
这样的问题对我来说无疑是最难的
展开
 我来答
匿名用户
2013-09-07
展开全部
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button upPrivate Sub Form_Click()
MsgBox ""
End SubPrivate Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Dim a As Long
a = 0
If GetAsyncKeyState(vbKeyShift) Then
MsgBox "茄配请把鼠标移到你如纳蠢想连点10下的地方按ENTER"
Do
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0: mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
a = a + 1
If a > 10 Then Exit Do
Loop
End IfEnd Sub 一渣陪样满足你的要求
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式