Discussion :

[Arsene12]

Bonjour,

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

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Arsene12]

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

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Arsene12]

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

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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 vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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

[Arsene12]

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

[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.