(wL) Forums - War-Lords Production

Mass Email Spammer - Open Source

Thu, 06 Nov 2014 20:46:23 +0000

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 From=random@gmail.com" & 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

Server Stat Collector vPreRelease

Wed, 08 Oct 2014 19:53:48 +0000

About: The program will gather server counts from all servers you add to a list. This will then update a database (currently only updates a text file). Which will then be depicted by a php website of which you can that incorp in your website to read through the logs.
Comment: I have been working on this program as a personal program but decided to code it so its more custom and can be used by any one. How ever the program is a rather long ways from being released publicly. This program is one of the most interesting programs I have developed and is using all the skills I have and enjoy using.
Current Games Supported:
- Minecraft
(I plan on adding G-Mod, TF2, CSS, and More!)
Screen Shots:
These are coming once I getting a working version of this for public use. As I have not got it to the point of where a public version is fully working.
Example:
http://iceycraft.org/data
This is a example of what it will look like once it give a output.
Expected Time of Relase: Unknown...
Current Requirements: WinSCP (I plan on making where that is not required and will require a mysql database. How ever I may make it where it can use both!)
PS
This is a actual program. This program is actually working. How ever it is not modified for public use.
Screen Shot

Toolbox Ip dos BETA

Sat, 12 Jul 2014 18:46:46 +0000

This is a beta release of a project I worked on but forgot about. I'm not sure where I left off and need beta testers to check this out and post any problems here.

Happy hunting.

IP DOS BETA.zip (Size: 185.41 KB / Downloads: 7)

Bind Manager

Fri, 09 May 2014 03:13:07 +0000

Hey Guys The Bind Manager v1.1.2 has arrived!!!!!

[video=youtube]http://youtube.com/watch?v=6zC3covNlnU[/video]

Download: https://www.mediafire.com/?c1hc0am1gce3ie8
Virus Scan: https://www.virustotal.com/en/file/f582e...399604699/

Source Files - VB.NET - v1.0.3
Download: https://www.mediafire.com/?y65kbszksxzy891

Updates/Features List

Code:
v1.1.2 by: Agentsix1 5/8/2014

    - Fixed creating binds not triggering save as button to be available

    - Fixed Settings not saving updating prompt saving

v1.1.1 by: Agentsix1 5/8/2014

    - Added CSS Commands

v1.1 by: Agentsix1 5/8/2014

    - Added error protection when auto loading files on launch

    - Added folders and files generate on launch you no longer required to download all files

    - Added Model Command "equip_model Metro Cop"

    - Added Model Command "equip_model Banboard"

    - Added Model Command "equip_model Minecraft"

    - Added Model Command "equip_model Neo Combine"

    - Added Model Command "equip_model Fearbine"

    - Added Model Command "equip_model Slimer"

    - Added Counter Strike Source Commands

    - Added Titles with in the command drop boxes

    - Changed the lay out of the settings

    - Added 2 drop boxes to Settings (Currently Not Used)

    - Changed Settings files for a later update (New settings currently not used)

    - Added Settings grabber

    - Added Settings updater to update old settings file to new one

    - Added Windows XP Support

    - Added Settings File and Folder Missing protection

    - Added file creation if files are missing upon request

v1.0.4 by: Agentsix1 5/7/2014

    - Fixed program not loading off a tiny bug. (Reported By: MCgoos09) - Major Bug Fix

v1.0.3 by: Agentsix1 5/6/2014

    - Fixed when canceling Generation

    - Fixed KP_DOWNARROW (Again)

    - Fixed Error upon getting script when outputting to text

    - Fixed Having multiple scripts when outputting script

    - Enabled File Merger To Be Loaded On Launch

    - Fixed a message box on file merge

    - Changed settings actually become effective after saving them

v1.0.2 by: Agentsix1 5/6/2014

    - Fixed File Merger Edit Button

    - Fixed Basic Script Generation (again)

