Bonjour voici un tutoriel pour vous faire un créateur de compte dofus a partir d'un web browser (je vais essayer commenter les ligne suite a la demande de lolodu92)Je vais expliqué ce qui me semble le plus dur 1) Requis :Il vous faut-4 boutons -5 textebox- 3 NumericUpDown2 ) Le nom des objets requis et leur utilitésButton1 : Compléter les champs Button2 : Validé le captchaButton3 : Générer les caractères Button4: Enregistrer le compteTextbox1 : Nom de compteTextbox2 : Mot de passe Textbox3 : PseudoTextbox4 : EmailTextbox5 : CaptchaNumericUpDown1 : augmenter de 1 le nom de compte ( ajoute +1 a chaque compte creer )NumericUpDown2 : pareille que le 1 mais pour le pseudoNumericUpDown3 : Choisir le nombre de caractère a générer 3) détaille du code Sert Enregistrer le compte et quitter le programme après que le compte soit enregistré ``` Imports System.Net Imports System.IO Public Class Form1 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim name_file As String name_file = TextBox1.Text 'variable qui dit que name_file = TextBox1.Text Dim monwriter As New IO.StreamWriter(name_file & ".txt", True) ' ecrit le .txt avec name_file = TextBox1.Text = le texte qu'il y aura dans la txtbox monwriter.Write(TextBox1.Text) monwriter.Write(TextBox2.Text) monwriter.Write(TextBox3.Text) monwriter.Write(TextBox4.Text)' toutes ces lignes seront ecrit dans le fichier monwriter.Close() 'fin de l'écriture Dim message As String = "" message = "Le compte a bien été créé" & vbCrLf & _ "Le Nom du compte est " & name_file MsgBox(message, MsgBoxStyle.Information, "Compte enregistré avec succès") Me.Close() 'ferme le prog End Sub ```Génrateur de caractère :``` Dim charset As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" ' les caractère que le générateur va générer ^^" Dim Rand As String = "" Dim random As New Random Public Function GenerateRand(ByVal lenRand As Integer) As String For i As Integer = 0 To lenRand - 1 Rand += charset(random.Next(0, charset.Length)) Next Return Rand End Function Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click Randomize() Rand = Nothing TextBox1.Text = GenerateRand(NumericUpDown1.Value) Rand = Nothing TextBox2.Text = GenerateRand(NumericUpDown1.Value) Rand = Nothing TextBox3.Text = GenerateRand(NumericUpDown1.Value) Rand = Nothing TextBox4.Text = GenerateRand(NumericUpDown1.Value) ' augmente le nombre de caratctère de 1 Rand = Nothing TextBox5.Text = GenerateRand(NumericUpDown1.Value) & ("@hotmail.fr") ' ajoute le @hotmail.fr sur la txtbox 5 End Sub ```Enrter les caractères sur le site (webbrowser)``` Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Url = New Uri("https://secure.dofus.com/fr/creer-un-compte") ' adresse du webbrowser hbwait(10000) ' temps d'attente pour eviter que le prog lance la complétation alors que la page n'a pas fini de charger WebBrowser1.Document.GetElementById("userlogin").Focus() ' correspond a la txt box 1 du site dofus hbwait(100) SendKeys.Send(TextBox1.Text + NumericUpDown2.Value.ToString) ' ajoute 1 apres le nom du compte augmente de 1 à chaque fois NumericUpDown2.Value = NumericUpDown2.Value + 1 hbwait(300) WebBrowser1.Document.GetElementById("userpassword").Focus() ' la txtbox2 du site sa sera la même que la 3 car sa comme sa pas besoin de remettre le même mdp à la main hbwait(100) SendKeys.Send(TextBox2.Text) hbwait(300) WebBrowser1.Document.GetElementById("userpassconfirm").Focus() hbwait(100) SendKeys.Send(TextBox2.Text) hbwait(300) WebBrowser1.Document.GetElementById("usernickname").Focus() hbwait(100) SendKeys.Send(TextBox3.Text) NumericUpDown1.Value = NumericUpDown1.Value + 1 hbwait(300) WebBrowser1.Document.GetElementById("useremail").Focus() hbwait(100) SendKeys.Send(TextBox4.Text) hbwait(300) WebBrowser1.Document.GetElementById("step_1_sub").Focus() hbwait(200) WebBrowser1.Document.GetElementById("step_1_sub").InvokeMember("Click") hbwait(2000) ```Code final :[spoiler]``` Imports System.Net Imports System.IO Public Class Form1 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim name_file As String name_file = TextBox1.Text Dim monwriter As New IO.StreamWriter(name_file & ".txt", True) monwriter.Write(TextBox1.Text & writeln & TextBox2.Text) monwriter.Write(TextBox2.Text) monwriter.Write(TextBox3.Text) monwriter.Write(TextBox4.Text) monwriter.Close() Dim message As String = "" message = "Le compte a bien été créé" & vbCrLf & _ "Le Nom du compte est " & name_file MsgBox(message, MsgBoxStyle.Information, "Compte enregistré avec succès") Me.Close() End Sub Friend Sub hbwait(ByVal ms_to_wait As Long) Dim endwait As Double endwait = Environment.TickCount + ms_to_wait While Environment.TickCount < endwait System.Threading.Thread.Sleep(1) Application.DoEvents() End While End Sub Dim charset As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" Dim Rand As String = "" Dim random As New Random Public Function GenerateRand(ByVal lenRand As Integer) As String For i As Integer = 0 To lenRand - 1 Rand += charset(random.Next(0, charset.Length)) Next Return Rand End Function Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button3.Click Randomize() Rand = Nothing TextBox1.Text = GenerateRand(NumericUpDown3.Value) Rand = Nothing TextBox2.Text = GenerateRand(NumericUpDown3.Value) Rand = Nothing TextBox2.Text = GenerateRand(NumericUpDown3.Value) Rand = Nothing TextBox3.Text = GenerateRand(NumericUpDown3.Value) Rand = Nothing TextBox4.Text = GenerateRand(NumericUpDown3.Value) & ("@hotmail.fr") End Sub Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged End Sub Public Function RandomString(ByVal CharList, ByVal Length) Dim TmpRndStr As String TmpRndStr = "" While TmpRndStr.Length < Length TmpRndStr = TmpRndStr & Mid(CharList, Rnd() * Len(CharList) + 1, 1) End While ' Return TmpRndStr ' End Function Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Url = New Uri("https://secure.dofus.com/fr/creer-un-compte") hbwait(10000) WebBrowser1.Document.GetElementById("userlogin").Focus() hbwait(100) SendKeys.Send(TextBox1.Text + NumericUpDown2.Value.ToString) NumericUpDown2.Value = NumericUpDown2.Value + 1 hbwait(300) WebBrowser1.Document.GetElementById("userpassword").Focus() hbwait(100) SendKeys.Send(TextBox2.Text) hbwait(300) WebBrowser1.Document.GetElementById("userpassconfirm").Focus() hbwait(100) SendKeys.Send(TextBox2.Text) hbwait(300) WebBrowser1.Document.GetElementById("usernickname").Focus() hbwait(100) SendKeys.Send(TextBox3.Text) NumericUpDown1.Value = NumericUpDown1.Value + 1 hbwait(300) WebBrowser1.Document.GetElementById("useremail").Focus() hbwait(100) SendKeys.Send(TextBox4.Text) hbwait(300) WebBrowser1.Document.GetElementById("step_1_sub").Focus() hbwait(200) WebBrowser1.Document.GetElementById("step_1_sub").InvokeMember("Click") hbwait(2000) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.Document.GetElementById("usercaptcha").Focus() hbwait(100) SendKeys.Send(TextBox5.Text) hbwait(300) WebBrowser1.Document.GetElementById("step_2_sub").Focus() hbwait(200) WebBrowser1.Document.GetElementById("step_2_sub").InvokeMember("Click") hbwait(2000) For Each ClientControl As HtmlElement In WebBrowser1.Document.Links ListBox1.Items.Add(ClientControl.GetAttribute("href")) Next Dim deco As String = ListBox1.Items(5) WebBrowser1.Url = New Uri(deco) End Sub End Class ```[/spoiler]Edit : Petite correction l'enregistrement sauter pas de ligne a chaque textbox dans le fichier txt modifer ``` monwriter.Write(TextBox1.Text) monwriter.Write(TextBox2.Text) monwriter.Write(TextBox3.Text) monwriter.Write(TextBox4.Text)' toutes ces lignes seront ecrit dans le fichier ``` par ``` monwriter.Write("nom de compte: " & TextBox1.Text & vbCrLf & "mot de pass: " & TextBox2.Text & vbCrLf & "pseudo: " & TextBox3.Text & vbCrLf & "email: " & TextBox4.Text) ```

