AutoIt Français

Code : Tout sélectionner

#Include <IE.au3>

$app_name = "Google Search"

Dim $s_iptBox
$s_iptBox = InputBox($app_name,"Recherche Google :")
If $s_iptBox = "" Then
    MsgBox ( 0, $app_name, "Vous n'avez rien entré.")
Else
    _GoogleSearch($s_iptBox)
EndIf

Exit

Func _GoogleSearch($strSearch)
    Local $o_IE
    $strSearch = StringReplace($strSearch," ","+")
    $o_IE = _IECreate ("http://www.google.fr/search?hl=fr&q=" & $strSearch & "")
EndFunc

Code : Tout sélectionner

#include <IE.au3>
#include <GUIConstants.au3>


$sServeurWeb = ""
$sLien = ""
$sLangue=""

$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 = _IECreate($sLien)
EndFunc   ;==>_lancerRecherche

Code : Tout sélectionner

#include <String.au3>
$txt = InputBox("","Texte a traduire",""," 300")
$langue = InputBox("","Traduction","fe")
Inetget("http://tr.voila.fr/traduction_voila.php?isText=1&translationDirection="&$langue&"&stext="&$txt,@ScriptDir & "\tr.txt",1)
$l = Fileopen(@ScriptDir & "\tr.txt",0)
$texte = Fileread($l)
$new = _StringBetween($texte,'<div class="txtTrad">','</div>')
Msgbox(0,"Texte Traduit",$new[0])
Fileclose($l)
FileDelete(@ScriptDir & "\tr.txt")