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]](http://s16.postimg.org/smym63tkl/massemail.png)
Messagess Sent:
![[Image: emails_sent.png]](http://s12.postimg.org/87hs8fha5/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
send.exe - Source
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 Classsend.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![[-]](https://war-lords.net/forum/images/collapse.png)