Discussion :

[Mayti4]

Voilà, c'est facile de créer un moteur de recherche en VB pour Google parceque on peut arriver sur la page de la recherche que en modifiant l'url mais pour les moteurs de recherche ou ce n'est pas possible, comment remplir la case et appuyer sur "Rechercher" ou autre ?

Merci

[michelxld]

bonjour

j'espere que cet exemple pourra t'aider

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub piloterPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
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://mail1.voila.fr/webmail/login.html?REDIRECTION_INIT=TRUE"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
 
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
 
'exemple de boucle pour lister les objets type "select"(listes de choix) dans la page
'Dim Hsel As IHTMLElementCollection
'Set Hsel = maPageHtml.getElementsByTagName("select")
'For i = 0 To Hsel.Length - 1
'MsgBox Hsel(i).getAttribute("name") & " / " & Hsel(i).getAttribute("value")
'Next i
 
'(boucle pour lister les objets type "input" de la page)
'For i = 0 To Helem.Length - 1
'MsgBox Helem(i).getAttribute("name") & " / " & Helem(i).getAttribute("value")
 
'une autre possibilité pour déclencher le clic ( non utilisable dans cet exemple)
'If Helem(i).getAttribute("value") = "texte du bouton" Then Helem(i).Click
'Next i
 
Helem(7).innerText = "piloter page internet VB" 'champ de saisie mots clés
Helem(8).Click 'simulation clic
 
End Sub

bonne journée
michel

[michelxld]

rebonjour

...oouppss...un petit oubli dans mon precedent message...

il faut aussi activer la référence "Microsoft Internet Controls"


bon dimanche
michel

[Mayti4]

Merci

Je vais esseyer

[Mayti4]

Voilà ça marche bien, mais sur certains sites non, par exemple sur http://imageshack.us/ , pourtant il y'a bien le input du formulaire dans le code source de la page.