Résolu [VB.NET] MailBomber Multi-Compte

[Sparta.]

Salut ;

Je demande l'aide de la communauté , j'ai donc un problème sur mon projet mail bomber il n’envoie pas de mail ... Voici les designe :

Les onglets email 1 ,2 ,3 ,4 son les même

Et voici le code :

Imports System.Net.Mail

#Region "Mail"
Public Class Form1
'A l'ouverture
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label29.Text = "0"
Label30.Text = "0"
Label31.Text = "0"
Label32.Text = "0"

End Sub
'Timer 1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim mymailmessage As New MailMessage
Dim SMTPServer As New SmtpClient(ComboBox1.SelectedItem)
mymailmessage.From = New MailAddress(TextBox4.Text)
mymailmessage.To.Add(TextBox1.Text)
mymailmessage.Subject = (TextBox4.Text)
mymailmessage.Body = (TextBox3.Text)

SMTPServer.Port = (587)

SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox4.Text, TextBox5.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(mymailmessage)

Label29.Text = (Label29.Text + 1)

End Sub
'Boutton Spammer !
Private Sub Button1_Click(sender As Object, e As EventArgs)
Label29.Text = "0"
Label30.Text = "0"
Label31.Text = "0"
Label32.Text = "0"

Timer1.Start()
Timer2.Start()
Timer3.Start()
End Sub
'Boutton Stop !
Private Sub Button2_Click(sender As Object, e As EventArgs)
Timer1.Stop()
Timer2.Stop()
Timer3.Stop()
Timer4.Stop()
End Sub
'Timer 2
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Dim mymailmessage As New MailMessage
Dim SMTPServer As New SmtpClient(ComboBox2.SelectedItem)
mymailmessage.From = New MailAddress(TextBox9.Text)
mymailmessage.To.Add(TextBox12.Text)
mymailmessage.Subject = (TextBox11.Text)
mymailmessage.Body = (TextBox10.Text)

SMTPServer.Port = (587)

SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox8.Text, TextBox9.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(mymailmessage)

Label30.Text = (Label30.Text + 1)
End Sub
'Timer 3
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Dim mymailmessage As New MailMessage
Dim SMTPServer As New SmtpClient(ComboBox3.SelectedItem)
mymailmessage.From = New MailAddress(TextBox15.Text)
mymailmessage.To.Add(TextBox18.Text)
mymailmessage.Subject = (TextBox17.Text)
mymailmessage.Body = (TextBox16.Text)

SMTPServer.Port = (587)

SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox14.Text, TextBox15.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(mymailmessage)

Label31.Text = (Label31.Text + 1)
End Sub
'Timer 4
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
Dim mymailmessage As New MailMessage
Dim SMTPServer As New SmtpClient(ComboBox4.SelectedItem)
mymailmessage.From = New MailAddress(TextBox21.Text)
mymailmessage.To.Add(TextBox24.Text)
mymailmessage.Subject = (TextBox23.Text)
mymailmessage.Body = (TextBox22.Text)

SMTPServer.Port = (587)

SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox20.Text, TextBox21.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(mymailmessage)

Label32.Text = (Label32.Text + 1)
End Sub
End Class

#End Region

OU EN PIECE JOINT (TEXTE)

Merci d'avance de votre aide !

 

[Whyouuu]

J'ai pas compris ce que c'est ton problème.. ?

 

[Sparta.]

Il n'envoie pas de mail

 

[Moncler]

Il n'envoie pas de mail

ton codage est assez bizzare tu a mis un truc pour mettre le PORT DU SMTP mais dans le codage tu mais déja un port prédénit ..

 

[Sparta.]

Je vai le refaire . Merci

 

[XModzBroX™]

Je vai le refaire . Merci

Jai fait un mail bomber tu veu mon codage ?

 

[Sparta.]

Jai fait un mail bomber tu veu mon codage ?

Oui stp mec ,ça serait sympas ! ♥

 

[XModzBroX™]

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Dim mymailmessage As New MailMessage
mymailmessage.From = New MailAddress(TextBox6.Text)
mymailmessage.To.Add(TextBox8.Text)
mymailmessage.Subject = (TextBox9.Text)
mymailmessage.Body = (TextBox10.Text)
Dim smtpserver As New SmtpClient("Smtp.live.com")
smtpserver.Port = (587)
smtpserver.Credentials = New System.Net.NetworkCredential(TextBox6.Text, TextBox7.Text)
smtpserver.EnableSsl = True
smtpserver.Send(mymailmessage)
Label14.Text = Val(Label14.Text + 1)
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Timer2.Start()
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Timer2.Stop()
End Sub
End Class



Changer juste Dim smtpserver As New SmtpClient("Smtp.live.com") comme pour GMAIL par Dim smtpserver As New SmtpClient("smtp.gmail.com") par exemple

 

[Sparta.]

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Dim mymailmessage As New MailMessage
mymailmessage.From = New MailAddress(TextBox6.Text)
mymailmessage.To.Add(TextBox8.Text)
mymailmessage.Subject = (TextBox9.Text)
mymailmessage.Body = (TextBox10.Text)
Dim smtpserver As New SmtpClient("Smtp.live.com")
smtpserver.Port = (587)
smtpserver.Credentials = New System.Net.NetworkCredential(TextBox6.Text, TextBox7.Text)
smtpserver.EnableSsl = True
smtpserver.Send(mymailmessage)
Label14.Text = Val(Label14.Text + 1)
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Timer2.Start()
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Timer2.Stop()
End Sub
End Class



Changer juste Dim smtpserver As New SmtpClient("Smtp.live.com") comme pour GMAIL par Dim smtpserver As New SmtpClient("smtp.gmail.com") par exemple

Merci !

 

[XModzBroX™]

Merci !

Derien