(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: