Question

求一个按键精灵鼠标左右连点脚本

要求是能够按住某一个键开始，而松开的时候是停止脚本，就是要按住键盘这个符号~鼠标左键点击一次延时300毫秒，鼠标右键点击一次延时200毫秒无限循环 直到松开~脚本停止 ，在按~开始脚本 松开~停止脚本！人在线等急急急急急急急！发到我邮箱247188274@qq.com

Answer 1

Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal vKey As Long) As Integer
Dim Astat //定义状态记录变量
Astat = 0//赋初值， =0表示没有被按下
Global asas
While 1
n= GetKeyState(192) //A
If n<>Astat Then
Astat = n
If (n >= 0) Then
asas = 1
Else
asas = 0
线程ID=BeginThread(abc)
end if
End If
Wend
Sub abc
Do
LeftClick 1
Delay 300
RightClick 1
Delay 200
Loop Until asas=1
End sub