v1.0.1 by: Agentsix1 5/6/2014

    - Fixed Cancel Button On Settings

    - Added Clear to Non Key Bind List

    - Fixed Generation for basic scripts

    - Added KP_DOWNARROW

    - Removed Duplicated DOWNARROW

v1.0 By: Agentsix1 5/6/2014

    - Basic Key Bind Creation

    - Basic Non Key Bind Creation

    - Easy Management of Binds

    - Over 300 Commands +Custom Commands

    - Able To Modify Current cfg Files

    - Able To Create New cfg Files

    - Auto Load Your Faviorate Bind File

    - Auto Open Basic Script Creation or Settings

    - Links Redirecting Back To Lifepunch

    - Overwrite Protection When Saving Files

    - Ability To Prompt Before Saving Any Files

    - Simple Script Creation For: Trails, Models, Chat Tags, or Hats

    - Including Most All Basic Commands For Lifepunch Including: Weapons, Trails, Models, Chat Tags, Hats, Ingame Commands, etc.

    - No Internet Required Unless Using Check For Updates

    - Browse For Bind Files With Ease

        - The ability to merge 2 bind files into 1

Expect More Features in Version 2 and 3!!!!

Older Versions

Code:
v1.1.1: Download: https://www.mediafire.com/?w7udync3aon3uyl

v1.1.1 Virus Scan: https://www.virustotal.com/en/file/3854912e38624632f8ff6bc208fb208336000473eee8ead9712434089fc3f2aa/analysis/1399603265/

v1.1 Download: https://www.mediafire.com/?00f95g3l8f6c7t2

v1.1 Virus Scan: https://www.virustotal.com/en/file/636f6e74e384682a4568a7a9e948b87bcd71a251c1e5b510e6c9274ff3034e09/analysis/1399602298/

v1.0.4 Download: https://www.mediafire.com/?npef2f1bzwtoczp

v1.0.4 Virus Scan: https://www.virustotal.com/en/file/a6e97a9594c0d998f9c44eed4aff7872b439a9346de555a221e95d4cd3e52097/analysis/1399504137/

v1.0.3 Download: https://www.mediafire.com/?zs9g3mdq8kcwuni

v1.0.3 Virus Scan: https://www.virustotal.com/en/file/de3e0b33a77543fac98ff2b6ba5eb41f95e827528b0f568d3ee2fffd9cba8edf/analysis/1399428993/

v1.0.2 Download: https://www.mediafire.com/?86x3h17unl1134a

v1.0.2 Virus Scan: https://www.virustotal.com/en/file/99f34e58427bd380d68861000c201b5bd5920a803777aa07caa7e2706e371693/analysis/1399425361/

v1.0.1 Download: https://www.mediafire.com/?c7ltq90ufhlptf8

v1.0.1 Virus Scan: https://www.virustotal.com/en/file/7df0c6a8e1a6a64c46b4a8c148ba9fd4a92bab0ca699abc9a74f39794426d6fc/analysis/1399425441/

v1.0 Download: https://www.mediafire.com/?jb9p5tuqblbf15h

v1.0 Virus Scan: https://www.virustotal.com/en/file/17da7bb41e7352c6472aa0f13b7215e5ebff7588fef142f825d088f6e32c7b1c/analysis/1399421524/

Double post

Alright guys i have actually posted the download for this give it a go and let me know what you think. I still have a lot of work to go into it for css and other games its mainly for garry's mod atm but i will have larger lists for css soon

Spammer - Minecraft/Skype/Steam/Shout Boxes/etc...

Mon, 03 Feb 2014 07:59:02 +0000

So I have been working on this program sense I basically started programming. I have come to the point where I can not simply add any more features to this program with my coding skills. So I have decided to release this to the public.

Instructions on how to use:
1) Set messages and settings with in programs for what you are gonna be doing
2) Open what you want to spam minecraft skype steam what ever. (for this to work the program must be in focus at all times)
3) Press the Home Key on your keyboard this will start the spamming process
4) To stop simply press the End Key

