Authentification sur un site web

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Je souhaiterais via un fichier excel m'authentifier sur la page suivante : https://wwws.linxo.com/auth.page#Login
Je précise que je suis ultra débutante...

J'ai grâce au forum, pondu ceci :

Code:

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
39
40
41
42
Sub PremierIE()
 
    'Déclaration des variables
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
    'Chargement de la page web
    IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'On pointe le membre Document
    Set IEdoc = IE.document
 
   'login
    Set DOCelement = IEdoc.getElementsByName("username").Item
    DOCelement.Value = "Monlogin"
 
    'password
    Set DOCelement = IEdoc.getElementsByName("password").Item
    DOCelement.Value = "Monmotdepasse"
    DOCelement.Select
 
    'connexion
    Set DOCelement = IEdoc.Forms(0)
    DOCelement.submit
 
    'On libère la variable IE
    Set IE = Nothing
 
 
End Sub

La page de Linxo s'affiche correctement mais les champs ne se remplissent pas et le déboggueur se lance en s'arrêtant sur DOCelement.Value = "Monlogin"
Une âme charitable pourrait-elle éclairer ma lanterne ?

Un grand merci d'avance.

Delphine

23/01/2016, 10h50
Sebphyto

Bonjour,

Penses à mettre ton code entre :tagcode:
A première vue le "button" n'est pas une "form"

Code:

Set DOCelement = IEdoc.Forms(0)

Tu peux aller le chercher comme ceci

Code:

Set DOCelement = IEdoc.getElementsbyTagName("button")

Mais le méthode "submit" ne fonctionne pas

Pour info si tu fais évolué ton code en mode pas à pas (F8) il renseigne bien ton login et password, mais pas en le lançant directement, il y a surement une histoire de tempo???

JE n'ai pas complètement regardé tout

Mais voilà
seb

Bonjour,

Merci pour ce retour.

Effectivement en mettant un tempo de 2 secondes, les champs se remplissent correctement.

En revanche et comme tu le soulignais la validation ne se fait pas.

Je suis désolée mais je n'ai pas saisi ce qu'il faut que je change dans le code concernant le "Tagname". Comme je le mentionnais, je débute tout juste...

Voici donc le code modifié :

Code:

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
39
40
41
42
43
44
45
46
47
Sub PremierIE()
 
    'Déclaration des variables
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
     'Chargement de la page web
    IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'On pointe le membre Document
    Set IEdoc = IE.document
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
 
   'login
    Set DOCelement = IEdoc.getElementsByName("username").Item
    DOCelement.Value = "Monlogin"
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
 
    'password
    Set DOCelement = IEdoc.getElementsByName("password").Item
    DOCelement.Value = "Monmotdepasse"
    DOCelement.Select
 
    'connexion
    Set DOCelement = IEdoc.Forms(0)
    DOCelement.submit
 
    'On libère la variable IE
    Set IE = Nothing
 
End Sub

23/01/2016, 13h20
Sebphyto

1 pièce(s) jointe(s)

re,

Ce qui je voulais dire, c'est que ton bouton "Je me connecte" n'est pas dans un "Form" quand tu joues avec l'espion tu pourras t'en apercevoir (nothing)...
mais il est dans un balise < button/>

Voir image:
Pièce jointe 198825

Pour aller chercher la balise <button/>
tu remplaces

Code:

Set DOCelement = IEdoc.Forms(0)

par

Code:

Set DOCelement = IEdoc.getElementsbyTagName("button")

et comme cela tu pointes directement sur le bouton

il y a bien un type="submit" comme dans ton code, mais la validation ne se fait pas...je regarde de mon côté, mais essais tu tiens c comme cela que j'ai appris ;)

ne pas oublier :plusser: , quand une réponse est pertinente

seb

Bon essaie avec ça,
comme je n'ai pas le bon mot de passe ni le login----> il me renvoit "login et mot de passe incorrecte" évidemment.

Redit moi

Code:

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
39
40
41
42
43
44
45
46
47
48
Sub PremierIE()
 
    'Déclaration des variables
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
     'Chargement de la page web
    IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'On pointe le membre Document
    Set IEdoc = IE.document
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
 
   'login
    Set DOCelement = IEdoc.getElementsByName("username").Item
    DOCelement.Value = "Monlogin"
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
 
    'password
    Set DOCelement = IEdoc.getElementsByName("password").Item
    DOCelement.Value = "Monmotdepasse"
    DOCelement.Select
 'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
    'connexion
    Set DOCelement = IEdoc.getelementsbytagname("button")(0) 'Forms(0)
       DOCelement.Click
 
    'On libère la variable IE
    Set IE = Nothing
 
End Sub

23/01/2016, 14h42
Invité
Bonjour,
Si le bouton sumith est dans une forme , c'est au niveau de form.sumith qu'il doit effectuer. La méthode onclick appel du javascript est dans ce cas c'est le sub du javascript qu'il faut appeler!
Code:

1 2 3 4 Set IEdoc = IE.document IEdoc.form.login.value="toto" IEdoc.form.password="titi" IEdoc.form.sumith
23/01/2016, 14h48
Hexa82

