I AM NOT RESPONSIBLE FOR WHAT HAPPENS TO YOUR EMAIL ACCOUNTS IF YOU USE THIS. THIS IS FOR EDUCATIONAL PURPOSES ONLY
This program may be flagged as a virus. This is because it opens the sender.exe program. As well it modifies files with in its current folder. if you are still worried take a look at the source code below.
Features
- Multiple Emails to send from
- Multiple Emails to send to
- Multiple Messages
- Random Messages
- MPS (Messages Sent Per Second) Meter
- MPS Peak Meter
- Message Sende Rate
- Sent Message Limiter
- Emails sent count
- Stores previous entrys for Your Emails, Email List, and Messages
- Easy Entry. You only have to hit enter to add new entrys to listboxes
- Logs. This will tell you where the emails have been sent in a text box
- Delay Meter. This will tell you in milliseconds how fast the messages are being sent.
- Custom Your Emails. The ability to choose between smtp server, Ports, And any email accounts.
Screen Shots
The Program:

Messagess Sent:

Downloads
Mediafire: https://www.mediafire.com/?pm9bdnd57txk2z5
Virus Scan
Scan: https://www.virustotal.com/en/file/c3f06...415484082/
Mass Email Spammer - Coded By Pass (Jeremy).exe - Source

Code:

