ACHAT KAMAS PRIX JAMAIS VU
Place your Ad here for €1.10 per CPM (1000 impressions)!

Faire son propre E-Mail Bomber avec attachement [VB Net]

    Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

Ben

Ben

Master Chief
V
Ancien staff
Mar 3, 2011
4,069
3
944
Un peut partout.
Salut a tous aujourd'hui je vais vous apprendre comment créé un E-Mail Bomber et pouvoir envoyer des fichier en plus
(vous pouvez l'utiliser aussi comme simple envois d'E-Mail)

Bon j'avais cherché déjà pas mal de chose a se sujet et tout ceux que j'ai trouvé se sont des sources qui ne marchais pas (envois E-Mail) donc a force de voir tout ces
(leech de code, je dit leech car c'est toujours la même source qui est proposé un peut partout sur la toile) et qui ne marche pas du tout .

Bref j'ai codé et rectifié toutes ces erreur et en prime je vous montre comment réaliser un Mail Bomber (Envois de plusieurs message par E-Mail)

Donc ont va commencer par le commencement alors créez une application de form.

Ce que vous aurez besoin dans ce tuto :

. Sept label :
Nom des labels : ( label1 ; label2; ""3 ; ""4 ; ""5 ; ""6 , ""7 )

. Quatre buttons :
Nom des boutons : ( Envoyer ; Arrêt ; Ajouter ; Suprimer )

. Une ProgressBar :
Nom de la ProgressBar : ( ProgressBar1 )

. Une ListBox :
Nom de la ListeBox : ( ListBox1 )

. Une RichTextBox :
Nom de la RichTextBox : ( RichTextBox1 )

. Un TabControl :
Nom du TabControl : ( TabControl1 )

. Cinq TextBox :
Nom des TextBox : ( TextBox1 ; TextBox2 ; usernametext ; Password ; Nombre )

. Un OpenFileDialog :
Nom du OpenFileDialog : ( OpenFileDialog1 )

. Un Timer :
Nom du Timer : ( Timer1 )

Puis les disposer comme ça (enfin c'est un exemple)

Cliquez sur les images pour les voir en grands
tuto-0b17428568.jpg

tuto2-889aa13361.jpg

​

Voila la suite dans le code, ont commence par Importer :
Imports System.Net.Mail

Puis juste en dessous de (ex:)
Public Class Form1 :

Double cliquer sur OpenFileDialog1 et rajoutez :
Code: 
        [COLOR=Blue]For Each[/COLOR] track [COLOR=Blue]As String In [/COLOR]OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        [COLOR=Blue]Next
   [/COLOR]
Double cliquer sur le buttons envoyer et rajoutez :
Code: 
Timer1.Enabled = [COLOR=Blue]True[/COLOR]
        Envoyer.Text = ([COLOR=DarkRed][COLOR=Red]"[/COLOR][COLOR=Red]Envois "[/COLOR][/COLOR] + (Nombre.Text) + ([COLOR=Red]" messages"[/COLOR]))
Double cliquer sur le buttons Arrêt et rajoutez :
Code: 
Timer1.Stop()
        Label6.Text = 0
        ProgressBar1.Value = 0
Double cliquer sur le Timer1 et rajoutez :
Code: 
 [COLOR=Blue]Dim[/COLOR] MyMailMessage [COLOR=Blue]As New[/COLOR] [COLOR=Teal]MailMessage[/COLOR]()
        MyMailMessage.From = New [COLOR=Teal]MailAddress[/COLOR](usernametext.Text)
        MyMailMessage.To.Add(TextBox1.Text)
        MyMailMessage.Subject = TextBox2.Text
        MyMailMessage.Body = RichTextBox1.Text
        [COLOR=Blue]For [/COLOR]counter = 0 [COLOR=Blue]To [/COLOR]ListBox1.Items.Count - 1
            [COLOR=Blue]Dim [/COLOR]Attach [COLOR=Blue]As [/COLOR]Net.Mail.[COLOR=Teal]Attachment [/COLOR]= New Net.Mail.[COLOR=Teal]Attachment[/COLOR](ListBox1.Items(counter))
            MyMailMessage.Attachments.Add(Attach)
        [COLOR=Blue]Next[/COLOR]
        [COLOR=Blue]Dim [/COLOR]SMTPServer [COLOR=Blue]As New[/COLOR] [COLOR=Teal]SmtpClient[/COLOR]([COLOR=Red]"smtp.live.com"[/COLOR])
        SMTPServer.Port = 587
        SMTPServer.Credentials = [COLOR=Blue]New[/COLOR] System.Net.[COLOR=Teal]NetworkCredential[/COLOR](usernametext.Text, Password.Text)
        SMTPServer.EnableSsl = [COLOR=Blue]True[/COLOR]
        [COLOR=Blue]Dim [/COLOR]sendnumber [COLOR=Blue]As Integer[/COLOR] = Nombre.Text
        [COLOR=Blue]If [/COLOR]Label6.Text < sendnumber [COLOR=Blue]Then[/COLOR]
            Timer1.Interval = 100
            ProgressBar1.Value = Label6.Text
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = sendnumber
            ProgressBar1.Update()
            [COLOR=Blue]Try[/COLOR]
                Label6.Text = Val(Label6.Text) + 1
                SMTPServer.Send(MyMailMessage)
            [COLOR=Blue]Catch[/COLOR] ex [COLOR=Blue]As [/COLOR][COLOR=Teal]SmtpException[/COLOR]
                [COLOR=Teal]MessageBox[/COLOR].Show(ex.Message)
          [COLOR=Blue]  End Try[/COLOR]
        [COLOR=Blue]ElseIf[/COLOR] Label6.Text = sendnumber [COLOR=Blue]Then[/COLOR]
            Timer1.Stop()
            ProgressBar1.Value = 0
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Les "[/COLOR] + (Nombre.Text) + ([COLOR=Red]" E-Mail's sont envoyé a "[/COLOR]) + (TextBox1.Text) + ([COLOR=Red]"!"[/COLOR]))
        [COLOR=Blue]End If[/COLOR]
Double cliquer sur la TextBox "Nombre" et rajoutez :
Code: 
[COLOR=Blue]If [/COLOR]Nombre.Text = "" [COLOR=Blue]Then[/COLOR]
            Nombre.Text = 1
        [COLOR=Blue]End If[/COLOR]
        [COLOR=Blue]If [/COLOR]Nombre.Text <= 0 [COLOR=Blue]Then[/COLOR]
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Vous ne pouvez pas envoyer 0 messages!"[COLOR=Black])[/COLOR][/COLOR]
        [COLOR=Blue]End If[/COLOR]
        [COLOR=Blue]If [/COLOR]Nombre.Text >= 26 [COLOR=Blue]Then[/COLOR]
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Si vous dépassé les 25 envois votre compte risque d’être suspendu !"[/COLOR])
            Nombre.Text = 25
        [COLOR=Blue]End If[/COLOR]
Double cliquer sur le buttons Ajouter et rajoutez :
Code: 
OpenFileDialog1.ShowDialog()
Double cliquer sur le buttons Suprimer et rajoutez :
Code: 
 [COLOR=Blue]For Each[/COLOR] track [COLOR=Blue]As String In[/COLOR] OpenFileDialog1.FileNames
            ListBox1.Items.Clear()
       [COLOR=Blue] Next
[/COLOR]
Voila une fois terminé vous devez avoir ce code identique aux miens :
Code: 
[COLOR=Blue]Imports [/COLOR]System.Net.Mail
[COLOR=Blue]Public Class [COLOR=Teal]Form1[/COLOR][/COLOR]

[COLOR=Blue]Private Sub[/COLOR] OpenFileDialog1_FileOk([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As[/COLOR] System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As[/COLOR] System.ComponentModel.[COLOR=Teal]CancelEventArgs[/COLOR]) [COLOR=Blue]Handles[/COLOR] OpenFileDialog1.FileOk
        [COLOR=Blue]For Each[/COLOR] track [COLOR=Blue]As String In [/COLOR]OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        [COLOR=Blue]Next
    End Sub[/COLOR]
[COLOR=Blue]
Private Sub[/COLOR] Envoyer_Click([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) Handles Envoyer.Click
Timer1.Enabled = [COLOR=Blue]True[/COLOR]
        Envoyer.Text = ([COLOR=DarkRed][COLOR=Red]"[/COLOR][COLOR=Red]Envois "[/COLOR][/COLOR] + (Nombre.Text) + ([COLOR=Red]" messages"[/COLOR]))
[COLOR=Blue]End Sub[/COLOR]

[COLOR=Blue]Private Sub[/COLOR] Arrêt_Click([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal[/COLOR] e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) Handles Arrêt.Click
Timer1.Stop()
        Label6.Text = 0
        ProgressBar1.Value = 0
[COLOR=Blue]End Sub[/COLOR]

[COLOR=Blue]Private Sub[/COLOR] Timer1_Tick([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) Handles Timer1.Tick
 [COLOR=Blue]Dim[/COLOR] MyMailMessage [COLOR=Blue]As New[/COLOR] [COLOR=Teal]MailMessage[/COLOR]()
        MyMailMessage.From = New [COLOR=Teal]MailAddress[/COLOR](usernametext.Text)
        MyMailMessage.To.Add(TextBox1.Text)
        MyMailMessage.Subject = TextBox2.Text
        MyMailMessage.Body = RichTextBox1.Text
        [COLOR=Blue]For [/COLOR]counter = 0 [COLOR=Blue]To [/COLOR]ListBox1.Items.Count - 1
            [COLOR=Blue]Dim [/COLOR]Attach [COLOR=Blue]As [/COLOR]Net.Mail.[COLOR=Teal]Attachment [/COLOR]= New Net.Mail.[COLOR=Teal]Attachment[/COLOR](ListBox1.Items(counter))
            MyMailMessage.Attachments.Add(Attach)
        [COLOR=Blue]Next[/COLOR]
        [COLOR=Blue]Dim [/COLOR]SMTPServer [COLOR=Blue]As New[/COLOR] [COLOR=Teal]SmtpClient[/COLOR]([COLOR=Red]"smtp.live.com"[/COLOR])
        SMTPServer.Port = 587
        SMTPServer.Credentials = [COLOR=Blue]New[/COLOR] System.Net.[COLOR=Teal]NetworkCredential[/COLOR](usernametext.Text, Password.Text)
        SMTPServer.EnableSsl = [COLOR=Blue]True[/COLOR]
        [COLOR=Blue]Dim [/COLOR]sendnumber [COLOR=Blue]As Integer[/COLOR] = Nombre.Text
        [COLOR=Blue]If [/COLOR]Label6.Text < sendnumber [COLOR=Blue]Then[/COLOR]
            Timer1.Interval = 100
            ProgressBar1.Value = Label6.Text
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = sendnumber
            ProgressBar1.Update()
            [COLOR=Blue]Try[/COLOR]
                Label6.Text = Val(Label6.Text) + 1
                SMTPServer.Send(MyMailMessage)
            [COLOR=Blue]Catch[/COLOR] ex [COLOR=Blue]As [/COLOR][COLOR=Teal]SmtpException[/COLOR]
                [COLOR=Teal]MessageBox[/COLOR].Show(ex.Message)
          [COLOR=Blue]  End Try[/COLOR]
        [COLOR=Blue]ElseIf[/COLOR] Label6.Text = sendnumber [COLOR=Blue]Then[/COLOR]
            Timer1.Stop()
            ProgressBar1.Value = 0
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Les "[/COLOR] + (Nombre.Text) + ([COLOR=Red]" E-Mail's sont envoyé a "[/COLOR]) + (TextBox1.Text) + ([COLOR=Red]"!"[/COLOR]))
        [COLOR=Blue]End If[/COLOR]
[COLOR=Blue]End Sub[/COLOR]

 [COLOR=Blue]Private Sub[/COLOR] Nombre_TextChanged([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As[/COLOR] System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) [COLOR=Blue]Handles[/COLOR] Nombre.TextChanged
[COLOR=Blue]If [/COLOR]Nombre.Text = "" [COLOR=Blue]Then[/COLOR]
            Nombre.Text = 1
        [COLOR=Blue]End If[/COLOR]
        [COLOR=Blue]If [/COLOR]Nombre.Text <= 0 [COLOR=Blue]Then[/COLOR]
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Vous ne pouvez pas envoyer 0 messages!"[COLOR=Black])[/COLOR][/COLOR]
        [COLOR=Blue]End If[/COLOR]
        [COLOR=Blue]If [/COLOR]Nombre.Text >= 26 [COLOR=Blue]Then[/COLOR]
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Si vous dépassé les 25 envois votre compte risque d’être suspendu !"[/COLOR])
            Nombre.Text = 25
        [COLOR=Blue]End If
End Sub
[/COLOR]
[COLOR=Blue]Private Sub[/COLOR] Ajouter_Click([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) [COLOR=Blue]Handles [/COLOR]Ajouter.Click
        OpenFileDialog1.ShowDialog()
    [COLOR=Blue]End Sub[/COLOR]

 [COLOR=Blue]Private Sub[/COLOR] Suprimer_Click([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) [COLOR=Blue]Handles [/COLOR]Suprimer.Click
[COLOR=Blue]For Each[/COLOR] track [COLOR=Blue]As String In[/COLOR] OpenFileDialog1.FileNames
            ListBox1.Items.Clear()
       [COLOR=Blue] Next
End Sub
  End Class
[/COLOR]
Alors vous pouvez utiliser d'autre serveur si vous le voulez car a chaque fois qu'ont envoient une dizaine de message d'affiler avec Hotmail il vous mette un capcha et il faut se connecter sur sont compte pour pouvoir renvoyer plein de message d'affiler .

Pour ça je vous propose d'aller faire un tours pour voir ici :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Vous pouvez récupérer pas mal de port de server comme Gmail , Gmx ect ..
Après c'est a vous de voir hein :p

Voila une fois finit niveaux graphique et codage (le mien):
sans_titre-6d65791599.png


Voila merci d'avoir suivit ce tuto et bon codage a tous !
Bye​
 
ACHAT KAMAS PRIX JAMAIS VU
Evaelis

Evaelis

La Voix de la Sagesse
V
Ancien staff
Apr 28, 2010
22,949
468
1,699
Valhalla
J'ai vu mieux si tu veut mailbomber un smtp privé dont je ne citerais pas le name
 
Ben

Ben

Master Chief
V
Ancien staff
Mar 3, 2011
4,069
3
944
Un peut partout.
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
J'ai vu mieux si tu veut mailbomber un smtp privé dont je ne citerais pas le name
Click to expand...

Ouep , sinon pour pouvoir envoyé plus d'affiler utiliser comme moi " Gmx " vous pourez en envoyé des centaine sans restriction

Modifier juste l'adresse exemple pour Gmx :
Code: 
        [COLOR=Blue]Dim [/COLOR]SMTPServer [COLOR=Blue]As New[/COLOR] [COLOR=Teal]SmtpClient[/COLOR]([COLOR=Red]"mail.gmx.com"[/COLOR])
 
Dr.w4n1x

Dr.w4n1x

Membre Banni
Nov 19, 2011
50
0
311
44
Il aurait été mieu de faire un mail bomber anonyme , pour eviter de se faire suspendre son
compte !
Cela dit , bon tuto !
 
Ben

Ben

Master Chief
V
Ancien staff
Mar 3, 2011
4,069
3
944
Un peut partout.
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Il aurait été mieu de faire un mail bomber anonyme , pour eviter de se faire suspendre son
compte !
Cela dit , bon tuto !
Click to expand...
Bha il est anonyme si tu crée des fake email du genre Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris! personne ne sais que c'est toi.

Sinon merci ;) et n'hésitez pas à aller faire un tours ici : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Pour justement voir tous les serveur utilisable ! (gmail, Alice, Sfr, Wanadoo, Orange ect ...)
 
G

Galaxy57

Nouveau membre
Feb 1, 2013
1
0
201
25
Apparence bouton, fenetre ,...

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Salut a tous aujourd'hui je vais vous apprendre comment créé un E-Mail Bomber et pouvoir envoyer des fichier en plus
(vous pouvez l'utiliser aussi comme simple envois d'E-Mail)

Bon j'avais cherché déjà pas mal de chose a se sujet et tout ceux que j'ai trouvé se sont des sources qui ne marchais pas (envois E-Mail) donc a force de voir tout ces
(leech de code, je dit leech car c'est toujours la même source qui est proposé un peut partout sur la toile) et qui ne marche pas du tout .

Bref j'ai codé et rectifié toutes ces erreur et en prime je vous montre comment réaliser un Mail Bomber (Envois de plusieurs message par E-Mail)

Donc ont va commencer par le commencement alors créez une application de form.

Ce que vous aurez besoin dans ce tuto :

. Sept label :
Nom des labels : ( label1 ; label2; ""3 ; ""4 ; ""5 ; ""6 , ""7 )

. Quatre buttons :
Nom des boutons : ( Envoyer ; Arrêt ; Ajouter ; Suprimer )

. Une ProgressBar :
Nom de la ProgressBar : ( ProgressBar1 )

. Une ListBox :
Nom de la ListeBox : ( ListBox1 )

. Une RichTextBox :
Nom de la RichTextBox : ( RichTextBox1 )

. Un TabControl :
Nom du TabControl : ( TabControl1 )

. Cinq TextBox :
Nom des TextBox : ( TextBox1 ; TextBox2 ; usernametext ; Password ; Nombre )

. Un OpenFileDialog :
Nom du OpenFileDialog : ( OpenFileDialog1 )

. Un Timer :
Nom du Timer : ( Timer1 )

Puis les disposer comme ça (enfin c'est un exemple)

Cliquez sur les images pour les voir en grands
tuto-0b17428568.jpg

tuto2-889aa13361.jpg

​

Voila la suite dans le code, ont commence par Importer :
Imports System.Net.Mail

Puis juste en dessous de (ex:)
Public Class Form1 :

Double cliquer sur OpenFileDialog1 et rajoutez :
Code: 
        [COLOR=Blue]For Each[/COLOR] track [COLOR=Blue]As String In [/COLOR]OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        [COLOR=Blue]Next
   [/COLOR]
Double cliquer sur le buttons envoyer et rajoutez :
Code: 
Timer1.Enabled = [COLOR=Blue]True[/COLOR]
        Envoyer.Text = ([COLOR=DarkRed][COLOR=Red]"[/COLOR][COLOR=Red]Envois "[/COLOR][/COLOR] + (Nombre.Text) + ([COLOR=Red]" messages"[/COLOR]))
Double cliquer sur le buttons Arrêt et rajoutez :
Code: 
Timer1.Stop()
        Label6.Text = 0
        ProgressBar1.Value = 0
Double cliquer sur le Timer1 et rajoutez :
Code: 
 [COLOR=Blue]Dim[/COLOR] MyMailMessage [COLOR=Blue]As New[/COLOR] [COLOR=Teal]MailMessage[/COLOR]()
        MyMailMessage.From = New [COLOR=Teal]MailAddress[/COLOR](usernametext.Text)
        MyMailMessage.To.Add(TextBox1.Text)
        MyMailMessage.Subject = TextBox2.Text
        MyMailMessage.Body = RichTextBox1.Text
        [COLOR=Blue]For [/COLOR]counter = 0 [COLOR=Blue]To [/COLOR]ListBox1.Items.Count - 1
            [COLOR=Blue]Dim [/COLOR]Attach [COLOR=Blue]As [/COLOR]Net.Mail.[COLOR=Teal]Attachment [/COLOR]= New Net.Mail.[COLOR=Teal]Attachment[/COLOR](ListBox1.Items(counter))
            MyMailMessage.Attachments.Add(Attach)
        [COLOR=Blue]Next[/COLOR]
        [COLOR=Blue]Dim [/COLOR]SMTPServer [COLOR=Blue]As New[/COLOR] [COLOR=Teal]SmtpClient[/COLOR]([COLOR=Red]"smtp.live.com"[/COLOR])
        SMTPServer.Port = 587
        SMTPServer.Credentials = [COLOR=Blue]New[/COLOR] System.Net.[COLOR=Teal]NetworkCredential[/COLOR](usernametext.Text, Password.Text)
        SMTPServer.EnableSsl = [COLOR=Blue]True[/COLOR]
        [COLOR=Blue]Dim [/COLOR]sendnumber [COLOR=Blue]As Integer[/COLOR] = Nombre.Text
        [COLOR=Blue]If [/COLOR]Label6.Text < sendnumber [COLOR=Blue]Then[/COLOR]
            Timer1.Interval = 100
            ProgressBar1.Value = Label6.Text
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = sendnumber
            ProgressBar1.Update()
            [COLOR=Blue]Try[/COLOR]
                Label6.Text = Val(Label6.Text) + 1
                SMTPServer.Send(MyMailMessage)
            [COLOR=Blue]Catch[/COLOR] ex [COLOR=Blue]As [/COLOR][COLOR=Teal]SmtpException[/COLOR]
                [COLOR=Teal]MessageBox[/COLOR].Show(ex.Message)
          [COLOR=Blue]  End Try[/COLOR]
        [COLOR=Blue]ElseIf[/COLOR] Label6.Text = sendnumber [COLOR=Blue]Then[/COLOR]
            Timer1.Stop()
            ProgressBar1.Value = 0
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Les "[/COLOR] + (Nombre.Text) + ([COLOR=Red]" E-Mail's sont envoyé a "[/COLOR]) + (TextBox1.Text) + ([COLOR=Red]"!"[/COLOR]))
        [COLOR=Blue]End If[/COLOR]
Double cliquer sur la TextBox "Nombre" et rajoutez :
Code: 
[COLOR=Blue]If [/COLOR]Nombre.Text = "" [COLOR=Blue]Then[/COLOR]
            Nombre.Text = 1
        [COLOR=Blue]End If[/COLOR]
        [COLOR=Blue]If [/COLOR]Nombre.Text <= 0 [COLOR=Blue]Then[/COLOR]
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Vous ne pouvez pas envoyer 0 messages!"[COLOR=Black])[/COLOR][/COLOR]
        [COLOR=Blue]End If[/COLOR]
        [COLOR=Blue]If [/COLOR]Nombre.Text >= 26 [COLOR=Blue]Then[/COLOR]
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Si vous dépassé les 25 envois votre compte risque d’être suspendu !"[/COLOR])
            Nombre.Text = 25
        [COLOR=Blue]End If[/COLOR]
Double cliquer sur le buttons Ajouter et rajoutez :
Code: 
OpenFileDialog1.ShowDialog()
Double cliquer sur le buttons Suprimer et rajoutez :
Code: 
 [COLOR=Blue]For Each[/COLOR] track [COLOR=Blue]As String In[/COLOR] OpenFileDialog1.FileNames
            ListBox1.Items.Clear()
       [COLOR=Blue] Next
[/COLOR]
Voila une fois terminé vous devez avoir ce code identique aux miens :
Code: 
[COLOR=Blue]Imports [/COLOR]System.Net.Mail
[COLOR=Blue]Public Class [COLOR=Teal]Form1[/COLOR][/COLOR]

[COLOR=Blue]Private Sub[/COLOR] OpenFileDialog1_FileOk([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As[/COLOR] System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As[/COLOR] System.ComponentModel.[COLOR=Teal]CancelEventArgs[/COLOR]) [COLOR=Blue]Handles[/COLOR] OpenFileDialog1.FileOk
        [COLOR=Blue]For Each[/COLOR] track [COLOR=Blue]As String In [/COLOR]OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        [COLOR=Blue]Next
    End Sub[/COLOR]
[COLOR=Blue]
Private Sub[/COLOR] Envoyer_Click([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) Handles Envoyer.Click
Timer1.Enabled = [COLOR=Blue]True[/COLOR]
        Envoyer.Text = ([COLOR=DarkRed][COLOR=Red]"[/COLOR][COLOR=Red]Envois "[/COLOR][/COLOR] + (Nombre.Text) + ([COLOR=Red]" messages"[/COLOR]))
[COLOR=Blue]End Sub[/COLOR]

[COLOR=Blue]Private Sub[/COLOR] Arrêt_Click([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal[/COLOR] e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) Handles Arrêt.Click
Timer1.Stop()
        Label6.Text = 0
        ProgressBar1.Value = 0
[COLOR=Blue]End Sub[/COLOR]

[COLOR=Blue]Private Sub[/COLOR] Timer1_Tick([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) Handles Timer1.Tick
 [COLOR=Blue]Dim[/COLOR] MyMailMessage [COLOR=Blue]As New[/COLOR] [COLOR=Teal]MailMessage[/COLOR]()
        MyMailMessage.From = New [COLOR=Teal]MailAddress[/COLOR](usernametext.Text)
        MyMailMessage.To.Add(TextBox1.Text)
        MyMailMessage.Subject = TextBox2.Text
        MyMailMessage.Body = RichTextBox1.Text
        [COLOR=Blue]For [/COLOR]counter = 0 [COLOR=Blue]To [/COLOR]ListBox1.Items.Count - 1
            [COLOR=Blue]Dim [/COLOR]Attach [COLOR=Blue]As [/COLOR]Net.Mail.[COLOR=Teal]Attachment [/COLOR]= New Net.Mail.[COLOR=Teal]Attachment[/COLOR](ListBox1.Items(counter))
            MyMailMessage.Attachments.Add(Attach)
        [COLOR=Blue]Next[/COLOR]
        [COLOR=Blue]Dim [/COLOR]SMTPServer [COLOR=Blue]As New[/COLOR] [COLOR=Teal]SmtpClient[/COLOR]([COLOR=Red]"smtp.live.com"[/COLOR])
        SMTPServer.Port = 587
        SMTPServer.Credentials = [COLOR=Blue]New[/COLOR] System.Net.[COLOR=Teal]NetworkCredential[/COLOR](usernametext.Text, Password.Text)
        SMTPServer.EnableSsl = [COLOR=Blue]True[/COLOR]
        [COLOR=Blue]Dim [/COLOR]sendnumber [COLOR=Blue]As Integer[/COLOR] = Nombre.Text
        [COLOR=Blue]If [/COLOR]Label6.Text < sendnumber [COLOR=Blue]Then[/COLOR]
            Timer1.Interval = 100
            ProgressBar1.Value = Label6.Text
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = sendnumber
            ProgressBar1.Update()
            [COLOR=Blue]Try[/COLOR]
                Label6.Text = Val(Label6.Text) + 1
                SMTPServer.Send(MyMailMessage)
            [COLOR=Blue]Catch[/COLOR] ex [COLOR=Blue]As [/COLOR][COLOR=Teal]SmtpException[/COLOR]
                [COLOR=Teal]MessageBox[/COLOR].Show(ex.Message)
          [COLOR=Blue]  End Try[/COLOR]
        [COLOR=Blue]ElseIf[/COLOR] Label6.Text = sendnumber [COLOR=Blue]Then[/COLOR]
            Timer1.Stop()
            ProgressBar1.Value = 0
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Les "[/COLOR] + (Nombre.Text) + ([COLOR=Red]" E-Mail's sont envoyé a "[/COLOR]) + (TextBox1.Text) + ([COLOR=Red]"!"[/COLOR]))
        [COLOR=Blue]End If[/COLOR]
[COLOR=Blue]End Sub[/COLOR]

 [COLOR=Blue]Private Sub[/COLOR] Nombre_TextChanged([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As[/COLOR] System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) [COLOR=Blue]Handles[/COLOR] Nombre.TextChanged
[COLOR=Blue]If [/COLOR]Nombre.Text = "" [COLOR=Blue]Then[/COLOR]
            Nombre.Text = 1
        [COLOR=Blue]End If[/COLOR]
        [COLOR=Blue]If [/COLOR]Nombre.Text <= 0 [COLOR=Blue]Then[/COLOR]
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Vous ne pouvez pas envoyer 0 messages!"[COLOR=Black])[/COLOR][/COLOR]
        [COLOR=Blue]End If[/COLOR]
        [COLOR=Blue]If [/COLOR]Nombre.Text >= 26 [COLOR=Blue]Then[/COLOR]
            [COLOR=Teal]MessageBox[/COLOR].Show([COLOR=Red]"Si vous dépassé les 25 envois votre compte risque d’être suspendu !"[/COLOR])
            Nombre.Text = 25
        [COLOR=Blue]End If
End Sub
[/COLOR]
[COLOR=Blue]Private Sub[/COLOR] Ajouter_Click([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) [COLOR=Blue]Handles [/COLOR]Ajouter.Click
        OpenFileDialog1.ShowDialog()
    [COLOR=Blue]End Sub[/COLOR]

 [COLOR=Blue]Private Sub[/COLOR] Suprimer_Click([COLOR=Blue]ByVal [/COLOR]sender [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]Object[/COLOR], [COLOR=Blue]ByVal [/COLOR]e [COLOR=Blue]As [/COLOR]System.[COLOR=Teal]EventArgs[/COLOR]) [COLOR=Blue]Handles [/COLOR]Suprimer.Click
[COLOR=Blue]For Each[/COLOR] track [COLOR=Blue]As String In[/COLOR] OpenFileDialog1.FileNames
            ListBox1.Items.Clear()
       [COLOR=Blue] Next
End Sub
  End Class
[/COLOR]
Alors vous pouvez utiliser d'autre serveur si vous le voulez car a chaque fois qu'ont envoient une dizaine de message d'affiler avec Hotmail il vous mette un capcha et il faut se connecter sur sont compte pour pouvoir renvoyer plein de message d'affiler .

Pour ça je vous propose d'aller faire un tours pour voir ici :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Vous pouvez récupérer pas mal de port de server comme Gmail , Gmx ect ..
Après c'est a vous de voir hein :p

Voila une fois finit niveaux graphique et codage (le mien):
sans_titre-6d65791599.png


Voila merci d'avoir suivit ce tuto et bon codage a tous !
Bye​
Click to expand...

Comment tu as fait pour avoir une apparence comme sa ? C'est trop classe ! :D

---------- Message ajouté à 12h38 ---------- Le message précédent était à 21h18 ----------

comment ta fait pour avoir cette apparence de fenetre, bouton et tout ?
 
Ben

Ben

Master Chief
V
Ancien staff
Mar 3, 2011
4,069
3
944
Un peut partout.
Galaxy57@ J'avais utilisé un thème pour ce programme ;)

Quand je revois se tuto, je vois que je pourrais expliquer beaucoup plus de chose sur le code, mais bon voilà c'étais il y a un bail ><
 
M

MarkoX

Membre Banni
Jan 13, 2013
2,166
0
236
39
Pour ce qui veulent de l'anonyme, j'ai trouvé une faille dans un smtp très connu et on peut l'utiliser comme on veut car c'est un site plutôt connu mais qui est abandonné :) => dans ma signature
 
ferdidu87

ferdidu87

Nouveau membre
Jun 30, 2011
1
0
426
Bonjour a tous, juste un probleme avec ce tuto, j'ai bien copié le code mais il reste un problème. Quand je veux ajouter un fichier il n'apparait pas dans la Listbox et ne s'envoi pas quand je démarre le processus.
 
Evaelis

Evaelis

La Voix de la Sagesse
V
Ancien staff
Apr 28, 2010
22,949
468
1,699
Valhalla
Private Sub Ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter.Click
OpenFileDialog1.ShowDialog()
End Sub
Click to expand...
Il faut ajouter :
For Each track As String In OpenFileDialog1.FileNames
ListBox1.Items.Add(track)
Next
Click to expand...
C/C c'est mal, tu ne comprend même pas ton code
Ensuite te vente pas de l'avoir crée
 
Ben

Ben

Master Chief
V
Ancien staff
Mar 3, 2011
4,069
3
944
Un peut partout.
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Code: 
Private Sub Ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter.Click
OpenFileDialog1.ShowDialog()
End Sub

Il faut ajouter :

Code: 
For Each track As String In OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        Next

C/C c'est mal, tu ne comprend même pas ton code
Ensuite te vente pas de l'avoir crée
Click to expand...

Je l'ai mis dans l’événement regarde : (OpenFileDialog1.FileOk)

Code: 
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk         
For Each track As String In OpenFileDialog1.FileNames
ListBox1.Items.Add(track)        
Next     
End Sub
 
A

Al3x74

Nouveau membre
Apr 23, 2014
2
0
121
Bonjour, j'ai un problème dans le Timer1 : j'ai rajouter le code et sa me trouve des erreurs au moment du debug
erreur10.png
 
Evaelis

Evaelis

La Voix de la Sagesse
V
Ancien staff
Apr 28, 2010
22,949
468
1,699
Valhalla
Tu dois renommer tes textboxs ...
Là on est à un niveau de leech incroyablement élevé.
 
Votre publicité ici !
You must log in or register to reply here.
Top Bottom