VB 2005如何使用GetAsyncKeyState的API?

ekineng

我现在想做一个keylogger的软件，但是我不懂如何用GetAsyncKeyState的API。
这是我的code:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim mythread As New Thread(AddressOf getKey)
        mythread.Start()
    End Sub

    Private Sub getKey()
        Dim pressNum As Short
        Dim key As Integer

        While True
            pressNum = GetAsyncKeyState(41) //41 is key 'A'
            If pressNum <> 0 Then
                Exit While
            End If
        End While
        MsgBox("A")
   End Sub

每一次我按key 'A' 时都没有popup message

fxam

41 並非 A
&H41 才是