Contrôle VB internet explorer besoin d'aide... urgent...

Question

Il y a un controle VB qui permet de soumettre un formulaire sur internet explorer du style:

With ie
    .Visible = True
    .IENavigate "http://www.google.fr/"
    .FormFillField "q", "vbfrance"
    .FormClickButton "btnG"
End With

il ouvre internet explorer rempli "vbfrance" dans le textfield de google et click auto sur le boutton "btnG" de google pour soumettre la recherche
Ca fonction formidablement bien mais voici le probl&#232;me:

Comment puis je utiliser cette m&#233;thode si le boutton n'a pas de nom ?
celui de google s'appel "btnG" donc &#231;a va mais sur d'autres sites certains bouttons n'ont aucun nom...
Auriez-vous une solution &#224; &#231;a ? je vous remercis d'avance...

michelxld · Answer

bonjour


ton code semble interessant , mais je n'ai pas reussi &#224; le faire fonctionner : pourrais tu le placer ici en entier et preciser les bibliotheques que tu utilises  


 


sinon , si tu ne connais pas le nom des objets , tu peux aussi piloter les pages Web  &#224; partir de leurs numeros d'index


cette premiere macro boucle sur tous les objets type "input" de la page , en indiquant l'index de chacun



Sub piloterPageWebV01()
'michelxld le 12.11.2004
'activer la reference Microsoft HTML Objects Library
'activer la refenrce Microsoft Internet Controls
Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection


On Error Resume Next


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True


IE.Navigate "http://www.google.fr/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement


Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")


'
'*******************************
'(boucle pour identifier l'index des objets "input" dans la page)
For i = 0 To Helem.Length - 1
MsgBox Helem(i).getAttribute("name") & " / " & Helem(i).getAttribute("value")


Helem.Item(i).innerText = "index objet : " & i
Next i
'*******************************


End Sub



une fois que tu connais les index , tu peux tester cette deuxieme procedure  , qui permet de completer les champs de la page Web et simuler le clic sur le bouton


Sub piloterPageWebV02()
'michelxld le 12.11.2004
'activer la reference Microsoft HTML Objects Library
'activer la refenrce Microsoft Internet Controls
Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True


IE.Navigate "http://www.google.fr/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement


Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")


'
'quand tu connais l'index des objets tu peux utiliser le code comme ci dessous
'pour remplir le champ
Helem.Item(1).innerText = "vbfrance"
'simule le clic sur le bouton "Recherche Google"
Helem(2).Click


End Sub



j'espere que &#231;a pourra t'aider

bon week end
michelxld

ArRkHaOn · Answer

Ta fonction marche avec google mais avec un autre site sans nom au boutton ca me met une erreur:

Helem.Item(1).innerText = "vbfrance"
'simule le clic sur le bouton "Recherche Google"
Helem(2).Click '<== erreur


End Sub

Je vais essayer de l'&#233;tudier un peu plus je te remerci beaucoup ;)

ArRkHaOn · Answer

Bon pour finir j'ai chercher et j'ai trouv&#233; je te remercis beaucoup je te met mon msn si tu veux bien l accepter : arrkhaon@hotmail.com
merci encore

cs_fred29 · Answer

bonjour tous

 une question  :

 j'arrive a simuler via VB6 les input des pages html mais pas les :" <a href .... onclick ....."

 est ce des link ?

et faut il faire ceci pour les retrouver :

Set Helem = maPageHtml.getElementsByTagName("link")'

je suis bloqué la dessus et j'ai beau tout essayer , je coince !!!!

merci

Contrôle VB internet explorer besoin d'aide... urgent...

4 réponses

Discussions similaires