Keyboard Capture

[finn0013]

Anyone know how to create a keyboard capture app in VB?

I need this to monitor a windows 98 machine. I have tried using the GetMessage API call, however I don't have much practice with the API so I may just be doing it wrong...

Also, does anyone know of a way (in VB) to bypass the messaging queues and get data directly from the Raw Input Thread?

[sunnyl]

About key monitoring (logging?). You can use the GetAsyncKeyState API.

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Sub ScanForKey()
    Do
        For i = 3 To 255
            If GetAsyncKeyState(i) Then
                Debug.Print Chr(i)
            End If
        Next
        DoEvents
        Sleep 100
    Loop
End Sub