关于GetKeyboardState获取按键状态的疑问...

Question

  Private Sub Timer2_Timer()
          Dim i     As Integer
          Dim s As Long
          s = 0
          Dim Key(0 To 255)         As Byte
          Dim dl     As Long
          Dim KeyCode     As Long
          Dim KeyName     As String * 256
          'List1.Clear
          dl& = GetKeyboardState(Key(0))       '获取当前按键状态
                    For i = 0 To 254
                            If Key(i) And &H80 Then 
                                 s = 1
                  Print Key(i)   
                     KeyCode& = MapVirtualKey(i, 0)
                  dl& = GetKeyNameText(KeyCode * &H10000, KeyName, 255)
                  List1.AddItem "[   " & Left(KeyName, dl&) & "   ]键,虚拟键码为(十进制)∶" & CStr(i) & Chr(13) & Chr(10)
                 Else: If s = 1 And ((Key(i) And &H80) = False) Then List1.AddItem "[   " & Left(KeyName, dl&) & "   ]键弹起": s = 0
   End If
 Next
  End Sub为啥我按下去~~明明没有弹起~它却是按下弹起交替的进行??

Answer 1

因为你的s只有一个，把s也定义为数组，使用s(i)替代现在的s就可以了。

Answer 2

为什么不使用HOOK呢.也不是很复杂.