1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal _
vKey As Long) As Integer
sub Timer1_timer()
For i = 1 To 255
If (GetAsyncKeyState(i) And 1) = 1 Then key_pressed(i)
Next i
end sub
sub key_pressed(key as integer)
print chr(key)
end sub |