[HC Official] Email Spammer - Printable Version

Code:
Imports System.Net.Mail

Public Class Form1

    Dim s1 As Integer = 0
    Dim p As Integer
      
    Private Sub GhostButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhostButton3.Click
        Application.Exit()
    End Sub

    Private Sub GhostButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhostButton2.Click
        BackgroundWorker1.CancelAsync()
    End Sub
    Private Sub clear()
        Label12.Visible = False
        Label13.Visible = False
        Label14.Visible = False
        Label15.Visible = False
        Label16.Visible = False
        GhostTextBox6.ReadOnly = True
        GhostTextBox7.ReadOnly = True
    End Sub

    Private Sub GhostButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhostButton1.Click
        Select Case String.Empty
            Case GhostTextBox1.Text
                Label12.Visible = True
            Case GhostTextBox2.Text
                Label13.Visible = True
            Case GhostTextBox5.Text
                Label14.Visible = True
            Case GhostTextBox6.Text, GhostTextBox7.Text
                Label15.Visible = True
                Label16.Visible = True
                MessageBox.Show("Please choose your Mail Provider", "Mail Provider Not Chosen", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Case Else
                clear()
                s1 = 0
                ProgressBar1.Value = 0
                ProgressBar1.Update()
                GhostButton1.Enabled = False
                GhostButton3.Enabled = False
                GhostButton2.Enabled = True
                If NumericUpDown1.Value = 0 Then
                    MessageBox.Show("Please select how many mails do you want to sent!", "How many mail to be sent ?", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    BackgroundWorker1.RunWorkerAsync()
                    ProgressBar1.Maximum = NumericUpDown1.Value
                    ProgressBar1.Value = 0
                End If
        End Select
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Try
            Dim msg As New MailMessage()
            msg.From = New MailAddress(GhostTextBox1.Text)
            msg.To.Add(GhostTextBox5.Text)
            msg.Subject = (GhostTextBox4.Text)
            msg.Body = GhostTextBox3.Text
            For counter = 0 To ListBox1.Items.Count - 1
                Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment(ListBox1.Items(counter))
                msg.Attachments.Add(Attach)
            Next
            Dim SMTPServer As New SmtpClient
            SMTPServer.Host = GhostTextBox6.Text
            SMTPServer.Port = GhostTextBox7.Text
            SMTPServer.Credentials = New System.Net.NetworkCredential(GhostTextBox1.Text, GhostTextBox2.Text)
            SMTPServer.EnableSsl = True
            Do Until s1 = NumericUpDown1.Value
                If BackgroundWorker1.CancellationPending Then
                    Exit Sub
                End If
                SMTPServer.Send(msg)
                s1 = s1 + 1
                Me.ProgressBar1.Value = s1
            Loop
            MessageBox.Show("All the Mail has been Sent!", "Mail Sent", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ProgressBar1.Value = 0
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        For Each fls As String In OpenFileDialog1.FileNames
            ListBox1.Items.Add(fls)
        Next
    End Sub

    Private Sub GhostButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhostButton4.Click
        OpenFileDialog1.ShowDialog()
    End Sub
    Private Sub donework(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        GhostButton1.Enabled = True
        GhostButton3.Enabled = True
        GhostButton2.Enabled = False
    End Sub

    Private Sub GhostButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhostButton5.Click
        If ListBox1.Items.Count = 0 Then
            MessageBox.Show("No attachments to clear", "No Attachments", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            ListBox1.Items.Clear()
        End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex
            Case 1
                GhostTextBox6.ReadOnly = False
                GhostTextBox7.ReadOnly = False
            Case 2
                GhostTextBox6.Text = "smtp.gmail.com"
                GhostTextBox7.Text = "587"
            Case 3
                GhostTextBox6.Text = "smtp.mail.yahoo.com"
                GhostTextBox7.Text = "465"
            Case 4
                GhostTextBox6.Text = "smtp.live.com"
                GhostTextBox7.Text = "587"
            Case 5
                GhostTextBox6.Text = "smtp.aol.com"
                GhostTextBox7.Text = "587"
        End Select
    End Sub
End Class