[Visual basic] faire un bot

Fermé
didou140 - 31 mai 2015 à 09:22
Salut comme le titre l'indique je cherche un mettre au point un bot pour jeu sur le net (equideow.com), donc ce que je veut faire c'est détecter si le cheval n'est pas dans un centre (ACTION 4), puis remplir un formulaire pour le tarif et submit (ACTION 5), puis cliquer sur le prix correspondant (ACTION 6), voici mes codes :

'<--- ACTION N°4 --->'
     If WebBrowser1.ReadyState = 4 And Label5.Text = "1" Then
         'Action pour vérifier si il est dans un ce, puis clique.
         If WebBrowser1.DocumentText.Contains("n'est pas encore inscrit en ") = True Then
             For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
                 If Element.OuterHtml.Contains("action action-style-2") Then
                     Element.InvokeMember("click")
                     Exit For
                 End If
             Next Element
         Else
             Label5.Text = "0"
             Label8.Text = "1"
         End If
 
     End If

'<--- ACTION N°5 --->'
        If WebBrowser1.ReadyState = 4 And Label6.Text = "1" Then
            'Select tarif.
            WebBrowser1.Document.GetElementById("tarif").SetAttribute("value", "20")
            'Submit tarif.
            For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("button")
                If Element.OuterHtml.Contains("button button-style  ") Then
                    Element.InvokeMember("click")
                    Exit For
                End If
            Next Element
            Label6.Text = "0"
            Label7.Text = "1"
        End If

'<--- ACTION N°6 --->'
       If WebBrowser1.ReadyState = 4 And Label7.Text = "1" Then
           'Submit inscription.
           For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("button")
               If Element.OuterHtml.Contains("align-right button button-style-8") Then
                   Element.InvokeMember("click")
                   Exit For
               End If
           Next Element
           Label7.Text = "0"
           Label8.Text = "1"
       End If


Pour faire l'effet de boucle j'ai utiliser des label mais parfois sa arrive de ne plus marcher .... j'ai même essayer d'enlever le webbrowser.readystate mais les élément non finissent pas tous de charger ... quelqu'un peut m'aider ou me donner un autre moyen pour répéter des actions en boucle svp .:ange:
A voir également: