Page 1 sur 1
[R] Comment envoyer une requette à Google
Posté : ven. 25 févr. 2011 00:46
par DimVar
Bonjour,
Je cherche le moyen d'envoyer des requêtes pré-paramétrées sur Google.
Un input dans lequel on insère un mot clef, et ensuite viendraient s'ajouter d'autres mots clef pre-definis par le programme.
Merci de votre aide.
Cdlt.
Dimvar.
Re: [..] Comment envoyer une requette à Google
Posté : ven. 25 févr. 2011 02:38
par Tlem
Re: [..] Comment envoyer une requette à Google
Posté : ven. 25 févr. 2011 09:37
par milka
C'était pourtant pas dur
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Recherche Google", 243, 58)
$Label1 = GUICtrlCreateLabel("Que voulez-vous rechercher ?", 8, 8, 227, 17, $SS_CENTER)
$Input1 = GUICtrlCreateInput("", 8, 32, 201, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("Go !", 216, 32, 25, 17, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$chaine = StringSplit(GUICtrlRead($Input1), " ")
$resultat = "http://www.google.fr/#hl=fr&q="
For $i = 1 To $chaine[0]
$resultat &= $chaine[$i]
If $i <> $chaine[0] Then $resultat &= "+"
Next
ShellExecute("firefox", $resultat)
EndSwitch
WEnd
Si tu veux des explications, n'hésite pas.
Re: [..] Comment envoyer une requette à Google
Posté : ven. 25 févr. 2011 11:44
par DimVar
Re: [..] Comment envoyer une requette à Google
Posté : ven. 25 févr. 2011 11:58
par DimVar
milka a écrit :C'était pourtant pas dur
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Recherche Google", 243, 58)
$Label1 = GUICtrlCreateLabel("Que voulez-vous rechercher ?", 8, 8, 227, 17, $SS_CENTER)
$Input1 = GUICtrlCreateInput("", 8, 32, 201, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("Go !", 216, 32, 25, 17, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$chaine = StringSplit(GUICtrlRead($Input1), " ")
$resultat = "http://www.google.fr/#hl=fr&q="
For $i = 1 To $chaine[0]
$resultat &= $chaine[$i]
If $i <> $chaine[0] Then $resultat &= "+"
Next
ShellExecute("firefox", $resultat)
EndSwitch
WEnd
Si tu veux des explications, n'hésite pas.
Merci de ton aide.
Si je veux rajouter systematiquement à la recherche (en plus de la saisie de l'utilisateur) le mot clef "+pdf", où dois je modifier la variable $resultat ? Ou comment m'y prendre ?
D'autre part, je ne connaissais pas la syntaxe que tu utilises dans " $resultat &= $chaine[$i] " : $resultat
&=
Peux tu m'expliquer l'utilité du & avant le =
Merci.
Re: [..] Comment envoyer une requette à Google
Posté : ven. 25 févr. 2011 12:02
par milka
Si tu veux rajouter systématiquement pdf aux mots-clés, tu rajoute "+pdf" à la fin de la chaine $resultat.
Le & sert à concaténer des chaînes.
Par exemple, "a" & "0" vaudra "a0".
http://www.autoitscript.fr/autoit3/docs ... rators.htm
Re: [..] Comment envoyer une requette à Google
Posté : ven. 25 févr. 2011 14:27
par DimVar
Me suis mal fait comprendre.
Je souhaite rajouter " +pdf " et non " pdf ".
L'operateur + ou - permet d'exclure ou forcer le terme à ommettre ou rechercher.
quand je saisi : "+pdf", ma recherche google apparait pour "pdf" et non "+pdf".
Merci.
Re: [..] Comment envoyer une requette à Google
Posté : ven. 25 févr. 2011 14:57
par milka
Ah oui, j'avais même pas vu que le "+" ne s'affichait pas.
Voila
(Le caractère "+" vaut 2B en hexadécimal)
Re: [..] Comment envoyer une requette à Google
Posté : sam. 26 févr. 2011 13:11
par DimVar
Impec !
Merci encore et bon WE.