VB/VB.Net Créateur de compte

[Anonymous]

Bonsoir,

Aujourd'hui, je me lance dans la création de compte j'ai pas beaucoup d'information sur la méthode à utiliser

J'ai suivis un tuto voila ce que j'ai :

Dim postData As String = "f=&postBack=1&pe5cf98ece1990f032152fbc00ca27f5e=" & NDC & "&p683e224c2954ab3d718e431d97c3befc=" & MDP & "&pb7c91238ffa44c71f26445ca63b21356=" & MDP & "&p8adabfae9fa62230d0d9250bb3bc1d51=" & mail & "&p54fdae4a68c4e3b346760a610870e5a1=" & Pseudo & "&pf4ac60d4712933ceecf83d02d04cefd2=M&p502eb3fe02bae286260bdf2e074631a7=" & Anné & "&p89600acf9478ef5c6ae7b02aa640af4c=FR"
        Dim encoding As New UTF8Encoding
        Dim byteData As Byte() = encoding.GetBytes(postData)

        Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://secure.dofus.com/fr/creer-un-compte"), HttpWebRequest)
        postReq.Method = "POST"
        postReq.KeepAlive = False
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.Referer = "https://secure.dofus.com/fr/creer-un-compte"
        postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64; rv:5.0) Gecko/20100101 Firefox/5.0"
        postReq.ContentLength = byteData.Length

        Dim Postreqstream As Stream = postReq.GetRequestStream
        Postreqstream.Write(byteData, 0, byteData.Length)
        Postreqstream.Close()
        Dim postreponse As HttpWebResponse

        postreponse = DirectCast(postReq.GetResponse, HttpWebResponse)
        Dim postreader As New StreamReader(postreponse.GetResponseStream())

        Dim page As String = postreader.ReadToEnd

        WebBrowser1.DocumentText = page

Voila, le site affiche, à travers le WebBrowser, donne "Le code que vous avez recopié est inexact : veuillez recommencer."
Et le seul champ remplis est celui du pays


Si vous avez des informations sur la méthode à utiliser je suis preneur


Merci

 

[Anonymous]

Tu sort d'ou ça

Dim postData As String = "f=&postBack=1&pe5cf98ece1990f032152fbc00ca27f5e=" & NDC & "&p683e224c2954ab3d718e431d97c3befc=" & MDP & "&pb7c91238ffa44c71f26445ca63b21356=" & MDP & "&p8adabfae9fa62230d0d9250bb3bc1d51=" & mail & "&p54fdae4a68c4e3b346760a610870e5a1=" & Pseudo & "&pf4ac60d4712933ceecf83d02d04cefd2=M&p502eb3fe02bae286260bdf2e074631a7=" & Anné & "&p89600acf9478ef5c6ae7b02aa640af4c=FR"

 

[Anonymous]

Sniffage du post envoyé

 

[Anonymous]

Pourquoi tu les renvoient il sont uniques non ?

PS: La langue se mets automatiquement selon l'ip !

 

[Anonymous]

Oui et aussi il faut que tu genere les ndc et mdp et que tu les stoke dans une variable afin de les recuperer apres.
Pour entrer de l'ecrit dans les champ il te faut le nom du champ aussi.

 

[Anonymous]

Oui j'ai changer de méthode (bien plus simple) mais le problème c'est que l'id des champ est variable

Je vais essayer de voir dans le code source de la page

Je vous tien au courant

 

[Anonymous]

Ok

 

[Anonymous]

Salut,

Je suis toujours bloqué :

J'utilise la méthode :

WebBrowser1.Document.All("Name du input").SetAttribute("value", "Sa Marche")

Mais le soucis c'est que les "names" des input sur la page d'inscription change à chaque affichage ...
Et encore, c'est contournable si j'arrive à afficher le code source de la page mais :

Dim source = WebBrowser1.DocumentText

Mais il y a une erreur : Le fichier spécifié est introuvable. (Exception de HRESULT : 0x80070002)
J'imagine que ça vient d'une certaine protection sur la page


Je ne sais plus quoi faire ...

Quelqu'un à une idée ?


Merci

 

[Anonymous]

Euh la je peux pas t'aider je suis sur mon ipad mais il me semble que la source d'une page a un lien spécifique. A verifier.

 

[soso6o]

désole du up mais si sa peux servir a certain voici moi createur de compte

Imports System.Net
Imports System.IO
Public Class Form1
    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 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)
        Rand = Nothing
        TextBox5.Text = GenerateRand(NumericUpDown1.Value) & ("@hotmail.fr")

    End Sub

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://secure.dofus.com/fr/creer-un-compte")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("step_1_sub").InvokeMember("click")
        WebBrowser1.Document.GetElementById("userlogin").Focus()

        SendKeys.Send(TextBox1.Text)

        WebBrowser1.Document.GetElementById("userpassword").Focus()

        SendKeys.Send(TextBox2.Text)

        WebBrowser1.Document.GetElementById("userpassconfirm").Focus()

        SendKeys.Send(TextBox2.Text)

        WebBrowser1.Document.GetElementById("usernickname").Focus()

        SendKeys.Send(TextBox4.Text)

        WebBrowser1.Document.GetElementById("useremail").Focus()

        SendKeys.Send(TextBox5.Text)



    End Sub


    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

End Class

 

[Anonymous]

Tu pourrais nous commenter un peu sa, je comprend pas tout.

 

[soso6o]

Ok je ferais sa cette aprs midi ^^