Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As LongPrivate Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long Public Sub SetKeyState(bState As Boolean) '修改键盘状态Dim aBuffer(0 To 255) As Byte '定义数组作为缓冲区GetKeyboardState aBuffer(0)
'获取键盘状态放入缓冲区aBuffer(vbKeyCa...