Features :
Unlimited Messages to spam with
Load spams from file
Edit spams that have already been added
Adding and Removing of single lines of spams
Clear List for clearing the entire list of spams
Prefix's - Add a prefix that will never change for each spam message
Suffix's - Add a suffix that will never change for each spam message
Spam Counter Prefix/Suffix - This will send the spam count either in the prefix or suffix of the spam message
Rand Spam with custom Length - This will send a spam message that is completely randomized with capitals lowercase and numbers
Customize Messages To Send - Set the amount of message to send to a user or click Infinite Messages to set no limit
Automatic Settings - This will give you the ability to set default settings for each spam type (Minecraft, Skype, Steam, SMF Shoutbox)

Hot Keys:
Start Spam - Home Key
Stop Spam - End Key
Toggle Prefix - PageUp
Toggle Suffix - PageDown
Toggle Random Spam - Insert

Screen Shot

Download Link - https://www.mediafire.com/?77ith1la3zhbeii

Coded in VB.Net
Source Download - https://www.mediafire.com/?vs4e2ib1jgtwzeb

Double post

Be sure to comment if you liked this program

Proxy Minecraft Launcher

Wed, 19 Jun 2013 21:24:16 +0000

This is a cracked minecraft launcher that launches minecraft with a proxy :0

This requires socks proxys

ENJOY

this also launches minecraft with out a proxy there is a check box for this

Proxy Minecraft Launcher Working.zip (Size: 11.1 KB / Downloads: 11)

Bad Ass Email Spammer

Thu, 23 May 2013 07:07:25 +0000

So i got bored and asked a friend if he wanted me to update my email spammer.

He replied yes

SOOOOOOOOOOOOOOOOOO
long story short.

I made this

Features
Single Message Spams
Multiple Message Spams
Load From File Spams
Load From File Email Accounts

Spam emails from multiple accounts with ease :0

Email Spammer.zip (Size: 13.21 KB / Downloads: 4)

Battle Net Profile Pimper Recoded and Remade

Tue, 30 Apr 2013 08:34:10 +0000

So I was reading on the forums through old posts. Some one replied to Kut-'s Program The Profile Pimper. I looked at it and was like meh thats easy. So sense he stopped coding his i remade it with a new look and code. I will admit its pretty ugly but its v1 and is going to updated for looks mainly. The main code should be fine other wise.

What Did I Add?
- Online Profile Database (you can upload custom profiles and any one who uses the program can view them!
- easy access to Default profiles
- Got rid of all the fucking pop ups :|

Plans?
- Make a nicer looking GUI

I am taking suggestions for any one that wants to throw them my way!
I will also be releasing the code once I finish the project .

Download
v1.0 - http://www.mediafire.com/?4ffok4y4dcpswcs

Screen Shot

Email Spammer - Test Project - Open Source :)

Mon, 29 Apr 2013 18:43:58 +0000

hey guys was making a youtube video and i made this i will post the video in a week or so of me coding this

--- Pastbin --- CODE
http://pastebin.com/YQSCAKtg

--- Mediafire --- Source Download
http://www.mediafire.com/?d3ntfz7mpawb7t5

Features
Allows you to spam countless messages.
Allows you to enter your own smtp Server.
Allows you to use Hotmail, Gmail, or Yahoo as a spam host .

Screen Shot

Minecraft Adventure Map, built by hand.

Wed, 24 Apr 2013 13:05:40 +0000

Working on a handmade adventure map thought i'd shar some pictures. Its a flat world which means any ground above the bottem ground is placed by me, as well as trees grass and everything.

  2013-04-24_07.54.56.png (Size: 381.8 KB / Downloads: 0)
  2013-04-24_07.54.39.png (Size: 339.04 KB / Downloads: 0)
  2013-04-24_07.55.20.png (Size: 424.32 KB / Downloads: 0)
  2013-04-24_07.55.54.png (Size: 427.97 KB / Downloads: 0)

