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 )