Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Connexion site web
Auteur Message
Répondre en citant
Message Connexion site web 
Bonjour!
Par rapport à mon sujet (http://batch.xoo.it/t5411-Programme-de-vote-jeux-vid-os.htm), j'ai commencé par la 1e étape, la connexion.
J'ai donc repris ce programme:
Code:
On Error Resume Next
'set args = wscript.Arguments
set nav = CreateObject("InternetExplorer.application")
nav.Navigate "http://www.farahlon.com/login"
nav.Visible = true
'nav.navigate args(0) Si vous voulez passer l'URL en argument
Do While not nav.ReadyState = 4
Loop
nav.document.All.tags("input").Item("email").Value = "avengedoors@gmx.com"
nav.document.All.tags("input").Item("password").Value = "motdepasse"
nav.Document.All.Tags("input").item("login").Click


Le compte est un compte inutile vous pouvez vous connecter si vous voulez.
Le problème: le bouton valider n'a pas de "name" donc je sais pas quoi mettre dans Item.

Merci! Et ensuite, c'est quoi l'étape suivante ? Wink



Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Connexion site web 
Bonjour.
Remplace
Code:
nav.Document.All.Tags("input").item("login").Click
par
Code:
nav.Document.All.Tags("input").item("Valider").Click





______________________________________________________
Partager permet le savoir. Le savoir permet de partager de nouveau savoirs.
Répondre en citant
Message Connexion site web 
J'ai déjà essayé mais ça marche pas...
J'ai essayé de deviner sur le script de la page mais j'ai pas réussi : http://www.farahlon.com/login



Répondre en citant
Message Connexion site web 
Citation:

'ai déjà essayé mais ça marche pas...
J'ai essayé de deviner sur le script de la page mais j'ai pas réussi : http://www.farahlon.com/login


Effectivement le submit n'as pas de nom !

L'astuce dans ce cas consiste à récuperer tous les inputs dans un array
et ensuite on boucle sur cette array en recherchant la VALUE du tag. Dans ton cas VALIDER
et lorsque l'on trouve VALIDER on envoie le click sur l'input le contenant.

Donc :



Code:
On Error Resume Next
set nav = CreateObject("InternetExplorer.application")
nav.Navigate "http://www.farahlon.com/login"
nav.Visible = true

Do While not nav.ReadyState = 4
Loop

nav.document.All.tags("input").Item("email").Value = "avengedoors@gmx.com"
nav.document.All.tags("input").Item("password").Value = "motdepasse"

Set oInputs = nav.Document.getElementsByTagName("input")

For Each elm In oInputs
  If elm.Value = "Valider" Then
    elm.Click
    Exit For
  End If
Next


Okay


Prochaine étape explique-nous comment on vote

Wink

PS : évite les doubles topics, Il n'y avait pas besoin de créer un nouveau topic. Pour cette fois ça passe......



Dernière édition par sachadee le Mar 30 Aoû 2016 - 13:08; édité 1 fois

______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message Connexion site web 
Ah super merci beaucoup!
Ok pour les doubles, ( je pensais aider Wink ).

Je continuerai mon programme quand j'aurais plus de temps...

A bientôt ! Wink



Message Connexion site web 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch