Bonjour à tous,
je suis actuellement entrain d'essayer de créer un logiciel qui me permettra de voter sur un site. Le seul soucis c'est dès que je lance le programme, webbrower n'attends pas que la page est finie de charger avant même de lancer la suite des codes.. je me retrouve donc avec une ou deux étapes sur dix effectué. Étant débutante et ayant cherché toutes les possibilités sur les forums et autres, aucune n'était bonne pour moi. ^^

Voici le début de mon code qui me permettra de me connecter et ensuite d'xp le compte sur lequel je serais connecté:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "est en cours d'éxecution.."
        WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser1.Navigate("lien de connexion")
        While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()
        End While
 
        Dim Input = WebBrowser1.Document.GetElementsByTagName("input")
        For Each separe As HtmlElement In Input
            Dim contenu As String = separe.GetAttribute("name").ToString
            If contenu = "pseudo" Then
                separe.SetAttribute("Value", TextBox1.Text)
            End If
            If contenu = "pass" Then
                separe.SetAttribute("Value", TextBox2.Text)
            End If
 
        Next
        Dim Btnvalider = WebBrowser1.Document.GetElementsByTagName("input")
        Dim count = 0
        For Each separe As HtmlElement In Btnvalider
 
            Dim contenu As String = separe.GetAttribute("type").ToString
            If contenu = "image" Then
                separe.InvokeMember("click")
            End If
        Next
 
Par exemple, j'aimerais que la page est finie de charger ici pour que la connexion au compte soit effectué avant de faire évoluer mon compte.
        If CheckBox2.Checked = True Then
            WebBrowser1.Navigate("lienxp")
        End If
Pareil ici, j'aimerais que la page est finie de charger avant que le reste du code ne s'exécute.
End Sub
End Class
Merci d'avance pour votre aide. :)