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: