191问答库 > 按键精灵设置按下F1，则执行每0.2秒按一次F1，执行次数不定，直到弹起F1，终止按F1

按键精灵设置按下F1，则执行每0.2秒按一次F1，执行次数不定，直到弹起F1，终止按F1

2025-03-10 10:41:49

推荐回答（1个）

回答1：

这个要调用系统API才能实现，实现代码如下

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Dim key, n
key = 112//F1的按键码=112
WaitKey
Do
n = GetAsyncKeyState(key)
If n < 0 Then
KeyPress "F1", 1
Delay 200
RestartScript
Else
RestartScript
End If
Delay 500
Loop