View difference between Paste ID: 1mVb9Q99 and JZw3yQEj

 Imports System.Net.Mail
 
 
 Public Class Form1
     Dim emailaddress As String
     Dim password As String
     Dim port As Integer
     Dim host As String
     Public Property Multiselect As Boolean
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         If max.Text = "" Then
             Timer1.Start()
         Else
             Me.Timer1.Interval = max.Text
             Me.Timer1.Enabled = True
         End If
         If sender.Text.Length = 0 Then Timer1.Stop()
         sent.Text = 0
 
 
 
     End Sub
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         Timer1.Stop()
 
     End Sub
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
         emailaddress = usernamebox.Text
         password = passwordbox.Text
         If emailaddress.ToLower.Contains("@hotmail") Or emailaddress.ToLower.Contains("@live") Or emailaddress.ToLower.Contains("@msn") Then
             port = 587
             host = "Smtp.live.com"
         ElseIf emailaddress.ToLower.Contains("@gmail") Then
             port = 587
             host = "smtp.gmail.com"
         ElseIf emailaddress.ToLower.Contains("@aol") Then
             port = 587
             host = "smtp.aol.co.uk"
         ElseIf emailaddress.ToLower.Contains("@yahoo") Then
             port = 465
             host = "smtp.mail.yahoo.com"
         End If
         Dim MyMailMessage As New MailMessage()
 
         Dim SMTPServer As New SmtpClient
 
         MyMailMessage.From = New MailAddress(emailaddress)
         MyMailMessage.To.Add(tobox.Text)
 
         MyMailMessage.Subject = (subjectbox.Text)
 
         MyMailMessage.Body = messagebox.Text
 
         If Not Browse.Text = Nothing Then
             Dim attach As Net.Mail.Attachment = New Net.Mail.Attachment(Browse.Text)
             MyMailMessage.Attachments.Add(attach)
         End If
 
         SMTPServer.Port = port
         SMTPServer.Host = host
 
         SMTPServer.EnableSsl = True
 
         SMTPServer.Credentials = New System.Net.NetworkCredential(emailaddress, password)
 
 
         Try
             sent.Text = Val(sent.Text + 1)
             SMTPServer.Send(MyMailMessage)
             If sent.Text = max.Text Then Timer1.Stop()
         Catch exc As Net.Mail.SmtpException
             Timer1.Stop()
             sent.Text = 0
             MsgBox("Check Your password, Your Email and To Email! Read 'Help and Info' for Details")
 
         End Try
         If email.Checked = True Then
             My.Settings.username = usernamebox.Text
             My.Settings.Save()
             My.Settings.Reload()
         End If
         If pass.Checked = True Then
             My.Settings.password = passwordbox.Text
             My.Settings.Save()
             My.Settings.Reload()
         End If
 
     End Sub
     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
         Dim file As String
         Me.OpenFileDialog1.Multiselect = True
         Me.OpenFileDialog1.Title = "Browse Attachments..."
         If OpenFileDialog1.ShowDialog = DialogResult.OK Then
             For Each file In OpenFileDialog1.FileNames
                 browse.Items.Add(file)
             Next
         End If
 
 
     End Sub
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         usernamebox.Text = My.Settings.username
         passwordbox.Text = My.Settings.password
 
 
     End Sub
     Private Sub Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clear.Click
         My.Settings.password = passwordbox.Text
         My.Settings.Reset()
         My.Settings.Reload()
         My.Settings.username = usernamebox.Text
         My.Settings.Reset()
         My.Settings.Reload()
         usernamebox.Text = Nothing
         passwordbox.Text = Nothing
     End Sub
     Private Sub clearall_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearall.Click
         Dim tbox As Control
         For Each tbox In Me.Controls
             If TypeOf tbox Is TextBox Then
                 tbox.Text = Nothing
             End If
         Next
         sent.Text = 0
     End Sub
     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
         Form3.Show()
     End Sub
     Private Sub passwordbox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles _
     passwordbox.Validating ' enz....
 
         If sender.Text.Length = 0 Then
 
             e.Cancel = False
             sender.Select(0, sender.Text.Length)
             ErrorProvider1.SetError(sender, "necessary input!")
 
         Else
             ' everything is ok
             ErrorProvider1.SetError(sender, "")
 
         End If
 
     End Sub
     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
         End
     End Sub
     Private Sub usernamebox_Validating(ByVal sender1 As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles _
    usernamebox.Validating ' enz....
 
         If InStr(1, sender1.text, "@hotmail") Or InStr(1, sender1.text, "@gmail") Or InStr(1, sender1.text, "@live") Or InStr(1, sender1.text, "@yahoo") Or InStr(1, sender1.text, "@aol") Or InStr(1, sender1.text, "@msn") Then
 
             'everything is ok
             ErrorProvider1.SetError(sender1, "")
         Else
             e.Cancel = False
             ErrorProvider1.SetError(sender1, "Check This! Read 'Help and info' for more info!")
         End If
     End Sub
     Private Sub tobox_Validating(ByVal sender2 As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles _
     tobox.Validating ' enz....
 
         If InStr(1, sender2.text, "@") Then
             ErrorProvider1.SetError(sender2, "")
         Else
             e.Cancel = False
             ErrorProvider1.SetError(sender2, "Check This! Read 'Help and info' for more info!")
         End If
 
     End Sub
 
     Private Sub browse_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browse.SelectedIndexChanged
         While browse.SelectedItems.Count > 0
             browse.Items.Remove(browse.SelectedItem)
         End While
     End Sub
-End Class
+End Class