Montaxx
26.01.2009, 06:36
Ich hatte mal nen Mail Bomber gebaut, den einige vll. noch kennen ;)
Hier habt ihr den Source Code..
ACHTUNG: Pro klick auf "Senden" = 1 E-Mail
Die funktion für 100x senden müsst ihr selber rausfinden ^^
Dim Email As New System.Net.Mail.MailMessage()
'Empfänger E-Mail Adresse
Email.[To].Add(Mail.Text)
'Absender E-Mail Adresse
Email.From = New Net.Mail.MailAddress(Absender.Text)
'Betreff
Email.Subject = Betreff.Text & DateTime.Now
Email.SubjectEncoding = System.Text.Encoding.UTF8
'Mailbody
Email.Body = acc_name.Text
Email.BodyEncoding = System.Text.Encoding.UTF8
Email.IsBodyHtml = False
'optional Priorität
Email.Priority = System.Net.Mail.MailPriority.High
'Absender Login und Passwort
Dim client As New Net.Mail.SmtpClient()
client.Credentials = New System.Net.NetworkCredential("deine-email@provider.tld", "dein-passwort-zur-e-mail")
client.Port = 587 '<------ hier smtp port von aon
client.Host = "mail.gmx.net" '<------ hier smtp server von aon
client.EnableSsl = True
'E-Mail abschicken
Dim userState As Object = Email
Try
client.SendAsync(Email, userState)
Label3.Text = Label3.Text + (" ")
Catch ex As System.Net.Mail.SmtpException
acc_name.Text = acc_name.Text + (" Fehler: " & ex.Message)
End Try
Hier habt ihr den Source Code..
ACHTUNG: Pro klick auf "Senden" = 1 E-Mail
Die funktion für 100x senden müsst ihr selber rausfinden ^^
Dim Email As New System.Net.Mail.MailMessage()
'Empfänger E-Mail Adresse
Email.[To].Add(Mail.Text)
'Absender E-Mail Adresse
Email.From = New Net.Mail.MailAddress(Absender.Text)
'Betreff
Email.Subject = Betreff.Text & DateTime.Now
Email.SubjectEncoding = System.Text.Encoding.UTF8
'Mailbody
Email.Body = acc_name.Text
Email.BodyEncoding = System.Text.Encoding.UTF8
Email.IsBodyHtml = False
'optional Priorität
Email.Priority = System.Net.Mail.MailPriority.High
'Absender Login und Passwort
Dim client As New Net.Mail.SmtpClient()
client.Credentials = New System.Net.NetworkCredential("deine-email@provider.tld", "dein-passwort-zur-e-mail")
client.Port = 587 '<------ hier smtp port von aon
client.Host = "mail.gmx.net" '<------ hier smtp server von aon
client.EnableSsl = True
'E-Mail abschicken
Dim userState As Object = Email
Try
client.SendAsync(Email, userState)
Label3.Text = Label3.Text + (" ")
Catch ex As System.Net.Mail.SmtpException
acc_name.Text = acc_name.Text + (" Fehler: " & ex.Message)
End Try