#include <GUIConstants.au3>


$hGui = GUICreate("Recherche Google", 380, 180)

$hInput = GUICtrlCreateInput("", 15, 15,220,20)

GUICtrlCreateGroup("Filtrer les résultats selon la langue", 10, 50, 200, 110)
GUIStartGroup()
$hRadioToute=GUICtrlCreateRadio("Par défaut",30,70)
GUICtrlSetState($hRadioToute, $GUI_CHECKED)

$hRadioFr = GUICtrlCreateRadio("Francais", 30, 100)
$hRadioEn = GUICtrlCreateRadio("Anglais", 30, 130)
$hRadioDe = GUICtrlCreateRadio("Allemand", 130, 100)
$hRadioEs = GUICtrlCreateRadio("Espagnol", 130, 130)

GUICtrlCreateGroup("Type de recherche", 230, 50, 130, 110)
GUIStartGroup()
$hRadioTypeRechercheWeb = GUICtrlCreateRadio("Web", 250, 70)
GUICtrlSetState($hRadioTypeRechercheWeb, $GUI_CHECKED)
$hRadioTypeRechercheActualitees = GUICtrlCreateRadio("Actualitées", 250, 100)
$hRadioTypeRechercheImages = GUICtrlCreateRadio("Images", 250, 130)


$hLancerRecherche = GUICtrlCreateButton("Lancer la recherche", 250, 12)
GUICtrlSetState($hLancerRecherche, $GUI_FOCUS + $GUI_DEFBUTTON)


GUISetState()
Do
	$nMsg = GUIGetMsg()
	Select
		Case $nMsg = $hLancerRecherche
			_lancerRecherche()
			
	EndSelect
Until $nMsg = $GUI_EVENT_CLOSE


Func _IsChecked($control)
	Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

Func _lancerRecherche()
	
	If StringIsSpace(GUICtrlRead($hInput)) Or GUICtrlRead($hInput)="" Then 
		MsgBox(8208,"Erreur","Le champ de recherche ne doit pas être vide.")
		Return False
	EndIf
		
	Select
		Case _IsChecked($hRadioFr)
			$sLangue="fr"
			$sFinLien="&btnG=Rechercher&meta=lr%3Dlang_"& $sLangue
			
		Case _IsChecked($hRadioEn)
			$sLangue="en"
			$sFinLien="&btnG=Rechercher&meta=lr%3Dlang_"& $sLangue
			
		Case _IsChecked($hRadioEs)
			$sLangue="es"
			$sFinLien="&btnG=Rechercher&meta=lr%3Dlang_"& $sLangue
			
		Case _IsChecked($hRadioDe)
			$sLangue="de"
			$sFinLien="&btnG=Rechercher&meta=lr%3Dlang_"& $sLangue
			
		Case _IsChecked($hRadioToute)
			$sLangue=""
			$sFinLien="&btnG=Rechercher&meta=lr%3D"
			
	EndSelect
	
	Select
		Case _IsChecked($hRadioTypeRechercheWeb)
			$sServeurWeb = "http://www.google.fr/search?hl=fr"
			
		Case _IsChecked($hRadioTypeRechercheImages)
			$sServeurWeb = "http://images.google.fr/images?hl="&$sLangue
			
		Case _IsChecked($hRadioTypeRechercheActualitees)
			$sServeurWeb = "http://news.google.fr/news?hl="&$sLangue
	EndSelect
	
	$sContenuRecherche ="&q=" & GUICtrlRead($hInput)
	$sLien = $sServeurWeb &  $sContenuRecherche & $sFinLien
	$oIE = ShellExecute($sLien)
EndFunc   ;==>_lancerRecherche