Ça fonctionne parfaitement.

Mille mercis :P
23/01/2016, 15h09
Sebphyto

Salut Robert,

Pour moi, Justement le bouton n'est pas dans une form....;) comme dans l'image plus haut.
Merci de ton intervention, c gentil d'avoir précisé.

Hexa 82:
Dit nous par quelles méthodes tu es passé?
Et bonne continuation, si t'as besoin, revient vers nous :zoubi:
Seb
23/01/2016, 15h13
Hexa82
@Sebphyto

Je suis passé par ta méthode :
Code:

1 2 Set DOCelement = IEdoc.getelementsbytagname("button")(0) 'Forms(0) DOCelement.Click
Tu ne crois pas si bien dire en me proposant de revenir vers vous...
Je vais ouvrir un nouveau post car la suite de cette authentification est de récupérer des soldes de comptes...

Encore un immense merci.
23/01/2016, 15h19
Sebphyto

re,
Continus sur le même fil de discussion....si tu as d'autre questions qui se rapporte à ta demande

Très bien !

Je vais maintenant essayer de récupérer les soldes des comptes.

Seulement le code des données qui m'intéressent se présente comme cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 <div class="GGRIAO0BGAC"> <div class="GGRIAO0BFAC"> <div class="GGRIAO0BEAC" title="Crédit Mutuel">Crédit Mutuel</div> <div class="GGRIAO0BCAC" title="Crédit Mutuel - Centre Est Europe">Crédit Mutuel - Centre Est Europe</div></div> <div class="GGRIAO0BAAC"> <div class="GGRIAO0BBAC">1 149,88 €</div> <div class="GGRIAO0BMAC">il y a 10 heures</div></div> <div class="GGRIAO0BLAC"></div></div> <div class="GGRIAO0BGAC"> <div class="GGRIAO0BFAC"> <div class="GGRIAO0BEAC" title="Société Générale">Société Générale</div> <div class="GGRIAO0BCAC" title="Société Générale (Particuliers)">Société Générale (Particuliers)</div></div> <div class="GGRIAO0BAAC"> <div class="GGRIAO0BBAC">987,82 €</div> <div class="GGRIAO0BMAC">il y a 10 heures</div></div> <div class="GGRIAO0BLAC"></div></div>
Ce que je dois récupérer et insérer dans des cellules séparées ce sont les chiffres en violet-rose après la classe "GGRIAO0BBAC".
Concernant le premier solde je suis sensé récupéré 1149,88.

Est-ce faisable ?

Merci

23/01/2016, 15h52
Sebphyto
Oui c faisable....

il faut que tu cherches les div puis le classname -->

Citation:

class="GGRIAO0BBAC"

il faut que tu procèdes comme ceci, c une méthode parmi tant d'autre...que j'ai appris sur le forum avec de très bon formateurs et ils se reconnaitrons 8-)
Code:

1 2 3 4 5 6 7 Set doc = IEdoc.all For i = 0 To doc.Length - 1 If doc(i).classname = "GGRIAO0BBAC" Then trouver = doc(i).innerText 'MsgBox "trouvez" End If Next i
Le souci ici c'est que pour d'aider ça ne va pas être simple car il faut un login et mdp et tout faire de tête :aie:
seb

Quelle chance, je t'ai presque pour moi toute seule :P

Oui désolée mais je ne peux fournir les identifiants ^^

Je pense que cela ne fonctionne pas car je devrais avoir un message, or, il ne se passe rien...

Voici donc le code en entier :

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub PremierIE()
 
    'Déclaration des variables
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
     'Chargement de la page web
    IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'On pointe le membre Document
    Set IEdoc = IE.document
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:01")
 
   'login
    Set DOCelement = IEdoc.getElementsByName("username").Item
    DOCelement.Value = "Monlogin"
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:01")
 
    'password
    Set DOCelement = IEdoc.getElementsByName("password").Item
    DOCelement.Value = "Monmotdepasse"
    DOCelement.Select
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:01")
 
    'connexion
    Set DOCelement = IEdoc.getelementsbytagname("button")(0) 'Forms(0)
    DOCelement.Click
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'Récupération du solde des comptes
    Set doc = IEdoc.all
    For i = 0 To doc.Length - 1
            If doc(i).classname = "GGRIAO0BBAC" Then
             trouver = doc(i).innerText
             MsgBox "trouvez"
            End If
              Next i
 
    'On libère la variable IE
    Set IE = Nothing
 
End Sub

23/01/2016, 18h25
Sebphyto

re,

Citation:

Quelle chance, je t'ai presque pour moi toute seule

:P

Citation:

Oui désolée mais je ne peux fournir les identifiants ^^

Evidemment

Pourrais-tu fournir le code HTML, un peu plus complet que celui que tu as déjà posté sous forme de code avec les <div>, les <tr>, les <td> car il me faudrait les parents?????

seb

Et voilà !
J'ai essayé de conserver le minimum, le code étant extrêmement long, j'espère en avoir gardé assez :oops:

