Discussion :

[FredSlmnt]

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. :)

[Pol63]

http://msdn.microsoft.com/FR-FR/libr...navigated.aspx

[FredSlmnt]

Merci Pol62 pour votre réponse,
mais malgré tout je ne comprends pas grand chose.. avec le peu que je "connais" j'ai essayé de rentrer les codes mais rien n'y fais des erreurs ont lieu ou bien tout s'exécute comme avant sans pause.

[Pol63]

tu fais
.navigate
traitement


il faut faire

.navigate
end sub


private sub ... handles wb.navigated
'navigated est un évènement déclenché quand la page est chargée donc quelques centaines de millisecondes plus tard que .navigate
traitement

[ebastien]

Bonjour,

private sub ... handles wb.navigated

J'aurais plutôt mis le code du traitement dans l'event WebBrowser.DocumentCompleted :

http://msdn.microsoft.com/FR-FR/libr...completed.aspx

Navigated :

Se produit lorsque le contrôle WebBrowser a navigué vers un nouveau document et a commencé à le charger.

donc n'a pas terminé ...

[Pol63]

ah oui je l'avais pas vu ^^

et puis j'avais vu ca

Navigated event occurs, the new document has begun loading, which means you can access the loaded content through the Document, DocumentText, and DocumentStream properties." data-guid="11dbf0c0bc9d69151f558092b937b0e2" class="sentence SentenceHover" id="mt4">Lorsque l'événement Navigated se produit, le nouveau document a commencé à charger, ce qui signifie que vous pouvez accéder au contenu chargé via la propriété Document, DocumentText et DocumentStream

qui me semblait pas mal, j'avais pas lu la phrase d'après

Gérez l'événement DocumentCompleted pour être notifié lorsque le contrôle WebBrowser finit de charger le nouveau document.

enfin l'auteur du topic l'aurait peut etre lu