Public Class Form1
   Dim AppPath As String = New System.IO.FileInfo(Application.ExecutablePath).DirectoryName
   Dim ol_count = 0
   Dim new_count = 0
   Dim mps_peak = 0
   Private Sub tmrLogs_Tick(sender As Object, e As EventArgs) Handles tmrLogs.Tick
       ol_count = new_count
       If System.IO.File.Exists(AppPath & "\0.txt") Or _
          System.IO.File.Exists(AppPath & "\1.txt") Or _
          System.IO.File.Exists(AppPath & "\2.txt") Or _
          System.IO.File.Exists(AppPath & "\3.txt") Or _
          System.IO.File.Exists(AppPath & "\4.txt") Then
           Try
               txtLogs.Text = ""
               txtLogs.Text = System.IO.File.ReadAllText(AppPath & "\0.txt") & vbCrLf & txtLogs.Text
               txtLogs.Text = System.IO.File.ReadAllText(AppPath & "\1.txt") & vbCrLf & txtLogs.Text
               txtLogs.Text = System.IO.File.ReadAllText(AppPath & "\2.txt") & vbCrLf & txtLogs.Text
               txtLogs.Text = System.IO.File.ReadAllText(AppPath & "\3.txt") & txtLogs.Text
               lblSent.Text = txtLogs.Lines.Length
           Catch ex As Exception
           End Try
       Else
           txtLogs.Text = "No Logs Have Been Generated?"
       End If
       new_count = txtLogs.Lines.Length
       lblMPScount.Text = new_count - ol_count
       If new_count - ol_count > mps_peak Then
           lblMPSpeak.Text = new_count - ol_count
           mps_peak = new_count - ol_count
       End If
   End Sub
   Private Sub Form1_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
       Try
           System.IO.File.Delete(AppPath & "\0.txt")
           System.IO.File.Delete(AppPath & "\1.txt")
           System.IO.File.Delete(AppPath & "\2.txt")
           System.IO.File.Delete(AppPath & "\3.txt")
           System.IO.File.Delete(AppPath & "\4.txt")
       Catch ex As Exception
       End Try
       
   End Sub
   Private Sub btnYEserverhelp_Click(sender As Object, e As EventArgs) Handles btnYEserverhelp.Click
       MsgBox("" & _
              "Gmail Server: smtp.gmail.com | Port: 465" & vbCrLf & _
              "Yahoo Server: .mail.yahoo.com | Port: 465" & vbCrLf & _
              "Hotmail Server: smtp.live.com | Port: 465" & vbCrLf & _
              "AOL Server: smtp.aol.com | Port: 465", , "Help Please!!!!")
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       txtLogs.ReadOnly = True
       load_file("email list")
       load_file("your email list")
       load_file("messages")
   End Sub
   Function load_file(where)
       If where = "email list" Then
           Dim lines() = System.IO.File.ReadAllLines(AppPath & "\emails")
           lbEmailList.Items.AddRange(lines)
       ElseIf where = "your email list" Then
           Dim linesa() = System.IO.File.ReadAllLines(AppPath & "\myemailsnp")
           lbYourEmails.Items.AddRange(linesa)
           Dim linesb() = System.IO.File.ReadAllLines(AppPath & "\myemails")
           lbYE.Items.AddRange(linesb)
       ElseIf where = "messages" Then
           Dim lines() = System.IO.File.ReadAllLines(AppPath & "\messages")
           lbMessages.Items.AddRange(lines)
       End If
   End Function
   Private Sub btnELclear_Click(sender As Object, e As EventArgs) Handles btnELclear.Click
       lbEmailList.Items.Clear()
   End Sub
   Private Sub btnMclear_Click(sender As Object, e As EventArgs) Handles btnMclear.Click
       lbMessages.Items.Clear()
   End Sub
   Private Sub btnYEclear_Click(sender As Object, e As EventArgs) Handles btnYEclear.Click
       lbYourEmails.Items.Clear()
       lbYE.Items.Clear()
   End Sub
   Private Sub btnELdelete_Click(sender As Object, e As EventArgs) Handles btnELdelete.Click
       lbEmailList.Items.RemoveAt(lbEmailList.SelectedIndex)
       Try
           Dim i = 0
           Do Until i = -1
               If i = 0 Then
                   System.IO.File.WriteAllText(AppPath & "\emails", lbEmailList.Items.Item(0))
               Else
                   Dim emails_text = System.IO.File.ReadAllText(AppPath & "\emails")
                   System.IO.File.WriteAllText(AppPath & "\emails", emails_text & vbCrLf & lbEmailList.Items.Item(i))
               End If
               i += 1
           Loop
       Catch ex As Exception
       End Try
   End Sub
   Private Sub btnMdelete_Click(sender As Object, e As EventArgs) Handles btnMdelete.Click
       lbMessages.Items.RemoveAt(lbMessages.SelectedIndex)
       Try
           Dim i = 0
           Do Until i = -1
               If i = 0 Then
                   System.IO.File.WriteAllText(AppPath & "\messages", lbMessages.Items.Item(0))
               Else
                   Dim messages_text = System.IO.File.ReadAllText(AppPath & "\messages")
                   System.IO.File.WriteAllText(AppPath & "\messages", messages_text & vbCrLf & lbMessages.Items.Item(i))
               End If
               i += 1
           Loop
       Catch ex As Exception
       End Try
   End Sub
   Private Sub btnYEdelete_Click(sender As Object, e As EventArgs) Handles btnYEdelete.Click
       lbYE.Items.RemoveAt(lbYourEmails.SelectedIndex)
       lbYourEmails.Items.RemoveAt(lbYourEmails.SelectedIndex)
       Try
           Dim i = 0
           Do Until i = -1
               If i = 0 Then
                   System.IO.File.WriteAllText(AppPath & "\myemails", lbYE.Items.Item(0))
                   System.IO.File.WriteAllText(AppPath & "\myemailsnp", lbYourEmails.Items.Item(0))
               Else
                   Dim myemails_texta = System.IO.File.ReadAllText(AppPath & "\myemails")
                   System.IO.File.WriteAllText(AppPath & "\myemails", myemails_texta & vbCrLf & lbYE.Items.Item(i))
                   Dim myemails_textb = System.IO.File.ReadAllText(AppPath & "\myemailsnp")
                   System.IO.File.WriteAllText(AppPath & "\myemailsnp", myemails_textb & vbCrLf & lbYourEmails.Items.Item(i))
               End If
               i += 1
           Loop
       Catch ex As Exception
       End Try
   End Sub
   Private Sub btnELadd_Click(sender As Object, e As EventArgs) Handles btnELadd.Click
       If txtETBA.Text = "" Then
           MsgBox("You are missing information could not complete the adding of this email.", MsgBoxStyle.Exclamation, "ERROR")
       Else
           lbEmailList.Items.Add(txtETBA.Text)
           txtETBA.Text = ""
           Try
               Dim i = 0
               Do Until i = -1
                   If i = 0 Then
                       System.IO.File.WriteAllText(AppPath & "\emails", lbEmailList.Items.Item(0))
                   Else
                       Dim emails_text = System.IO.File.ReadAllText(AppPath & "\emails")
                       System.IO.File.WriteAllText(AppPath & "\emails", emails_text & vbCrLf & lbEmailList.Items.Item(i))
                   End If
                   i += 1
               Loop
           Catch ex As Exception
           End Try
       End If
   End Sub
   Private Sub lbEmailList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbEmailList.SelectedIndexChanged
       txtETBA.Text = lbEmailList.SelectedItem()
   End Sub
   Private Sub btnYEadd_Click(sender As Object, e As EventArgs) Handles btnYEadd.Click
       If txtYEaccount.Text = "" Or txtYEpassword.Text = "" Or txtYEport.Text = "" Or txtYEserver.Text = "" Then
           MsgBox("You are missing information could not complete the adding of account.", MsgBoxStyle.Exclamation, "ERROR")
       Else
           If Not lbYourEmails.Items.Contains(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text) Then
               lbYE.Items.Add(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text & ";" & txtYEpassword.Text)
               lbYourEmails.Items.Add(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text)
               Try
                   Dim i = 0
                   Do Until i = -1
                       If i = 0 Then
                           System.IO.File.WriteAllText(AppPath & "\myemails", lbYE.Items.Item(0))
                           System.IO.File.WriteAllText(AppPath & "\myemailsnp", lbYourEmails.Items.Item(0))
                       Else
                           Dim YEemails_text = System.IO.File.ReadAllText(AppPath & "\myemails")
                           System.IO.File.WriteAllText(AppPath & "\myemails", YEemails_text & vbCrLf & lbYE.Items.Item(i))
                           Dim Youremails_text = System.IO.File.ReadAllText(AppPath & "\myemailsnp")
                           System.IO.File.WriteAllText(AppPath & "\myemailsnp", Youremails_text & vbCrLf & lbYourEmails.Items.Item(i))
                       End If
                       i += 1
                   Loop
               Catch ex As Exception
               End Try
           Else
               MsgBox("You have already added this account. Duplicated account was not added!", , "Duplicate Found")
           End If
           

       End If
       
   End Sub

   Private Sub btnMadd_Click(sender As Object, e As EventArgs) Handles btnMadd.Click
       If txtMmessage.Text = "" Or txtMsubject.Text = "" Then
           MsgBox("You are missing information could not complete the adding of this email.", MsgBoxStyle.Exclamation, "ERROR")
       Else
           lbMessages.Items.Add(txtMsubject.Text & "=+=" & txtMmessage.Text)
           Try
               Dim i = 0
               Do Until i = -1
                   If i = 0 Then
                       System.IO.File.WriteAllText(AppPath & "\messages", lbMessages.Items.Item(0))
                   Else
                       Dim messages_text = System.IO.File.ReadAllText(AppPath & "\messages")
                       System.IO.File.WriteAllText(AppPath & "\messages", messages_text & vbCrLf & lbMessages.Items.Item(i))
                   End If
                   i += 1
               Loop
           Catch ex As Exception
           End Try
           

       End If
   End Sub

