Question

按键精灵 如何实现按住某个键的时候执行无限执行一个循环 松开这个键循环就终止呢

Dim LastX,LastY,x,y,ex,ey
While True
GetCursorPos LastX,LastY
Delay 30
GetCursorPos x,y
ex = x - LastX
ey = y - LastY
If ey>0
KeyPress 73,1
Delay 10
ElseIf ey < 0
KeyPress 75,1
Delay 10
EndIf
LastX = x : LastY = y
MoveTo 700, 500
EndWhile

这段是已经写好的循环代码 我现在想加入按住左shift的时候无限执行这段代码 该如何实现呢 求大神帮帮忙

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

Answer 1

Dim LastX, LastY, x, y, ex, ey
Rem key
Key=WaitKey()
While Key = 16
GetCursorPos LastX,LastY
Delay 30
GetCursorPos x,y
ex = x - LastX
ey = y - LastY
If ey>0
KeyPress 73,1
Delay 10
ElseIf ey < 0
KeyPress 75,1
Delay 10
EndIf
LastX = x : LastY = y
MoveTo 700, 500
Goto key
EndWhile