Discussion :

[Invité]

Bonjour,
Je suis en train de développer un créateur de compte.
Et au moment où il vérifie si le compte a bien été créé, celui-ci rencontre un petit problème :
Dès que le formulaire est posté, sans attendre que la page change, il lance la vérification !
C'est un peu compliqué mais en regardant un peu le code, c'est beaucoup plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Bouton_OK(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Webbrowser.Document.Forms(2).InvokeMember("submit")
'Et là, il faudrait trouver un système qui continuerait à exécuter le code qu'au moment où le Webbrowser aurait complétement chargé la nouvelle page web
        If (Webbrowser.Url.ToString = "https://monsite.com/confirmation.html") Then
            MsgBox("Le compte à bien été créé !", MsgBoxStyle.Information)
        Else
            MsgBox("Le compte n'a pas été créé !" + vbCrLf + "Modifier les informations puis retentez !", MsgBoxStyle.Information)
        End If
    End Sub

Merci d'avance pour vos réponses !
Et bonnes vacances à tous

[Ehjoe]

Bonjour,
Je suis en train de développer un créateur de compte.
Et au moment où il vérifie si le compte a bien été créé, celui-ci rencontre un petit problème :
Dès que le formulaire est posté, sans attendre que la page change, il lance la vérification !

Bonjour,

Tu arrêtee ton code où tu a mis l'observation, puis tu reprends cette procédure évènementielle sous-citée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Bouton_OK(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
  Webbrowser.Document.Forms(2).InvokeMember("submit")
End Sub
'
Sub WebBrowser1_DocumentCompleted_1(... ' CHARGEMENT COMPLET
  If (Webbrowser.Url.ToString = "https://monsite.com/confirmation.html") Then
    MsgBox("Le compte à bien été créé !", MsgBoxStyle.Information)
  Else
    MsgBox("Le compte n'a pas été créé !" + vbCrLf + "Modifier les informations puis retentez !", MsgBoxStyle.Information)
  End If
End Sub

.
Nota bene : Il faut regarder les procédures évènementielles du WebBrowser...

Mais bon, là je te montre le principe, en fait dans la procédure "completed" tu n'auras que le message "ok", et s'il n'y va pas message "no good", nécessite un Timer qui au bout de X temps pas fermer l'objet et mettre le message "no good".

Ne pas oublier de déchrger l'objet webBrowser
.

[Invité]

Merci beaucoup pour t'a réponse très précise et bien détallé
Voilà ce que j'ai finalement utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    Private Sub Bouton_OK(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Site_dofus.Document.Forms(2).InvokeMember("submit")
    End Sub
    Private Sub Verifierpage(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebBrowser.DocumentCompleted
        If (WebBrowser.Url.ToString = "https://secure.dofus.com/fr/creer-un-compte/confirmation.html") Then
            MsgBox("Le compte a bien été créé !!!", MsgBoxStyle.Information)
        Else
            MsgBox("Le compte n'a pas été créé !!!", MsgBoxStyle.Information)
        End If
    End Sub

Merci à tous de vous être penché sur le sujet !!!