#Region "Hot Keys"
   Private Sub txtETBA_HotKey(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtETBA.KeyDown, MyBase.KeyDown
       If e.KeyValue = Keys.Enter Then
           If txtETBA.Text = "" Then
               MsgBox("You are missing information could not complete the adding of this email.", MsgBoxStyle.Exclamation, "ERROR")
           Else
               lbEmailList.Items.Add(txtETBA.Text)
               txtETBA.Text = ""
               Try
                   Dim i = 0
                   Do Until i = -1
                       If i = 0 Then
                           System.IO.File.WriteAllText(AppPath & "\emails", lbEmailList.Items.Item(0))
                       Else
                           Dim emails_text = System.IO.File.ReadAllText(AppPath & "\emails")
                           System.IO.File.WriteAllText(AppPath & "\emails", emails_text & vbCrLf & lbEmailList.Items.Item(i))
                       End If
                       i += 1
                   Loop
               Catch ex As Exception
               End Try
           End If
       End If
   End Sub

   Private Sub txtYEaccount_HotKey(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtYEaccount.KeyDown, MyBase.KeyDown
       If e.KeyValue = Keys.Enter Then
           If txtYEaccount.Text = "" Or txtYEpassword.Text = "" Or txtYEport.Text = "" Or txtYEserver.Text = "" Then
               MsgBox("You are missing information could not complete the adding of account.", MsgBoxStyle.Exclamation, "ERROR")
           Else
               If Not lbYourEmails.Items.Contains(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text) Then
                   lbYE.Items.Add(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text & ";" & txtYEpassword.Text)
                   lbYourEmails.Items.Add(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text)
                   Try
                       Dim i = 0
                       Do Until i = -1
                           If i = 0 Then
                               System.IO.File.WriteAllText(AppPath & "\myemails", lbYE.Items.Item(0))
                               System.IO.File.WriteAllText(AppPath & "\myemailsnp", lbYourEmails.Items.Item(0))
                           Else
                               Dim YEemails_text = System.IO.File.ReadAllText(AppPath & "\myemails")
                               System.IO.File.WriteAllText(AppPath & "\myemails", YEemails_text & vbCrLf & lbYE.Items.Item(i))
                               Dim Youremails_text = System.IO.File.ReadAllText(AppPath & "\myemailsnp")
                               System.IO.File.WriteAllText(AppPath & "\myemailsnp", Youremails_text & vbCrLf & lbYourEmails.Items.Item(i))
                           End If
                           i += 1
                       Loop
                   Catch ex As Exception
                   End Try
               Else
                   MsgBox("You have already added this account. Duplicated account was not added!", , "Duplicate Found")
               End If


           End If
       End If
   End Sub

   Private Sub txtYEpassword_HotKey(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtYEpassword.KeyDown, MyBase.KeyDown
       If e.KeyValue = Keys.Enter Then
           If txtYEaccount.Text = "" Or txtYEpassword.Text = "" Or txtYEport.Text = "" Or txtYEserver.Text = "" Then
               MsgBox("You are missing information could not complete the adding of account.", MsgBoxStyle.Exclamation, "ERROR")
           Else
               If Not lbYourEmails.Items.Contains(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text) Then
                   lbYE.Items.Add(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text & ";" & txtYEpassword.Text)
                   lbYourEmails.Items.Add(txtYEserver.Text & ";" & txtYEport.Text & ";" & txtYEaccount.Text)
                   Try
                       Dim i = 0
                       Do Until i = -1
                           If i = 0 Then
                               System.IO.File.WriteAllText(AppPath & "\myemails", lbYE.Items.Item(0))
                               System.IO.File.WriteAllText(AppPath & "\myemailsnp", lbYourEmails.Items.Item(0))
                           Else
                               Dim YEemails_text = System.IO.File.ReadAllText(AppPath & "\myemails")
                               System.IO.File.WriteAllText(AppPath & "\myemails", YEemails_text & vbCrLf & lbYE.Items.Item(i))
                               Dim Youremails_text = System.IO.File.ReadAllText(AppPath & "\myemailsnp")
                               System.IO.File.WriteAllText(AppPath & "\myemailsnp", Youremails_text & vbCrLf & lbYourEmails.Items.Item(i))
                           End If
                           i += 1
                       Loop
                   Catch ex As Exception
                   End Try
               Else
                   MsgBox("You have already added this account. Duplicated account was not added!", , "Duplicate Found")
               End If


           End If
       End If
   End Sub

   Private Sub txtMmessages_HotKey(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMmessage.KeyDown, MyBase.KeyDown
       If e.KeyValue = Keys.Enter Then
           If txtMmessage.Text = "" Or txtMsubject.Text = "" Then
               MsgBox("You are missing information could not complete the adding of this email.", MsgBoxStyle.Exclamation, "ERROR")
           Else
               lbMessages.Items.Add(txtMsubject.Text & "=+=" & txtMmessage.Text)
               Try
                   Dim i = 0
                   Do Until i = -1
                       If i = 0 Then
                           System.IO.File.WriteAllText(AppPath & "\messages", lbMessages.Items.Item(0))
                       Else
                           Dim messages_text = System.IO.File.ReadAllText(AppPath & "\messages")
                           System.IO.File.WriteAllText(AppPath & "\messages", messages_text & vbCrLf & lbMessages.Items.Item(i))
                       End If
                       i += 1
                   Loop
               Catch ex As Exception
               End Try
           End If
       End If
   End Sub

   Private Sub txtMsubject_HotKey(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMsubject.KeyDown, MyBase.KeyDown
       If e.KeyValue = Keys.Enter Then
           If txtMmessage.Text = "" Or txtMsubject.Text = "" Then
               MsgBox("You are missing information could not complete the adding of this email.", MsgBoxStyle.Exclamation, "ERROR")
           Else
               lbMessages.Items.Add(txtMsubject.Text & "=+=" & txtMmessage.Text)
               Try
                   Dim i = 0
                   Do Until i = -1
                       If i = 0 Then
                           System.IO.File.WriteAllText(AppPath & "\messages", lbMessages.Items.Item(0))
                       Else
                           Dim messages_text = System.IO.File.ReadAllText(AppPath & "\messages")
                           System.IO.File.WriteAllText(AppPath & "\messages", messages_text & vbCrLf & lbMessages.Items.Item(i))
                       End If
                       i += 1
                   Loop
               Catch ex As Exception
               End Try
           End If
       End If
   End Sub
#End Region



   Private Sub txtCPmsgpersec_TextChanged(sender As Object, e As EventArgs) Handles txtCPmsgpersec.TextChanged
       txtCPmsgpersec.ReadOnly = True
       Try
           If txtCPmsgpersec.Text <= 0 Then
               txtCPmsgpersec.Text = 0.01
           ElseIf txtCPmsgpersec.Text >= 11 Then
               txtCPmsgpersec.Text = 10
           End If
       Catch ex As Exception

       End Try
       

       Select Case txtCPmsgpersec.Text
           Case 0.01
               tmrAction.Interval = 2000
               lblDelay.Text = 2000
           Case 0.75
               tmrAction.Interval = 1750
               lblDelay.Text = 1750
           Case 0.5
               tmrAction.Interval = 1500
               lblDelay.Text = 1500
           Case 0.25
               tmrAction.Interval = 1250
               lblDelay.Text = 1250
           Case 1
               tmrAction.Interval = 1000
               lblDelay.Text = 1000
           Case 2
               tmrAction.Interval = 500
               lblDelay.Text = 500
           Case 3
               tmrAction.Interval = 333
               lblDelay.Text = 333
           Case 4
               tmrAction.Interval = 250
               lblDelay.Text = 250
           Case 5
               tmrAction.Interval = 200
               lblDelay.Text = 200
           Case 6
               tmrAction.Interval = 167
               lblDelay.Text = 167
           Case 7
               tmrAction.Interval = 142
               lblDelay.Text = 142
           Case 8
               tmrAction.Interval = 125
               lblDelay.Text = 125
           Case 9
               tmrAction.Interval = 112
               lblDelay.Text = 122
           Case 10
               tmrAction.Interval = 100
               lblDelay.Text = 100
           Case Else
               tmrAction.Interval = 100
               lblDelay.Text = 100

       End Select


   End Sub

   Private Sub txtCPmsgtosend_TextChanged(sender As Object, e As EventArgs) Handles txtCPmsgtosend.TextChanged
       Dim checkNumber As Integer
       If Integer.TryParse(txtCPmsgtosend.Text, checkNumber) = False Then
           txtCPmsgtosend.Text = 0
       Else
           If txtCPmsgtosend.Text <= -1 Then
               txtCPmsgtosend.Text = 0
           End If
       End If

   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnCPmsgpersecondUP.Click
       If txtCPmsgpersec.Text >= 0 Or txtCPmsgpersec.Text < 1 Then
           If txtCPmsgpersec.Text = 0.01 Then
               txtCPmsgpersec.Text += 0.24
           Else
               If Not txtCPmsgpersec.Text > 0.99 Then
                   txtCPmsgpersec.Text += 0.25
               Else
                   txtCPmsgpersec.Text += 1
               End If

           End If
       Else

       End If

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCPmsgpersecondDOWN.Click
       If txtCPmsgpersec.Text <= 1 Then
           txtCPmsgpersec.Text -= 0.25
       Else
           txtCPmsgpersec.Text -= 1
       End If
   End Sub

   Private Sub btnCPmsgtosendUP_Click(sender As Object, e As EventArgs) Handles btnCPmsgtosendUP.Click
       txtCPmsgtosend.Text += 1
   End Sub

   Private Sub btnCPmsgtosendDOWN_Click(sender As Object, e As EventArgs) Handles btnCPmsgtosendDOWN.Click
       txtCPmsgtosend.Text -= 1
   End Sub

   Private Sub tmrAction_Tick(sender As Object, e As EventArgs) Handles tmrAction.Tick
       Dim to_send As Integer = txtCPmsgtosend.Text
       Dim sent As Integer = lblSent.Text
       If to_send <= sent Then
           tmrAction.Enabled = False
           MsgBox("Mail Spam Completed! Sent - " & lblSent.Text & " To Send - " & txtCPmsgtosend.Text, , "Finished")
       Else
           Dim YE() = Split(lbYE.Items.Item(0), ";")
           Dim M() = Split(lbMessages.Items.Item(0), "=+=")
           Dim subject = M(0)
           Dim Message = M(1)
           If CheckBox1.CheckState = CheckState.Checked Then
               Randomize()
               Dim rand As New Random
               Dim intLowNumber = "1000"
               Dim intUpperNumber = "9999"
               subject = rand.Next(intLowNumber, intUpperNumber + 1) & rand.Next(intLowNumber, intUpperNumber + 1) & rand.Next(intLowNumber, intUpperNumber + 1)
               Message = rand.Next(intLowNumber, intUpperNumber + 1) & rand.Next(intLowNumber, intUpperNumber + 1) & rand.Next(intLowNumber, intUpperNumber + 1)

           End If
           System.IO.File.WriteAllText(AppPath & "\info.txt",
                                       "Email To=" & lbEmailList.Items.Item(0) & vbCrLf & _
                                       "Email Server=" & YE(0) & vbCrLf & _
                                       "Email [email protected]" & vbCrLf & _
                                       "Account=" & YE(2) & vbCrLf & _
                                       "Passowrd=" & YE(3) & vbCrLf & _
                                       "Subject=" & subject & vbCrLf & _
                                       "Message=" & Message & vbCrLf & _
                                       "Port=" & YE(1) & vbCrLf)
           lbEmailList.Items.Add(lbEmailList.Items.Item(0))
           lbYE.Items.Add(lbYE.Items.Item(0))
           lbMessages.Items.Add(lbMessages.Items.Item(0))
           lbYE.Items.RemoveAt(0)
           lbMessages.Items.RemoveAt(0)
           lbEmailList.Items.RemoveAt(0)
           Process.Start(AppPath & "\sender.exe")
       End If





   End Sub

   Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
       lblSent.Text = 0
       tmrAction.Enabled = True
       btnStart.Enabled = False
       btnStop.Enabled = True
   End Sub

   Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
       tmrAction.Enabled = False
       btnStart.Enabled = True
       btnStop.Enabled = False
   End Sub

End Class

send.exe - Source

Code:

Imports System.Net.Mail
Public Class Form1
   Dim AppPath As String = New System.IO.FileInfo(Application.ExecutablePath).DirectoryName
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Try
           Dim file_count = System.IO.File.ReadAllText(AppPath & "\count") + 1
           If file_count > 3 Then
               file_count = 0
               System.IO.File.WriteAllText(AppPath & "\count", file_count)
           Else
               System.IO.File.WriteAllText(AppPath & "\count", file_count)
           End If

           Try
               Dim info = System.IO.File.ReadAllText(AppPath & "\info.txt")
               Dim info_step_1() = Split(info, vbCrLf)
               Dim emailto() = Split(info_step_1(0), "=")
               Dim server() = Split(info_step_1(1), "=")
               Dim from() = Split(info_step_1(2), "=")
               Dim account() = Split(info_step_1(3), "=")
               Dim password() = Split(info_step_1(4), "=")
               Dim subject() = Split(info_step_1(5), "=")
               Dim message() = Split(info_step_1(6), "=")
               Dim port() = Split(info_step_1(7), "=")
               Try
                   Dim mail As New MailMessage
                   mail.Subject = subject(1)
                   mail.To.Add(emailto(1))
                   mail.From = New MailAddress(from(1))
                   mail.Body = message(1)
                   Dim SMTP As New SmtpClient(server(1))
                   SMTP.EnableSsl = True
                   SMTP.Credentials = New System.Net.NetworkCredential(account(1), password(1))
                   SMTP.Port = port(1)
                   SMTP.Send(mail)
                   Label1.Text = "Sent"
                   Dim h = DateTime.Now.Hour
                   Dim m = DateTime.Now.Minute
                   Dim s = DateTime.Now.Second
                   Select Case file_count
                       Case 0
                           If System.IO.File.Exists(AppPath & "\0.txt") Then
                               Dim ol_file = System.IO.File.ReadAllText(AppPath & "\0.txt")
                               System.IO.File.WriteAllText(AppPath & "\0.txt", "[" & h & ":" & m & "." & s & "] - Email Sent To: " & emailto(1) & vbCrLf & ol_file)
                           Else
                               System.IO.File.WriteAllText(AppPath & "\0.txt", "[" & h & ":" & m & "." & s & "] - Email Sent To: " & emailto(1))
                           End If
                       Case 1
                           If System.IO.File.Exists(AppPath & "\1.txt") Then
                               Dim ol_file = System.IO.File.ReadAllText(AppPath & "\1.txt")
                               System.IO.File.WriteAllText(AppPath & "\1.txt", "[" & h & ":" & m & "." & s & "] - Email Sent To: " & emailto(1) & vbCrLf & ol_file)
                           Else
                               System.IO.File.WriteAllText(AppPath & "\1.txt", "[" & h & ":" & m & "." & s & "] - Email Sent To: " & emailto(1))
                           End If
                       Case 2
                           If System.IO.File.Exists(AppPath & "\2.txt") Then
                               Dim ol_file = System.IO.File.ReadAllText(AppPath & "\2.txt")
                               System.IO.File.WriteAllText(AppPath & "\2.txt", "[" & h & ":" & m & "." & s & "] - Email Sent To: " & emailto(1) & vbCrLf & ol_file)
                           Else
                               System.IO.File.WriteAllText(AppPath & "\2.txt", "[" & h & ":" & m & "." & s & "] - Email Sent To: " & emailto(1))
                           End If
                       Case 3
                           If System.IO.File.Exists(AppPath & "\3.txt") Then
                               Dim ol_file = System.IO.File.ReadAllText(AppPath & "\3.txt")
                               System.IO.File.WriteAllText(AppPath & "\3.txt", "[" & h & ":" & m & "." & s & "] - Email Sent To: " & emailto(1) & vbCrLf & ol_file)
                           Else
                               System.IO.File.WriteAllText(AppPath & "\3.txt", "[" & h & ":" & m & "." & s & "] - Email Sent To: " & emailto(1))
                           End If
                   End Select
               Catch ex As Exception
                   Label1.Text = "Failed"
               End Try
           Catch ex As Exception
               MsgBox("File failed to load")
           End Try
       Catch ex As Exception

       End Try
   
       Me.Close()
   End Sub
End Class

[Hamaerox]

Nice, wonder if any business' would be interested in it? ^.^

Well then. I finished the program. I hope you guys enjoy it! There is a lot of work that went into this. If you find any bugs please let me know! Thanks!

Is it normal for it to create an infinite number of sender.exe processes?

Is it normal for it to create an infinite number of sender.exe processes?

they should be automatically closing them selfs...
there is no reason they should stay open longer then 1 - 3 seconds...

is the emails sent counting up?