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

答案:2 悬赏:70 手机版

解决时间 2021-02-24 04:56

提问者网友：心牵心
2021-02-23 14:18

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

最佳答案

五星知识达人网友：愁杀梦里人
2021-02-23 15:32

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

全部回答

1楼网友：摆渡翁
2021-02-23 17:08

plugin yx = window.mousepoint() delay 500 plugin s = window.getclientrect(yx) xyarray = split(s, "|", -1, 1) dx = xyarray(0) dy = xyarray(1) delay 500 rem a plugin bkgnd.leftclick(yx, 888-dx, 585-dy) delay 500 goto a 运行前一定要点击一下游戏画面，然后运行脚本，不然无法后台。注意，是游戏画面！请及时采纳！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息