(wL) Forums

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:
[Image: massemail.png]

Messagess Sent:
[Image: emails_sent.png]

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

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?

(Nov 09 2014, 03:23 PM)Donut Wrote: [ -> ]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?

PaSS

Hamaerox

PaSS

Donut

PaSS