求大神制作一个按键精灵脚本，按下一个键开始松开结束

Question

按下Q键开始2和R的循环（期间2和R延迟为25毫秒）。松开Q键结束。 自己制作了一个，但是中途老是会出现Q这个按键。
SetSimMode 2Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As IntegerDox = WaitKeya = GetAsyncKeyState(71)While a <> 0KeyPress "r", 1 KeyPress "2", 1
a = GetAsyncKeyState(71)WendDelay 0
Loop
大神们快来，分全给上了。

Answer 1

我是个菜鸟虽然不懂，但是我可以这样啊，给你思路。

追问

能给个代码吗

追答

Rem 开始x = WaitKey()If x=81 Then KeyPress "BackSpace", 1 KeyPress "2", 1 Delay 25 KeyPress "R", 1 Delay 25 Goto 开始 ElseGoto 开始End If

追问

在记事本里面使用，中间还是会不停的出现Q这个字母，而且很多次啊。Q能换成鼠标侧键吗？

追答

这个是按键弹起后做的判定，按下开始，弹起关闭。我还不会呢。

Answer 2

Rem 啊

Delay 25

KeyPress "2", 1

Delay 25

KeyPress "R", 1

Goto 啊

关键是 把 暂停快捷键设置为 Q键

追问

你这个是设置的按下Q开始，再按一次Q才结束。

追答

不是的
你不安Q 他会一直继续
按Q 就暂停了