[R] Comment envoyer une requette à Google

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

[Tlem]

Avez-vous regardé ce qui est écrit dans la barre d'adresse après avoir lancé une recherche avec Google ?

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

[DimVar]

Avez-vous regardé ce qui est écrit dans la barre d'adresse après avoir lancé une recherche avec Google ?

Oui, du charabia

"http://www.google.fr/webhp?hl=fr#hl=fr& ... 32db949609" (avec le mot clef "titi")

[DimVar]

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.

[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

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

[milka]

Ah oui, j'avais même pas vu que le "+" ne s'affichait pas.
Voila

► Afficher le texte

Code : Tout sélectionner

$resultat = "http://www.google.fr/#hl=fr&q=%2Bpdf"

(Le caractère "+" vaut 2B en hexadécimal)

[DimVar]

Impec !

Merci encore et bon WE.