Saisie automatique de mot de passe
Bonjour,
Je ne sais pas si cela est possible et j'en doute mais j'essaye quand même de vous demander si une solution existe.
Est-il possible de créer un lien vers un site internet et de saisir automatiquement un identifiant + mot de passe afin de
s'y identifier ?
Le but étant une fois identifié de remplir un champs afin d'obtenir des renseignements en rapport avec cette saisie.
Merci pour vos réponses
Bonjour Olca,
Peux-tu envoyer le lien du site pour test ?
Bonjour vba-new voici le lien:
merci pour ton aide
Re,
Une adaptation d'un code de cafeine :
Sub connexion()
'Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("http://ccc.hyundai-motor.com/ccc/main.jsp")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
'login
Set DOCelement = IEdoc.getElementsByName("txtuid").Item
DOCelement.Value = [b1] '<-- Ton login ici
'password
Set DOCelement = IEdoc.getElementsByName("txtpwd").Item
DOCelement.Value = [b2] '<-- Ton mot de passe ici
DOCelement.Select
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit
End Subexcellent cela fonctionne, pour continuer la navigation sur le site après avoir été identifié,peut-on continuer le code
avec la même ligne qu'au début:
ie.Navigate ("
...")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
Et une autre petite question sur ce même site une 2eme identification est nécessaire, peut-on reprendre le même bout de code correspondant a l'id et au Mot de passe une fois la page du site affiché
Merci pour votre aide.
Re,
Eh bien, il faudrait que tu testes toi-même car je n'ai pas d'identifiants pour le faire. Mais ça devrait être possible...
J'ai justement essayé mais le fait de rajouter le code avec le nouveau lien de la page suivante du site me met comme quoi le mot de passe est incorrect, il ne passe plus la 1ere page. Je pense qu'il doit manquer quelque chose entre le bout de code que j'ai ajouter et celui juste au dessus, je met le code modifié ci-dessous:
Sub connexion()
'Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("
")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
'login
Set DOCelement = IEdoc.getElementsByName("txtuid").Item
DOCelement.Value = [b1] '<-- Ton login ici
'password
Set DOCelement = IEdoc.getElementsByName("txtpwd").Item
DOCelement.Value = [b2] '<-- Ton mot de passe ici
DOCelement.Select
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit
ie.Navigate ("
")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
End Sub
et en attendant 3 secondes, le temps que ton mot de passe soit validé ?
Sub connexion()
'Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("http://ccc.hyundai-motor.com/ccc/main.jsp")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
'login
Set DOCelement = IEdoc.getElementsByName("txtuid").Item
DOCelement.Value = [b1] '<-- Ton login ici
'password
Set DOCelement = IEdoc.getElementsByName("txtpwd").Item
DOCelement.Value = [b2] '<-- Ton mot de passe ici
DOCelement.Select
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit
Application.Wait (Now + TimeValue("0:00:03"))
ie.Navigate ("http://ccc.hyundai-motor.com/servlet/ccc.login.CccLoginServlet")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
End Sub