Question

按键精灵如何调用获取按键状态的api

如题，需要知道获取按键状态的api，要求在按住某一个键不松的情况下，按第二个键也能够检测出来的，如果能够防抖最好，不能也行。能够用按键精灵调用的写法，感谢！

Answer 1

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Function 获取键盘按键状态(键盘码)
Dim 按键状态

按键状态 = GetKeyState(键盘码)
If 按键状态 < 0 Then
//按下状态
获取键盘按键状态 = 1
Else
//弹起状态
获取键盘按键状态 = 0
End If
End Function