[VB.NET] WebBrowser Avec Auto Login Probleme !

Question

Bonjour, je voudrai faire une application avec un webbrowser, qui se connecte automatiquement au site dès que j'appuis sur un bouton, j'ai réussi mais avec 2 boutons et moi je voudrai le faire en 1 buttons !

donc le code des mes 2 boutons:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("http://scan4you.net/index1.php")

End Sub

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        WebBrowser1.Document.GetElementById("l_ogin").SetAttribute("value", "MyUser")
        WebBrowser1.Document.GetElementById("passw").SetAttribute("value", "MyPass")
        WebBrowser1.Document.GetElementById("act").InvokeMember("Click")

    End Sub

Donc dans un premier temps, il faut appuyé sur le boutton1 pour ouvrir la page et bouton2 pour se connecté.

Mais moi je veux le tout en un bouton, 

j'ai essayé ceci:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("http://scan4you.net/index1.php")
    WebBrowser1.Document.GetElementById("l_ogin").SetAttribute("value", "MyUser")
        WebBrowser1.Document.GetElementById("passw").SetAttribute("value", "MyPass")
        WebBrowser1.Document.GetElementById("act").InvokeMember("Click")

End Sub

Mais la page n'a pas le temps de s'ouvrir, qu'il essaye de se connecté alors le programme plante!

Donc j'ai essayé ceci:

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        WebBrowser1.Navigate("http://scan4you.net/index1.php")

        Timer1.Start()
        Label1.Text -= 1
        If Label1.Text = 0 Then
            Timer1.Stop()

            WebBrowser1.Document.GetElementById("l_ogin").SetAttribute("value", "MyUser")
            WebBrowser1.Document.GetElementById("passw").SetAttribute("value", "MyPass")
            WebBrowser1.Document.GetElementById("act").InvokeMember("Click")

        End If
    End Sub

Donc, ma page se lance, le compte a rebours se fait mais le reste non, donc après then, il n'y a plus rien qui s'éxecute ..

je suis bloqué, j'ai besoins de votre aidé!

Cordialement.

tony2805 · Answer

Bonjour, il faut enlever :
WebBrowser1.Navigate("http://scan4you.net/index1.php")
Vas sur les propriété de ton webbrower1 et ta url tu met sa a coter de url :
http://scan4you.net/index1.php
tu créé un bouton: et tu met sa en code:

WebBrowser1.Document.GetElementById("l_ogin").SetAttribute("value", "MyUser")
        WebBrowser1.Document.GetElementById("passw").SetAttribute("value", "MyPass")
        WebBrowser1.Document.GetElementById("act").InvokeMember("Click")

[VB.NET] WebBrowser Avec Auto Login Probleme !

1 réponse

Votre réponse

Discussions similaires