Discussion :

[megamario]

Bonjour,

Dans le cadre d'un développement en VB6 je dois me connecter à un serveur Web pour récupérer des informations dans l'une des pages HTML. Seulement pour y accéder il y a un login et mot de passe à entrée sur la page d'accueil. Je voudrais bien-sur automatisé tout cela et donc que la connexion soit automatique.

Pour la connexion il y a 2 textbox pour le login et le password et un bouton pour se connecter.

J'ai récupérer le code source de la page affiché, mais je ne sais pas comment faire et si c'est possible.

[RomainVALERI]

Ce n'est pas un problème HTML, ça se passe côté VB. A l'extrême limite, quand tu en seras à accéder aux éléments d'une page via son DOM, ça pourra concerner JS.

[megamario]

Ba dans un 1er temps j'aimerais savoir comment automatiser une connexion et si c'est possible. Car j'arrive à accéder à la page de login avec webBrowser de VB6, j'arrive à extraire le code HTLM

Par exemple en ftp on peux se connecter avec ftp://login:pass@ip

Sachant que c'est un cgi y a t'il une écriture qui puisse me loger automatiquement

[zeclad01]

Te log automatiquement à parti de quelles données ?

[megamario]

Te log automatiquement à parti de quelles données ?

Lorsque je navigue avec mon clientWeb (Chrome ou autre) j'arrive sur une page ou il faut entrer le login et le mot de passe puis cliquer sur le bouton "se connecter", c'est sa que je voudrais automatisé, une fois sa fait je pourrais naviguer je pense sans souci et récupérer les info besoin.

[megamario]

J'ai trouvé,
Il faut faire, en tout cas pour moi,

L'adress IP/cgi-bin/handle_login.tcl?user=MonId&pw=MonPw

J'arrive donc à ma page d’accueil loguer correctement.

[fab256]

Sinon d'une autre facon, pour une page avec un input username/password et un bouton login :

Supposons que la page http://www.website.com/login.aspx possede ces elements :

Code :

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

1
2
3
<input name="UserNameTextBox" type="text" value="myUser" id="UserNameTextBox">
<input name="PasswordTextBox" type="text" value="myUser" id="PasswordTextBox">
<INPUT type=submit value="Login" name="LoginButton">

Avec le control WebBrowser :

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
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Etape 1: Utiliser WebBrowser control pour charger la page web
        WebBrowser1.Navigate("http://www.website.com/login.aspx")
 
        System.Threading.Thread.Sleep(2000) ' Attendre 2 secondes le temps de chargement
 
        ' Etape 2: Remplir les input username et password
        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 = "UserNameTextBox" Then
                curElement.SetAttribute("Value", "Mettre ton Username ici")
            ElseIf controlName = "PasswordTextBox" Then
                curElement.SetAttribute("Value", "Mettre ton Password ici")
                'En plus, on peut avoir la valeur de l'element value comme ceci:
                'MessageBox.Show(curElement.GetAttribute("Value"))
            End If
        Next
 
        ' Etape 3: Cliquer automatiquement sur le bouton Login
        theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        For Each curElement As HtmlElement In theElementCollection
            If curElement.GetAttribute("value").Equals("Login") Then
                curElement.InvokeMember("click")
                ' Appeler la methode click du bouton Login
            End If
        Next
    End Sub
End Class