Discussion :

[CLeBeR]

Bonjour à tous !
Je tente depuis quelques jours de me connecter automatiquement à un site mais en vain ... J'ai pourtant récupéré plusieurs codes. Je vous montre déjà le code HTML du site en question :

Code :

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

<input name="user" tabindex="1" class="login-input" id="user" type="text" value="">

Je dois donc mettre mon nom d'utilisateur dans la textbox qui contient l'information "value".
Voici mon code visual basic

Code :

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

1
2
3
4
5
WebBrowser1.Navigate("Adresse du site")
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then 'Attendre que la page soit complète
            WebBrowser1.Document.GetElementById("user").SetAttribute("value", "Nom d'utilisateur")
            WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "Mot de passe")
        End If

J'en ai récupéré un deuxième :

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
 
WebBrowser1.Navigate("Adresse du site")
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            Dim theElementCollection As HtmlElementCollection
            theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
            For Each curElement As HtmlElement In theElementCollection
                Dim controlName As String = curElement.GetAttribute("name").ToString
                If controlName = "user" Then
                    curElement.SetAttribute("Value", "Nom d'utilisateur")
                ElseIf controlName = "pass" Then
                    curElement.SetAttribute("Value", "Mot de passe")
                End If
            Next
            theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
                   End If

Je ne comprends pas pourquoi rien ne s'écrit, j'ai pourtant bien mis l'ID dans le premier code.

J'ai essayé aussi sur un autre site mais il n'y a pas le champ "value" :

Code :

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

<input class="input_username" name="username" id="username" autofocus="autofocus" autocomplete="off" tabindex="1" data-validation="[NOTEMPTY, >=6]" data-validation-message="Username must contain more than 6 characters. No spaces." type="text">

PS: Je préfère travailler sur le premier code si possible que je trouve beaucoup plus simple.
Merci de votre aide !

[charouel]

Tu peux utiliser Watin c'est très efficace pour ton cas

[ebastien]

Bonjour,

Code :

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

If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then 'Attendre que la page soit complète

Le test sur la propriété n'attends pas que le WebBrowser ait terminé de charger la page. Si le browser est toujours en train de charger (ce qui est plus que probable), ça ne fonctionnera pas.
Tu peux déjà tenter de placer ton code dans l'event WebBrowser.DocumentCompleted.

[CLeBeR]

Merci à tous les deux, ça fonctionne maintenant c'était bien parce que le browser était toujours en train de charger ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
        If WebBrowser1.Url.ToString.Contains("Adresse du site (page login)") And WebBrowser1.DocumentText.Contains("recaptcha") Then 'Si jamais on est sur la page de login et qu'il y a un captcha
            WebBrowser1.Document.GetElementById("user").SetAttribute("value", "Nom d'utilisateur")
            WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "Mot de passe")
' On ne click pas automatiquement car il y a un captcha
        ElseIf WebBrowser1.Url.ToString.Contains("Adresse du site (page login)") Then 'Si jamais on est sur la page de login et qu'il n'y a pas de captcha
            WebBrowser1.Document.GetElementById("user").SetAttribute("value", "Nom d'utilisateur")
            WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "Mot de passe")
            WebBrowser1.Document.GetElementById("Submit1").InvokeMember("click") 'On click automatiquement car il n'y a pas de captcha
        End If
    End Sub

Juste une petite dernière question, est-ce possible qu'un élément nait pas d'ID ? Car le code d'un bouton pour une autre page est celui ci :

Code :

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

<input class="btn-blue" value="login now" tabindex="4" type="submit">

Je ne peux donc pas procéder comme le site précédent.
Merci.

[wallace1]

Bonsoir Cl3b3r,

Class, Value, Tabindex et type sont des attributs donc un truc du genre devrait faire l'affaire :

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
 
 Dim Submits As New List(Of HtmlElement)
        For Each a In WebBrowser1.Document.GetElementsByTagName("input")
            'A toi de prévoir des conditionnelles sur les valeurs d'attributs sinon ça risque de retourner des erreurs !!!!!
            Dim a_class$ = a.GetAttribute("class")
            Dim a_value$ = a.GetAttribute("value")
            Dim a_tabindex$ = a.GetAttribute("tabindex") 
 
            If (a_class = "btn-blue") andalso (a_value = "login now") andalso (a_tabindex = "4") Then
                Submits.Add(a)
            End If
        Next
 If not Submit_List(0) is nothing
     Submits(0).InvokeMember("click")
 End f

Je n'ai rien testé de mon côté, c'est purement hypothétique car perso je n'utilise jamais de Webbrowser pour travailler avec des sites......


A+

[CLeBeR]

Salut wallace1,
Je n'arrive pas à utiliser (et à comprendre) le fonctionnement du code que tu m'a passé , pourrais-je avoir des explications ?
Merci

[wallace1]

Salut wallace1,
Je n'arrive pas à utiliser (et à comprendre) le fonctionnement du code que tu m'a passé , pourrais-je avoir des explications ?
Merci

Le but ce n'est pas de te donner un code fonctionnel car sans le code complet html de ton site je ne peux absolument rien te garantir !
L'idée c'est de parcourir tous les attributs (par nom) d'une balise contenant le tagname : Input, ainsi tu n'as pas forcément besoin d'ID !