Print "Bitte tasten drücken!"
Dim T_TastenwertAktuell(255) As Integer 'Variablen für 255 Tastencodes
Dim T_TastenwertZuletzt(255) As Integer 'Variablen für 255 Tastencodes
Do
For X As Uinteger = 1 To 150 '150 Tastencodes durchgehen udn deren Zustand prüfen
T_TastenwertZuletzt(X) = T_TastenwertAktuell(X) 'Den Letzten Wert speichern
T_TastenwertAktuell(X) = Multikey(X) 'Einen neuen Wert erfassen
If T_TastenwertAktuell(X) = 0 Then
'Die Gewählte Taste ist aktuell gedrückt
If T_TastenwertZuletzt(X) = 0 Then
'Zuvor war die Taste ebenfalls nicht gedrückt
Else
'Zuvor WAR die Taste bereits gedrückt
'Wenn aktuelle nicht gedrückt ist, aber zuvor gedruckt war, dann ist hier das ""Loslassen ereigniss.
Print "Key up " & Str(X)
End If
Else
'Die Gewählte Taste ist aktuelle NICHT gedrückt
If T_TastenwertZuletzt(X) = 0 Then
'Zuvor war die Taste ebenfalls nicht gedrückt
'Wenn aktuelle gedrückt ist, aber zuvor nicht gedruckt war, dann ist hier das ""Drücken ereigniss.
Print "Key down " & Str(X)
Else
'Zuvor WAR die Taste bereits gedrückt
'Hier kann man z.B. anzeigen lassen, wenn eine Taste dauerhaft gedrückt bleibt
Print "Key hold down " & Str(X) & " " & Timer()
End If
End If
Next
Sleep 100, 1
Loop
End 0