Code:

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
<TABLE width=960 class=GGRIAO0BAUD cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD class=GGRIAO0BOTD>
<DIV>
<DIV>
<DIV class=GGRIAO0BNX>Tous mes comptes</DIV>
<DIV class=GGRIAO0BO2B>
<DIV class=GGRIAO0BBBC __eventBits="1">
<DIV class=GGRIAO0BNAC>Total</DIV>
<DIV class=GGRIAO0BOAC>
<DIV>413&nbsp;809,11&nbsp;€</DIV></DIV>
<DIV class=GGRIAO0BN2B></DIV></DIV>
<DIV>
<DIV class=GGRIAO0BDAC __eventBits="1">
<DIV class=GGRIAO0BNAC>Comptes chèque</DIV>
<DIV class=GGRIAO0BOAC>49&nbsp;945,86&nbsp;€</DIV>
<DIV class=GGRIAO0BLAC></DIV></DIV>
<DIV class=GGRIAO0BGAC __eventBits="1">
<DIV class=GGRIAO0BFAC><A class=GGRIAO0BABC href="https://wwws.linxo.com/secured/profile.page" __eventBits="1"><IMG width=30 height=30 title="Connexion interrompue" class=GGRIAO0BPAC src="https://wwws.linxo.com/secured/js/synchronizationAlert.png" __eventBits="32768" __gwtLastUnhandledEvent="load"></A>
<DIV title="Crédit Mutuel" class=GGRIAO0BEAC>Crédit Mutuel</DIV>
<DIV title="Crédit Mutuel - Centre Est Europe" class=GGRIAO0BCAC>Crédit Mutuel - Centre Est Europe</DIV></DIV>
<DIV class=GGRIAO0BAAC>
<DIV class=GGRIAO0BBAC>1&nbsp;149,88&nbsp;€</DIV>
<DIV class=GGRIAO0BMAC>dans 1 minute</DIV></DIV>
<DIV class=GGRIAO0BLAC></DIV></DIV>
<DIV class=GGRIAO0BGAC __eventBits="1">
<DIV class=GGRIAO0BFAC>
<DIV title="Société Générale" class=GGRIAO0BEAC>Société Générale</DIV>
<DIV title="Société Générale (Particuliers)" class=GGRIAO0BCAC>Société Générale (Particuliers)</DIV></DIV>
<DIV class=GGRIAO0BAAC>
<DIV class=GGRIAO0BBAC>987,82&nbsp;€</DIV>
<DIV class=GGRIAO0BMAC>dans 1 minute</DIV></DIV>
<DIV class=GGRIAO0BLAC></DIV></DIV>
<DIV class=GGRIAO0BDAC __eventBits="1">

23/01/2016, 20h27
Sebphyto

Ok mais en faite le mieux serai une impression d'écran car je ne vois pas l'arborescence c'est à dire les parents et les childrens.....etc....:lol:

Seb
23/01/2016, 20h44
Hexa82

1 pièce(s) jointe(s)

Je ne peux pas en afficher plus, désolé...
Et pourtant, j'ai une résolution d'écran de 2560*1440 !

J'espère que cela suffira, sinon il faudra que je coupe en deux.

Pièce jointe 198875

Bon, ca va être tordu...:aie:

il faut que tu mettes un point d'arrêt sur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Récupération du solde des comptes
    'Essai 1
    Set doc = IEdoc.getelementsbytagname("table")
        For i = 0 To doc.Length - 1
            If doc(i).classname = "GGRIAO0BAUD" Then
                MsgBox "trouvé"
 
            End If
        Next i
     ' Essai 2
    Set doc1 = IEdoc.getelementsbytagname("td")
            For j = 0 To doc1.Length - 1
                If doc(j).classname = "GRRIAO0BOTD" Then
                    MsgBox "trouvé"
                End If
            Next j
    ' Essai 3
    Set doc2 = IEdoc.getelementsbytagname("div")
            For h = 0 To doc2.Length - 1
                If doc(h).classname = "GRRIAO0BBAC" Then
                    MsgBox "trouvé"
                End If
            Next h

et me dire ce qu'il y a dans doc, doc1 et doc2 avec l'espion
et également s'il trouve
tu devrais avoir une liste d'item dans les doc

N'hésite pas à mettre des points d'arrêts un peu partout et me dire surtout sur les msgbox, après il faut me dire à quel For il a trouvé
Et A me mettre des copies d'écran de l'espion
si dans les IF , il trouve

comme je te l'ai dit ca va être chaud
Seb

23/01/2016, 21h54
Hexa82

1 pièce(s) jointe(s)

Alors, je viens de lancer le code en pas à pas.
Doc reste vide.
Doc1 reste vide.
Lors de la boucle dans doc1, j'ai une erreur 91 (Variable objet ou variable de bloc With non définie).

C'est la première fois que j'utilise les points d'arrêt et l'espion alors je préfère mettre une copie d'écran pour être certain d'avoir bien procédé. Clic droit sur Doc, Doc1 et Doc2 "Ajouter un espion".
23/01/2016, 22h13
Sebphyto

bon bon ok

mets un espion sur IEdoc et copie d'écran
oublies pas de cliquer sur la croix + dans l'espion
stp

Voir 40 message(s) de cette discussion en une page