CLIQUER SUR UN LIEN JAVASCRIPT / CONTRÔLE DE INTERNET EXPLORER / REMPLIR UN FORM
capo666
Messages postés
35
Date d'inscription
jeudi 8 septembre 2005
Statut
Membre
Dernière intervention
1 juin 2008
-
22 avril 2008 à 18:19
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 juil. 2008 à 11:19
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 juil. 2008 à 11:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/46366-cliquer-sur-un-lien-javascript-controle-de-internet-explorer-remplir-un-formulaire-automatiquement-robot
https://codes-sources.commentcamarche.net/source/46366-cliquer-sur-un-lien-javascript-controle-de-internet-explorer-remplir-un-formulaire-automatiquement-robot
11 juil. 2008 à 11:19
me semble
11 juil. 2008 à 11:13
Savez vous comment on peut cocher un bouton radio d'un formulaire ?
19 juin 2008 à 17:12
pas de
IE.Document.All ....
mais
Dim oDoc As ....
oDoc = IE.Document
oDoc.All ....
19 juin 2008 à 16:53
J'ai pourtant bien ajouté les 2 références
19 juin 2008 à 15:40
19 juin 2008 à 15:29
Ceci ne marche pas chez moi
IE.Document.all("idUser").Value = "Jeannot" 'textbox...
En effet, apres Document, j'ai seulement Equals, GetHashCode, GetType ReferenceEquals ou ToString
Ceci est surement du à VB express 2008. Quelqu'un a t-il une idée pour trouver l'équivalent ?
2 mai 2008 à 15:41
Merci, a+
2 mai 2008 à 15:36
il suffit juste de mettre le url de la frame http://www.boursedirect.fr/frmTop.php
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate ("http://www.boursedirect.fr/frmTop.php")
Do While IE.readyState <> 4
Loop
IE.document.All("login").Value = "ton_identifiant"
IE.document.All("password").Value = "ton_mot_de_passe"
IE.document.Forms(0).submit
j'ai tester et sa marche
2 mai 2008 à 14:59
Pour info voilà ma macro :
Sub BD()
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate ("http://www.boursedirect.fr/")
Do While IE.readyState <> 4
Loop
IE.document.all("login").Value = "ton_identifiant"
IE.document.all("password").Value = "ton_mot_de_passe"
IE.document.forms(0).submit
End Sub
ça marche bien chez toi? Sinon il me manque peut etre une référence, mais laquelle!?
30 avril 2008 à 21:56
IE.Document.all("login").Value = "ton_identifiant"
IE.Document.all("password").Value = "ton_mot_de_passe"
IE.Document.forms(0).submit
30 avril 2008 à 19:14
30 avril 2008 à 00:18
29 avril 2008 à 20:54
Si ça vous inspire + que moi, merci d'avance
29 avril 2008 à 00:11
28 avril 2008 à 22:50
avec des pages comme yahoo ou google, ça marche très bien pour se logger :
'IE.Document.all("idUser").Value = "Jeannot"
Mais je tombe sur une erreur 91 quand je teste ça sur d'autres pages...
Même chose avec un code du genre :
'Set x = IE.document.getelementsByName("login")
'x.Item(0).Value = "Jeannot"
Quel est le souci à votre avis?
Merci d'avance !!
25 avril 2008 à 20:25
25 avril 2008 à 14:04
peux pas te dire : j'ai pas l'aide, je regarde sur le site MSDN
25 avril 2008 à 13:13
euh....
sur quelle ligne ?
En fait, dans environnement de dev, lorsque tu surligne un mot clé, la touche F1 appelle l'aide sur ce mot clé.
Mais pour les objet méthodes et propriétés de "Microsoft HTML Object Library" et "Microsoft Internet Controls" F1 me ramène "Mot clé introuvable".
25 avril 2008 à 12:04
(Capo666) Dites moi ce que vous pensez de ça :
object.Click
'attend que la page soit chargée
Do While IE.ReadyState <> READYSTATE_INTERACTIVE Or IE.ReadyState <> READYSTATE_LOADING
DoEvents
i = i + 1
If i > 30000 Then
Exit Do
End If
Loop
Do While IE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
25 avril 2008 à 11:45
25 avril 2008 à 10:31
sur quelle ligne ?
25 avril 2008 à 10:29
Désormais la complétude est assurée, mais je n'ai toujours pas d'aide en ligne : "Mot clé introuvable".
Si tu as une idée
24 avril 2008 à 19:01
24 avril 2008 à 14:06
ce qui veut dire que le test de boucle passerai directement ???
24 avril 2008 à 09:18
et le composant "Microsoft Internet Controls"
de plus je vois:
Dim IE As Object
qu'il faudra modifier en :
Dim IE As InternetExplorer
24 avril 2008 à 00:10
Quand tu appelles une URL (avec Navigate), le ReadyState passe par les états suivants :
Uninitialized, Loading, Interactive, Complete
Puis, quand tu cliques sur un bouton, les états sont :
Interactive, Complete
Donc, il te suffit de créer autant de boucle Do-Loop que tu as d'état à voir défiler :
Quand tu appelles l'URL, ce qui t'intéresse, c'est l'état final :
Do While ie.ReadyState <> 4
DoEvents
Loop
Ensuite, tu sais que tu vas cliquer sur un bouton, il faut attendre qu'apparaissent successivement Interactive, puis Complete :
Do While ie.ReadyState <> 3
DoEvents
Loop
Do While ie.ReadyState <> 4
DoEvents
Loop
voila
23 avril 2008 à 21:14
J'ai un petit souci, sous VBA access le code fonctionne parfait, mais je n'ai pas la complétude des méthodes et propriétés, ni d'aide en ligne sur les objet IE.
Par exemple pour "IE.ReadyState" ReadyState est inconnu de l'aide et quand je tape "IE." l'environnement de dev ne propose aucune méthodes objets ou propriétés.
Merci par avance
23 avril 2008 à 13:26
Membres de SHDocVwCtl.tagREADYSTATE :
Const READYSTATE_INTERACTIVE = 3
Const READYSTATE_COMPLETE = 4
leur doc ( http://msdn2.microsoft.com/en-us/library/bb268229(VS.85).aspx ) nous dit:
READYSTATE_INTERACTIVE
Object is interactive, but not all of its data is available.
READYSTATE_COMPLETE
Object has received all of its data.
-----------------
a lire également:
http://groups.google.com/group/microsoft.public.inetsdk.programming.dhtml_editing/browse_thread/thread/f54cc97916235519
----------
en somme, je ne comprends pas le bien fondé de ta remarque, Capo666
23 avril 2008 à 12:48
22 avril 2008 à 18:19
Do While IE.ReadyState <> 3
DoEvents
Loop
Do While IE.ReadyState <> 4
DoEvents
Loop