Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Mass Email Spammer - Open Source
#1
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
#2
Nice, wonder if any business' would be interested in it? ^.^
#3
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!
#4
Is it normal for it to create an infinite number of sender.exe processes?
IBM PALM @ 1.9MHz, 16-bit
16KB RAM
204KB storage via QIC magnetic tape
Keyboard input
#5
(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?

Users browsing this thread: 1 Guest(s)