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 ^^
Code: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





Zitieren
