Foro de elhacker.NET

Ya he visto en este foro muchos códigos de "Email bomber", pero aquí les traigo uno, que a decir verdad, no es muy diferente a los demás. Pero para hacer bromas en el día de hoy creo que viene al pelo. ;-)

Aclaro que no son emails anónimos, sino que se debe usar una cuenta de correo que exista y que sea válida completando la dirección de correo y la contraseña.
Se puede enviar tantos emails como se quiera (hasta que se presione el botón "Detener") a varios destinatarios al mismo tiempo simplemente separando los correos con "punto y coma" y sin espacios

Código

'Una vieja idea para hacer bromas por email
'
'Por Crazy.sx
 
Imports System.Net.Mail
Imports System.IO
Public Class EnvEMAIL
    Private TipoCuenta As String
    'Private aAdjuntos As Attachment
    'Private dato As FileStream
    'Private CORREO As New MailMessage
    Dim numCantidadEnviados As Integer = 0
 
    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        lblConteoEmail.Text = "Cantidad email enviados: 0"
        If checkbxActivarBomber.CheckState = CheckState.Checked Then
            Timer1.Interval = txtSegundos.Text * 1000
            Timer1.Enabled = True
        End If
 
        If checkbxActivarBomber.CheckState = CheckState.Unchecked Then
            Timer1.Enabled = False
            Call emailNormal()
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Call emailBomber()
    End Sub
 
    Private Sub emailBomber()
        Call emailNormal()
    End Sub
 
    Private Sub emailNormal()
        Dim Mail As New MailMessage
        Dim puertoSMTP As String = Nothing
        Mail.Subject = txtAsunto.Text
 
        If chekbxCCO.CheckState = CheckState.Checked Then
            For Each email As String In txtDestino.Text.Split(";")
                Mail.Bcc.Add(New System.Net.Mail.MailAddress(email)) 'CCO
            Next
        Else
            For Each email As String In txtDestino.Text.Split(";")
                Mail.To.Add(New System.Net.Mail.MailAddress(email)) 'Sin CCO
            Next
        End If
 
        Mail.From = New MailAddress(txtRemitente.Text)
        Mail.Body = txtCuerpoMensaje.Text
 
        If ComboBox1.Text = "Windows Live" Then
            TipoCuenta = "smtp.live.com"
        End If
 
        If ComboBox1.Text = "Gmail" Then
            TipoCuenta = "smtp.gmail.com"
        End If
 
        If ComboBox1.Text = "Outlook" Then
            TipoCuenta = "smtp.live.com"
        End If
 
        Dim TRUE_FALSE As Boolean = vbNull
        If ComboBox2.Text = "TRUE" Then
            TRUE_FALSE = True
        End If
 
        If ComboBox2.Text = "FALSE" Then
            TRUE_FALSE = False
        End If
 
        Dim SMTP As New SmtpClient(TipoCuenta)
        SMTP.EnableSsl = TRUE_FALSE
        SMTP.Credentials = New System.Net.NetworkCredential(txtRemitente.Text, txtPass.Text)
        SMTP.Port = txtPuertoSMTP.Text
        SMTP.Send(Mail)
 
        If checkbxActivarBomber.CheckState = CheckState.Checked Then
            numCantidadEnviados = numCantidadEnviados + 1
            lblConteoEmail.Text = "Cantidad email enviados: " & numCantidadEnviados
        Else
            MsgBox("Mensaje enviado a destinario/s")
        End If
    End Sub
 
    Private Sub EnvEMAIL_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtPuertoSMTP.Text = "587" 'Puerto predeterminado
        ComboBox1.Text = "Seleccione SMTP"
        Call ElegirSMTP()
        Call seguridadSSL()
    End Sub
 
    Sub seguridadSSL()
        With Me.ComboBox2.Items
            .Add("TRUE")
            .Add("FALSE")
 
        End With
    End Sub
 
    Sub ElegirSMTP()
        With Me.ComboBox1.Items
            .Add("Outlook")
            .Add("Windows Live")
            .Add("Gmail")
        End With
    End Sub
 
    Private Sub btnDetener_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetener.Click
        Timer1.Enabled = False
        numCantidadEnviados = 0
    End Sub
End Class

Descargar proyecto: https://skydrive.live.com/redir?resid=8E230698F73CED18!986&authkey=!AEeGCOYK3QRk3iA

Ya que estamos, pasenme el SMTP y el puerto de Yahoo y/o de algunos otros que conozcan. Gracias.

Saludos, yo.
;-)