Instant Messenger

Mon, 15 Apr 2013 04:24:58 +0000

Meh i have made countless worthless programs so i thought i would make another

this program should be coming out soon once i get done coding it and adding all the features i want to add

here is a video of me showing it off from what i have done atm

[video=youtube]http://youtube.com/watch?v=ciDp4yuz-3U[/video]

Starcraft Hack Loader v1.3

Thu, 23 Aug 2012 20:32:15 +0000

This program loads your hacks for Starcraft With ease.

Thank you, Alicia Melchiott for bringing a error to my attention,

I have done a over haul to the program hope you enjoy

Updates

Code:
War Lords Hack Loader v1.3 Updates - 8/23/2012

----------------------------------------------------------------------------------------

- Changed the way Logs are saved

- Changed the way hacks are loaded

- Changed the way Clients are loaded

- Over Hauled The Gui

- Completed The Log Viewer

- Changed Up Colors

- Added Remove Button From Hacks

- Thank you Alicia Melchiott For Finding Errors

----------------------------------------------------------------------------------------

War Lords Hack Loader v1.1 Updates - 1/11/2011

----------------------------------------------------------------------------------------

- Changed Location of Logs to \Logs\

    - Logs Are Labeled  By Date

- Added Check All Button

- Added Updates Link To Look At Updates In Program

- Added Error Protection To Error 53 - No File Found

- Added An Idle Option + Delay Timer + On/Off Switch

- Fixed Check Problem

- Added Options Form

- Added Communication Between Forms

- Got rid of a lot of extra codes that werent needed

- Loaded Every Thing In Settings that you can think of

- Has a clock to keep track of that all import time

- Locked The Text Boxes

- Logs Every Thing You Do

- Mid Process Removed Load Settings Message Box

- Made it Color Full Black White Was Boring

- Idle Message Status Is Accurate

- Moved Help and About To File Tab

- Short Cuts Added List Below

    - Load Settings = Ctrl + L

    - Save Settings = Ctrl + S

    - Help        = Ctrl + H

    - About    = Ctrl + A

    - Exit        = Ctrl + E

- Fixed Tab Index

- Log Viewer (Beta - Has Minor Errors But Usable)

----------------------------------------------------------------------------------------

Copyright @ 8/23/2012 | Written By : PaSS @ War-Lords.net

Thank you Alicia Melchiott For Finding Errors And Coming To Me To Fix Errors :)

Check Out http://www.war-lords.net/ Today

My Blog : http://jsdomain.zzl.org/

My Other Projects: http://jsdomain.zzl.org/projects.html

Have Any Problems Message Me At War-Lords.net

Or

Email Me At : Agentsix1@yahoo.com

Screen Shot

This may have a few errors if so please report them thank you

Download :http://www.mediafire.com/?cl1qjqw7drws884

Comes with These Hacks
- Drop Hack Protection
- Drop Hack
- Oblivion
- Astat Flood Protection
- Chaoslauncher
- Game List Cleaner (gets rid of games that have lat)
- Blacklist
- Low Lat
- Mineral Hack (doesnt work)
- wDetector
- Astat Flooder

Vengence Configuration v1.0 - Created By : Jeremy

Mon, 06 Aug 2012 03:15:55 +0000

ATTENTION: this may be flagged as a virus as it is modify files.

This program will allow you to easily add profiles to your vengence bot.

This program is something i threw together for my friend cause hes not that great with bots

Things to expect from this project

- Being able to edit & save already made Profiles

Here is a screen shot

Again this does not currently let you modify already exisiting profiles that feature will come soon

Vengence Configuration v1.0.zip (Size: 25.29 KB / Downloads: 5)

Minecraft Version Changer

Fri, 06 Apr 2012 02:05:03 +0000

My friend gave me this server and asked if i could post this. Sense he gave me such a great server I would gladly post this for you.