**Re: [TUTO] Créateur de comptes D.**C'est une façon de faire mais je trouve sa comme même un peu sale est pas adapter ....HTTP REQUEST ? au pire c'est mieux a mon gout

**Re: [TUTO] Créateur de comptes D.**Merci mais a quoi correspond:hbwait(300)

**Re: [TUTO] Créateur de comptes D.**le temps d'attente pour pas qu'il remplie trop vite pour pas faire freeze le prog'

**Re: [TUTO] Créateur de comptes D.**Mais il n'est pas défini

**Re: [TUTO] Créateur de comptes D.**J'ai trouvé^^

**Re: [TUTO] Créateur de comptes D.**Ok ^^screen : pour mieux comprendre les outils :[![img](http://img853.imageshack.us/img853/7462/creae.jpg)](http://imageshack.us/photo/my-images/853/creae.jpg/)

**Re: [TUTO] Créateur de comptes D.**Envoie les sources déjà monter en MP please que je voit sa un peu merci !

**Re: [TUTO] Créateur de comptes D.**... les sources sont sur le 1er post Vous connaissez un moyen "d'isoler" le captcha pour le mettre dans une picturebox ?

**Re: [TUTO] Créateur de comptes D.**Je cherche actuellement la meme chose pour ne pas avoir a afficher la webbrowser.

**Re: [TUTO] Créateur de comptes D.**Oui moi aussi mais je ne trouve pas encore ou faut faire dès que l'on appuie sur complété les champs la webbrowser s'affiche donc le captcha aussi

Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

[TUTO] Créateur de comptes dofus