Insertion d'un mot dans champs de texte sans ID

Bonjour,

je voudrais insérer un mot dans le champs de recherche de google. Sauriez-vous comment faire, svp?

Code:

---

1 2 3 4 5 6 7 8

set WshShell=WScript.CreateObject("WScript.Shell") WshShell.run "chrome.exe" WScript.sleep 1400 WshShell.sendkeys "www.google.com"   ' INSERTION D'UN MOT DANS LE CHAMPS DE TEXTE   WshShell.sendkeys "{ENTER}"

---

Merci d'avance pour vos réponses.
Arsène

J'ai trouvé la solution mais y reste quelques problèmes :

Code:

---

1 2 3 4 5 6 7 8

set WshShell=WScript.CreateObject("WScript.Shell") WshShell.run "chrome.exe" WScript.sleep 1400 WshShell.sendkeys "www.google.com"   WshShell.sendkeys "Victor Hugo"   WshShell.sendkeys "{ENTER}"

---

Le premier souci, c'est que ce code insère w ww.google.comVictor Hugo dans le champs de recherche de google. Et dans le cas où y'aurait plusieurs champs de texte, comment cibler le champs de texte où l'on veut envoyer notre sendkeys. Dans le cas ici présent, le premier sendkeys se fait dans la barre d'adresse, le deuxième dans le champs de recherche.

Pardon, j'avais oublié de rajouter un sendkeys "{ENTER}". Je corrige et voici le bon code :

Code:

---

1 2 3 4 5 6 7 8

set WshShell=WScript.CreateObject("WScript.Shell") WshShell.run "chrome.exe" WScript.sleep 1400 WshShell.sendkeys "www.google.com" WshShell.sendkeys "{ENTER}" WScript.Sleep 1500 WshShell.sendkeys "Victor Hugo" WshShell.sendkeys "{ENTER}"

---

Par contre, avec ce code ci-dessous, j'aurai besoin d'insérer le curseur dans le champs "Recherche avancée" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

set WshShell=WScript.CreateObject("WScript.Shell") WshShell.run "chrome.exe" WScript.sleep 1400 WshShell.sendkeys "https://www.developpez.net/forums/f519/general-developpement/programmation-systeme/windows/scripts-batch/" WshShell.sendkeys "{ENTER}" WScript.Sleep 6500   ' POSITIONNER CURSEUR DANS LE CHAMPS RECHERCHE AVANCÉE   WshShell.sendkeys "VBS"   WshShell.sendkeys "{ENTER}"

---

Auriez-vous la formule à employer, svp?

Pourquoi pas mettre directement le texte dans l'url ?

https://www.google.fr/search?hl=fr&q=Victor+Hugo

https://www.google.fr/advanced_search?q=Victor+Hugo

Citation:

---

Envoyé par ericlm128

Pourquoi pas mettre directement le texte dans l'url ?

https://www.google.fr/search?hl=fr&q=Victor+Hugo

https://www.google.fr/advanced_search?q=Victor+Hugo

---

Ça marche pour google.com, mais pas pour d'autres sites :

Recherche avancée : VBS

https://www.developpez.net/forums/se...p?searchid=214

Je pensais que la demande portait sur Google.
Si tu veux un code polymorphe qui fonctionne pour tout les sites qui propose une zone de recherche je te souhaite bonne chance.

Citation:

---

Envoyé par ericlm128

Je pensais que la demande portait sur Google.
Si tu veux un code polymorphe qui fonctionne pour tout les sites qui propose une zone de recherche je te souhaite bonne chance.

---

J'ai ce code qui insère un mot dans un champs de recherche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Set ie = CreateObject("InternetExplorer.Application") ie.Navigate "https://www.developpez.net/forums/f519/general-developpement/programmation-systeme/windows/scripts-batch/" While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE 'DoEvents ie.visible = True wscript.sleep 3000 ie.Document.All.Item("query").Value= "VBS" wscript.sleep 1000 ie.sendkeys "{ENTER}"   Wend ie.visible = True ie.sendkeys "{ENTER}" 'DoEvents

---

Le problème c'est que :

Code:

---

ie.sendkeys "{ENTER}"

---

ne fonctionne pas. Sinon, c'était bon.

Y'a plus qu'à cliquer sur le bouton submit. Ces codes ne marchent pas non plus :

Code:

---

ie.document.getElementById('navbar_search').submit

---

Code:

---

ie.Document.all("navbar_search" ).click

---

J'ai trouvé le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Set ie = CreateObject("InternetExplorer.Application") ie.Navigate "https://www.developpez.net/forums/f519/general-developpement/programmation-systeme/windows/scripts-batch/" While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE 'DoEvents ie.visible = True wscript.sleep 3000 ie.Document.All.Item("query").Value= "VBS" wscript.sleep 3000 ie.Document.all("submit").click   Wend ie.visible = True ie.sendkeys "{ENTER}" 'DoEvents

---

Lorsqu'on a le nom de l'input (ici c'est "query"), c'est simple d'y insérer une valeur :

Code:

---

ie.Document.All.Item("query").Value= "VBS"

---

Ensuite pour soumettre, c'est :

Code:

---

ie.Document.all("submit").click

---