xx-skate-life-xx

voila , ce blog est réinitialisé !
il porteras maintenant sur la programmation , la musique ,et de ce que je penses de certaines choses ...

voici comment creer un Spammer grace a Visual basic ,
ceci est un spammer basique comme vous pouvez le trouver ici en telechargement :
http://rapidshare.com/files/276987111/T_chokeSpamR_.rar.html
attention il n'y a que 10 telechargement autorisé .
ceci n'est pas un virus ni un trojan c'est moi qui l'ai fait vous pouvez avoir confiance .


c'est mon ecran donc oui il est a moi :D
si tu parles du logiciel dont je cherchais un testeur c'est mon dernier bijou
TchokePub si tu le veux postes un com' et jmet un lien :D

voici mon spammer avancé , il permet de spammer a phrases alternatives , des presets , une voix tutorial
si vous le voulez postez un commentaire je vous donnerais un lien pour le telecharger

voila le lien http://rapidshare.com/files/277423983/tchokespammerV3.1.rar.html

voila lisez bien et apprenez bien ^^
essayez de le faire vous aussi :D creez vos logiciels , envoyez moi une video ,
si vous avez des questions postez les en commentaire

Voila , encore une fois si vous le voulez , demandez le en commentaire ^^

tutorial n°4

4] envoyer un mail !!

I) debut du commencement

Alors , tout simplement , nous allons d'abort creer un nouveau projet , nomez le comme bon vous sembleras moi je le nomme tuto4

une fois le projet créé , creez 3 textbox dont une ou vous metrez l'option "multiline" a "true"
en bas a droite (toujours =D)

une fois ceci fait , creez 3 boutons , un nommé "envoyer" un autre nommé "quiter"
et un troisieme nommé "login"
dans le code du boutton quiter vous allez mettre ''end''
dans le code du boutton ''login'' mettez ''loginform1.show()''
et dans ''envoyer'' ... voyez la partie II) ! =D

ensuite , viens la partie compliquée (ce n'est rien comparé a la suite =D)
dans "projet" dans la bare de menu selectionez "ajouter un formulaire windows"
et choisisez "menu de conextion"

car en effect , pour envoyer un mail , il faut vous logguer sur votre addresse mail .
aussi vous faut il un formulaire de connection car on ne peut pas avoir de destinataire sans expediteur ca parait logique (=D)

viens la partie que je suis sur vous allez simplement recopier sans vouloir la comprendre ...

mais essayez quand meme car sans cela vous n'allez pas progresser ...
alors voici la commande :D

II) commencement du debut de la fin

tout dabbort comme vous allez le voir sur la video , il faut dabort double cliquer sur la fenetre du form1 , voyez plutot :

bien , ensuite , au dessus de ca : "Public Class Form1"
vous allez notter : "Imports System.Net.Mail"
(sans les guillemets bien sur !)


creez un label ou bien un StatusStrip dans lequel vous metrez un label
paralèlement creez une textbox , laquelle vous metrez en "visible" "false" dans propriétées (dans le form1)

voila ensuite double cliquez sur le bouton "ok" du loginform1
(petite astuce , dans text de ce bouton vous pouvez constater un "&" devant le "ok" cela permetde souligner le "o" de "ok" genial non ? non ? ok on passe a la suite ...)


dans le code du bouton vous constatez un code qui est "me.close()"
ce qui fais que quand on clique sur ok le "loginform1" vas se fermer , effacez ce code et nottez :
Form1.ToolStripStatusLabel1.Text = UsernameTextBox.Text
'mettez juste Form1.Label1.Text = UsernameTextBox.Text
Form1.TextBox4.Text = PasswordTextBox.Text
'et ensuite
me.close()

voilà pour ca ...
ensuite , retournez dans
form1 ,double cliquez sur
le bouton "envoyer" (aha on y est !!)
nottez :
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential(ToolStripStatusLabel1.Text, TextBox4.Text)
'toolstripStatusLabel1 etant relié a usernameTextBox.Text qui est votre identifiant
et textbox4.text qui lui est relié a votre mot de passe (donc visible = false pour ne pas le voir :p)
smtpServer.Port = 587
smtpServer.Host = "smtp.live.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(ToolStripStatusLabel1.Text)
mail.To.Add(TextBox2.Text) 'destinataire
mail.Subject = TextBox1.Text 'sujet du mail
mail.Body = TextBox3.Text 'message
smtpServer.Send(mail)
msgbox("merci tibaw tu est le meilleur grace a toi je sais faire envoyer un mail !")
If MsgBoxResult.Ok = True Then
msgbox(''tibaw je t'aimeu'')
end if
If MsgBoxResult.Ok = True Then
end if
me.close()





et voilà !!
c'est fait ^^ pour tout bug commentez !

genial :D