With that out of the way.

------------------------------------------------------------------------------------------------------

Do you suck with computers and need to downgrade or Update Minecraft? Download this program today. Anyways, have fun and game on.

-------------------------------------------------------------------------------------------------------------

News:

CONGRATS ... i have recived 600+ downloads on my program be sure to keep active on this program as i am still updating this Thank you guys for all the support on the program

Im expecting to release the code for this program with in the next couple releases once i get the code cleaned up a bit more

-------------------------------------------------------------------------------------------------------------

Updates

- Complete Over haul of code
- Coding language Change to VB 2008 aka VB.NET
- Running a much lighter code
- Removal of snapshots
- Working on a snapshots only file

----------------------------------------------------------------------------------------------------------------

ATTENTION: This may get flagged as being a virus. The reason behind this is because it is modifying the App Data Folder. If you would like the dos version of this program please let me know and I will be sure to post it .

---------------------------------------------------------------------------------------------------------------

Screen Shot

---------------------------------------------------------------------------------------------------------------

Exe Version: 1.4.6 [MC Version 1.4.6]
Download: http://sorbmc.com/Mcvc.html

No longer supporting Dos Version Of MCVC

---------------------------------------------------------------------------------------------------------------

Older Version Download Links

Code:
Exe Version: 1.3.2.1 [MC Version 12w36a]

Download: http://www.mediafire.com/?g7d7a4a92dblr50

Exe Version: 1.3.2.1 [MC Version 12w34a]

Download: http://www.mediafire.com/?705c3187xr3cy2l

Dos Version : 1.3.2.1 [MC Version 12w34a]

Download: http://www.mediafire.com/?bhzcem0n5wjk74c

Exe Version: 1.3.1 [MC Version 1.3.1]

Download: http://www.mediafire.com/?j4ndjj9ganj9g9d

Dos Version: 1.3.1 Build 3000 [MC Version 1.3.1] (its got problems which were fixed in 1.3.2)

Download: http://www.mediafire.com/?9dsfwn8agf8eay5

Exe Version: 1.2.5.7.1 [MC Version 12w23b]

Download: http://www.mediafire.com/?qezg7bztzc1s2z9

Dos Version: 1.2.5.7.1  [MC Version 12w23b] (i dont belive this works - its got problems which were fixed in 1.3.2)

Download: http://www.mediafire.com/?mf5ad22u56ansfa

Exe Version: 1.2.5.7 [MC Version 12w22a]

Download: http://www.mediafire.com/?j4ndjj9ganj9g9d

Dos Version: 1.2.5.7  [MC Version 12w22a]

Download: http://www.mediafire.com/?9dsfwn8agf8eay5

Exe Version: 1.2.5.6.3 [MC Version 12w22a] (This DOES NOT WORK for most people)

Download: http://www.mediafire.com/?9r1g72isc77t4xt

Dos Version: 1.2.5.7.6.3  [MC Version 12w22a] (This does not work - its got problems which were fixed in 1.3.2)

Download: http://www.mediafire.com/?45o6r5x64o8eplu

More coming next update

------------------------------------------------------------------------------------------------------

Expected To See In The Future

- Nothing atm

------------------------------------------------------------------------------------------------------

GridSharp

Sat, 31 Dec 2011 03:52:47 +0000

OK you Code Nerds, I've been working on a project, and have achieved a lot, so I wanted you guys to take a look, and maybe suggest stuff.

The project is called: GridSharp
Programming Language: Visual C#
Version: First it's a BETA ofcourse
Description: it would be like A music organizer and sorter, and a music Explorer as well, it would play Mp3's And WMA maybe.. and it would have it's own volume control.
Future thoughts: adding a music recorder maybe.. maybe a video player too, and even a Note keeper, AND EVEN A WEB BROWSER TOO!!!

I'm not done with the coding yet, I'm having tons of problems, but I am moving forward with this.
So wish me luck.

Here are some screenshots of the project: