Discussion :

[OursTortue]

Bonjour à tous,

J'ai récupéré et adapté ce petit bout de code pour me connecter à une application web automatiquement après avoir rempli un formulaire.

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
 
Sub ie_open()
   With CreateObject("InternetExplorer.Application")
     .navigate "mon adresse"
     .Visible = True
     Do Until .readyState = 4
       DoEvents
     Loop
     DoEvents
     With .document
        .forms("XXXX").elements("login").Value = "XXXXX"
        .forms("XXXX").elements("password").Value = "XXXXX"
        .forms("XXXX").submit
     End With
  End With
End Sub

Le problème est que lorsque j'utilise le submit, le login et mdp n'est pas reconnu.

Si je l'enlève, mes champs se remplissent correctement. En cliquant sur le bouton "se connecter" manuellement, j'arrive à me connecter.

Est-ce je fais quelque chose de travers? Ou alors cette page est protégée pour ne pas être validée par une tiers application?

J'avoue que je suis pas un spécialiste de l'html. J'ai essayé aussi de repérer le bouton dans le code source et de faire un truc du style :

Code :

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

1
2
3
 
Set SignInButton = LoginForm
SignInButton.Click

mais sans succès non plus. En fait, soit signbutton est égal à nothing, soit ça fait rien. Donc j'arrive pas à cibler correctement le bouton.

Merci beaucoup

[patricktoulon]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ie_open()
   With CreateObject("InternetExplorer.Application")
     .navigate "mon adresse"
     .Visible = True
     Do:  DoEvents: Loop while.readyState <> 4 or ie.busy 'on oubli souvent le busy le ready donne la main alors que la page se charge encore 
          With .document
        .all("login").Value = "XXXXX"
        .all("password").Value = "XXXXX"
        .all("XXXX").click
     End With
  ' en effet quand les éléments sont une balise form il se peut que ca soit difficile le mieux c'est d'utiliser le ".all"
End With
End Sub

Au plaisir

[OursTortue]

Rebonjour,

Désolé pour le temps de réponse et merci pour la réponse.

J'ai essayé la solution proposée mais sans résultat. J'ai essayé de tâtonner et de me renseigner sur le sujet. Ce qui est bizarre, c'est vraiment le submit qui fonctionne pas. Sur ma page, cela mets nom d'utilisateur et mot de passe inconnu. J'ai essayé de mettre une instruction wait pour être sûr que la page était bien chargée mais cela ne fonctionne pas non plus.

Puis j'ai trouvé ça :

Code :

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

<input type="hidden" name="cmd" value="login">

J'ai essayé de clicker ce bouton mais rien ne se passe.

Des idées?

Merci encore

[Qwazerty]

Salut

Plutôt que de cliquer dessus essai plutôt de saisir ton loggin dedans. Il est possible que ce soit un composant intermédiaire placé la pour éviter les saisies automatique.
Ainsi lors d'une saisie manuelle, par exemple sur l’événement "exit" du champs où l'utilisateur tape son login, la valeur du champs est transmise à ce champs caché.
Lors d'une saisie automatique, le "exit" n'est pas déclenché et donc le login n'est pas transmis, donc si ensuite le code de validation login/MdP prend en compte le champs caché...
Vérifie que la même démarche n'existe pas pour le MdP.

Tout ça peut se vérifier en scrutant le code source mais il faut savoir où aller chercher, sans avoir accès à la page il est plus difficile de trouver les subtilités pour t'aider

Tu peux aller faire un tour sur ce tutoriel qui pourra peut-être t'aider dans ta démarche globale.

++
Qwaz

[OursTortue]

Bonjour et merci de la réponse

Merci également pour le lien, parfois je me demande pourquoi je vais chercher partout des réponses sauf dans les tutos de développez.com

Ça m'a bien éclairé sur pas mal de choses.

Pour ta question sur un transfert à une variable cachée, je n'ai rien identifié de tel dans le code. Par contre, je me suis rendu compte que le bouton se connecter avait une ID dynamique.

Sinon, je comprends bien que c'est pas évident de m'aider sans la page en question mais premièrement, c'est pas un code que je peux partager (appli web intranet, pas sûr que ce soit le terme adéquat). Mais surtout, je préfère avoir des pistes à explorer dans un premier temps pour résoudre mon problème.

Encore merci, je vais continuer de fouiller et je reviens vers vous en cas de blocage.

[OursTortue]

Bon retour rapide finalement.

Je n'avais pas vu que le mot de passe était "converti" en md5 avant le submit. Après conversion, tout fonctionne impec.

Merci encore, le tutoriel m'a ouvert plein de possibilités intéressantes du coup.

[patricktoulon]

bonjour

<input type="hidden" name="cmd" value="login">

c'est un peu comme la page Outlook ou il a 2 object dont 1 caché pour le login et le password

Code :

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

1
2
3
4
with .document
.all("cmd").value=monpseudo
'idem pour le password 
end with

attention aussi a ce que la page web n'est pas un script anti robot au quel cas il te sera impossible de gérer ca par vba si ce n'est qu'avec des sendkey(solution bien contraignante et pas toujours sure )

[OursTortue]

Désolé, je ne suis pas sûr de bien comprendre mais c'est certainement dû au fait que vous avez pas accès au code source.

J'ai réussis à me connecter automatiquement au final en utilisant :

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
Sub ie_open()
 
Dim Mdp As String
Dim IE As InternetExplorer
Set IE = New InternetExplorer
Dim myElem As Object
 
 
With IE
    .navigate "mon adresse"
    .Visible = True
    Do:  DoEvents: Loop While .readyState <> 4 Or IE.Busy
    Set myElem = IE.document.getElementById("login")
    If myElem Is Nothing Then
        Msgbox("Déjà connecté")   
    Else 
        Mdp = MD5Hash("mon mot de passe")
 
        Do:  DoEvents: Loop While .readyState <> 4 Or IE.Busy
        With .document
            .forms("XXXX").elements("login").Value = "mon login"
            .forms("XXXX").elements("password").Value = Mdp
            .forms("XXXX").submit
        End With
    End If
End With
 
 
 
End Sub

Je suis conscient que ce n'est pas très propre comme code, je pense notamment à la ligne :

Code :

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

1
2
Do:  DoEvents: Loop While .readyState <> 4 Or IE.Busy
    Set myElem = IE.document.getElementById("login")

J'aimerais bien procéder autrement mais je ne vois pas comment faire

De plus, j'aimerais éviter le MsgBox et j'avais pensé utilisé

Code :

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

if not myElem Is Nothing Then

mais pour le coup, ça ne fonctionne pas :s

Pour cette ligne là :

Code :

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

<input type="hidden" name="cmd" value="login">

je ne sais pas comment l'interpréter. J'ai essayé de faire le .all("cmd").value = mon login mais sans succès.

Merci

[patricktoulon]

je ne vois pas ce qu'il y a de pas très propre dans ces deux lignes

Code :

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

1
2
Do:  DoEvents: Loop While .readyState <> 4 Or IE.Busy
    Set myElem = IE.document.getElementById("login")

au contraire même
au moins ta boucle d'attente est complete (readystate /busy)
et la fonction getelementbyid il n'y a pas mieux

c'est donc bien "login" to élément pas "cmd"
ca n'est donc pas celui la
[CODEhtml]<input type="hidden" name="cmd" value="login">
[/CODE]
tu aurais pu faire directement

Code :

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

 IE.document.getElementById("login").value="tonpseudo"

sinon c'est clair et propre

[Qwazerty]

Salut

Si tu regardes sur le tuto, j'utilise une procédure WaitIE (elle ne fait pas référence au Busy mais ça s'implémente facilement.
L'avantage d'utiliser la procédure WaitIE apparait lorsque tu à plusieurs changement de page à faire dans ton code, ainsi au lieu de répéter x fois la boucle dans ton code, il te suffit d'une ligne "WaitIE IE".

Pour les Nom d'éléments dynamiques, au cas ou tu ne l'ai pas vu, ce cas est traité dans le tuto.

Bon développement

++
Qwaz

[Antoine5082]

Bonjour,

En lisant votre conversation, j'ai essayé de remplacer les boucles par le WaitIE IE mais sans résultats.
Le msg d'erreur

Erreur de compilation : Sub ou Function non définie

apparait.

Savez vous comment procéder ?

Voici une partie du code :

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
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputLoginTexte As HTMLInputElement
 
Dim IEDoc2 As HTMLDocument
Dim InputPasswordTexte As HTMLInputElement
 
Dim IEDoc3 As HTMLDocument
Dim InputLoginButton As HTMLInputElement
 
   IE.Navigate "https://www.chronopost.fr/fr#/step-home"
   IE.Visible = True
 
   WaitIE IE
 
   Set IEDoc = IE.document
   Set InputLoginTexte = IEDoc.all("login")
   InputLoginTexte.Value = "id"
 
   WaitIE IE
 
   Set IEDoc2 = IE.document
   Set InputPasswordTexte = IEDoc2.all("pass")
   InputPasswordTexte.Value = "mdp"

merci beaucoup de votre aide :D

[Qwazerty]

Salut

Il faut ajouter le code de la procédure WaitIe dans un module de code par exemple.
Tu auras plus d'informations en suivant le tutoriel... il n'est pas vraiment actuel mais ça te donner quand même quelques bases.

++
Qwaz