AutoIt Français

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\..\Multimédia\Visuel\Images, Photos\1. Moi\Pouf\Pouf Icone\Ico\Pouf 256.ico
#AutoIt3Wrapper_Outfile=M:\Backup\Portable\ Mes créations\Recherche du Pouf.exe
#AutoIt3Wrapper_Res_Fileversion=2.0
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<array.au3>
#include <EditConstants.au3>
#include <GuiConstantsEX.au3>
#include<misc.au3>
#include <WindowsConstants.au3>


;FileDelete(@ScriptDir & "\search.ini")

If Not FileExists(@ScriptDir & "\search.ini") Then
    
    IniWrite("search.ini", "NOTES", "notes0", "Pour rajouter des onglets, vous devez ajoutez sous [tabs] X='nom de l'onglet'")
    IniWrite("search.ini", "NOTES", "notes1", "où X est égal au numéro suivant le dernier onglet déjà présent.")
    IniWrite("search.ini", "NOTES", "notes2", "Pour créer des items dans cet onglet nouvellement crée, vous devez")
    IniWrite("search.ini", "NOTES", "notes3", "créer une nouvelle section appelés [Nom de l'onglet] sous laquelle vous ajouterez")
    IniWrite("search.ini", "NOTES", "notes4", "1. Nom = nom du site")
    IniWrite("search.ini", "NOTES", "notes5", "1. Adresse = adresse du site ")
    IniWrite("search.ini", "NOTES", "notes6", "2. Nom = nom du site numéro 2 ...")
    IniWrite("search.ini", "NOTES", "notes7", "Vous ne pouvez dépassez 10 items par onglet (il y'a risque de mal-fonctionnement si vous le faite)")
    IniWrite("search.ini", "CONFIG", "incoming", "")
    ;tabs name
    IniWrite("search.ini", "tabs", "1", "Autoit")
    IniWrite("search.ini", "tabs", "2", "Images")
    IniWrite("search.ini", "tabs", "3", "Achats")
    
    
    IniWrite("search.ini", "Autoit", "1. Nom", "Forum autoit (fr)")
    IniWrite("search.ini", "Autoit", "1. Adresse", "http://www.autoitscript.fr/forum/search.php?keywords=###&terms=all&author=&sc=1&sf=all&sk=t&sd=d&sr=topics&st=0&ch=300&t=yrdddd")
    IniWrite("search.ini", "Autoit", "1. lang", "fr")
    IniWrite("search.ini", "Autoit", "1. del", "")
    
    IniWrite("search.ini", "Autoit", "2. Nom", "Forum autoit (en)")
    IniWrite("search.ini", "Autoit", "2. Adresse", "http://www.google.ca/search?q=site%3Ahttp%3A%2F%2Fwww.autoitscript.com%2Fforum++###")
    IniWrite("search.ini", "Autoit", "2. lang", "en")
    IniWrite("search.ini", "Autoit", "2. del", "")
    
    IniWrite("search.ini", "Images", "1. Nom", "Creative Commons")
    IniWrite("search.ini", "Images", "1. Adresse", "http://search.creativecommons.org/?q=###")
    IniWrite("search.ini", "Images", "1. lang", "")
    IniWrite("search.ini", "Images", "1. del", "")
    
    IniWrite("search.ini", "Images", "2. Nom", "Deviant Art")
    IniWrite("search.ini", "Images", "2. Adresse", "http://browse.deviantart.com/?section=browse&order=9&qh=&q=#order=9&q=###")
    IniWrite("search.ini", "Images", "2. lang", "")
    IniWrite("search.ini", "Images", "2. del", "")
    
    IniWrite("search.ini", "Images", "3. Nom", "Flickr")
    IniWrite("search.ini", "Images", "3. Adresse", "http://www.flickr.com/search/?q=###")
    IniWrite("search.ini", "Images", "3. lang", "")
    IniWrite("search.ini", "Images", "3. del", "")
    
    IniWrite("search.ini", "Images", "4. Nom", "Google Images")
    IniWrite("search.ini", "Images", "4. Adresse", "http://images.google.ca/images?hl=fr&q=###&gbv=2")
    IniWrite("search.ini", "Images", "4. lang", "")
    IniWrite("search.ini", "Images", "4. del", "")
    
    IniWrite("search.ini", "Images", "5. Nom", "Yahoo Images")
    IniWrite("search.ini", "Images", "5. Adresse", "http://images.search.yahoo.com/search/images;_ylt=A0WTefOcBY1IcNgAFSuLuLkF?ei=utf-8&fr=sfp&p=###&iscqry=")
    IniWrite("search.ini", "Images", "5. lang", "")
    IniWrite("search.ini", "Images", "5. del", "")
    
    IniWrite("search.ini", "Achats", "1. Nom", "Ebay Canada")
    IniWrite("search.ini", "Achats", "1. Adresse", "http://search.ebay.ca/search/search.dll?fsop=1&fsoo=1&from=R45&satitle=###")
    IniWrite("search.ini", "Achats", "1. lang", "")
    IniWrite("search.ini", "Achats", "1. Del", "espace")
    
    IniWrite("search.ini", "Achats", "2. Nom", "Ebay U.S.")
    IniWrite("search.ini", "Achats", "2. Adresse", "http://search.ebay.com/search/search.dll?from=R40&_trksid=m37.l1313&satitle=###&=&category0=")
    IniWrite("search.ini", "Achats", "2. lang", "")
    IniWrite("search.ini", "Achats", "2. Del", "espace")
    
    IniWrite("search.ini", "Achats", "3. Nom", "Amazon Canada")
    IniWrite("search.ini", "Achats", "3. Adresse", "http://www.amazon.ca/s/ref=nb_ss_gw?url=search-alias%3Daps&field-keywords=###")
    IniWrite("search.ini", "Achats", "3. lang", "")
    IniWrite("search.ini", "Achats", "3. del", "")
    
    IniWrite("search.ini", "Achats", "4. Nom", "Amazon U.S.")
    IniWrite("search.ini", "Achats", "4. Adresse", "http://www.amazon.com/s/ref=nb_ss_gw?url=search-alias%3Daps&field-keywords=###")
    IniWrite("search.ini", "Achats", "4. lang", "")
    IniWrite("search.ini", "Achats", "4. del", "")
    


EndIf

Opt("GUIOnEventMode", 1)
Global $nbopt = 4
HotKeySet("{F2}", "show")

$titre = "Barre de recherche du Pouf               V 2.2"
$gui = GUICreate($titre, 340, 320, -1, -1)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
$result = 0
$search = GUICtrlCreateInput("", 10, 0, 250, 35)
;GUICtrlSetOnEvent($search, "snd")
$button = GUICtrlCreateButton(" À propos", 260, 0, 75, 35)
GUICtrlSetOnEvent(-1, "button")
GUICtrlCreateButton("Tous", 10, 280, 40, 20)
GUICtrlSetOnEvent(-1, "checkbox")
GUICtrlCreateButton("Aucun", 10, 300, 40, 20)
GUICtrlSetOnEvent(-1, "checkbox")
GUICtrlCreateButton("Favoris", 50, 280, 50, 40)
GUICtrlSetOnEvent(-1, "checkbox")
GUICtrlCreateButton("Set Fav.", 293, 300, 45, 20)
GUICtrlSetOnEvent(-1, "checkbox")
GUICtrlSetFont($search, 20)



$tab = GUICtrlCreateTab(10, 40, 330, 240)
GUICtrlSetOnEvent($tab, "tab")
$nbtabs = IniReadSection("search.ini", "tabs")

For $i = 1 To $nbtabs[0][0]
    $x = 20
    $y = 80
    $tabitem = GUICtrlCreateTabItem($nbtabs[$i][1])
    Assign("tabitem" & $i,$tabitem,2)
    $tabitems = IniReadSection("search.ini", $nbtabs[$i][1])
    If $i = IniRead("search.ini", "coche","lasttab","1") Then
        $tabfirst = $tabitem
        EndIf
    For $j = 1 To ((UBound($tabitems) - 1) / $nbopt)
        Local $box[$i][$j]
        $nom = IniRead("search.ini", $nbtabs[$i][1], $j & ". nom", "")
        $coche = IniRead("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
        $adresse = IniRead("search.ini", $nbtabs[$i][1], $j & ". adresse", "")
        
        If $nom <> "" Then
            $box = GUICtrlCreateCheckbox($nom, $x, $y, 140, 20)
            GUICtrlSetOnEvent(-1, "checkbox")
            Assign("box" & $i & $j, $box)
            If $coche = 1 Then
                GUICtrlSetState(-1, $GUI_CHECKED)
            ElseIf $coche = 0 Then
                GUICtrlSetState(-1, $GUI_UNCHECKED)
            EndIf
            
            $y += 35
            Select
                Case $j = 5
                    $x += 130
                    $y = 80
            EndSelect
            
            
            
            
        EndIf
    Next
    

    

Next



GUICtrlCreateTabItem("")

GUICtrlSetState($tabfirst, $GUI_show)

GUICtrlSetState($search, $GUI_focus)




While 1

    If WinActive($titre) And _IsPressed("0D", "user32.dll") Then
        snd()
    EndIf
    

    If Not WinActive($titre) Then
        GUISetState(@SW_HIDE, $gui)
    EndIf
    Sleep(100)







WEnd





;   Lorsque la touche entrée est pressée


Func show()

    $State = WinGetState($gui)
    If BitAnd($State, 2) Then
         GUISetState(@SW_HIDE, $gui)
    Else
        GUISetState(@SW_SHOW, $gui)
    EndIf

EndFunc   ;==>show




Func snd()
    $result = GUICtrlRead($search)
    $result = StringReplace($result, " ", "++++")
    
    $result = StringSplit($result, "|")
    Local $commande = StringLeft($result[1], 1)
    Select
        Case $result[1] = "#Setup"
            ShellExecute("search.ini", @ScriptDir & "\search.ini")
        Case $result[1] = "#Exit"
            Exit
        Case $result[1] = "#Dir"
            ShellExecute(@ScriptDir)
        Case $result[1] = "#Incoming"
            $incoming = IniRead("search.ini", "CONFIG", "incoming", "")
            If $incoming <> "" And $incoming <> "SPÉCIFIER UN DOSSIER" Then
                ShellExecute($incoming)
                
            Else
                MsgBox(0, "Attention", "Veuillez spécifiez quel dossier cette commande doit ouvrir")
                IniWrite("search.ini", "CONFIG", "incoming", "SPÉCIFIER UN DOSSIER")
                ShellExecute(@ScriptDir & "\search.ini")
            EndIf
        Case $result[1] = "#0" Or $result[1] = "#1" Or $result[1] = "#SetFav" Or $result[1] = "#Fav"
            checkbox()
            
        Case $result[1] <> ""
            If $commande <> "#" Or $result[1] = "#fa" Then
                
                For $i = 1 To $nbtabs[0][0]
                    $tabitems = IniReadSection("search.ini", $nbtabs[$i][1])
                    For $j = 1 To ((UBound($tabitems) - 1) / $nbopt)
                        $nom = IniRead("search.ini", $nbtabs[$i][1], $j & ". nom", "")
                        $coche = IniRead("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                        $adresse = IniRead("search.ini", $nbtabs[$i][1], $j & ". adresse", "")
                        $adr = StringSplit($adresse, "###", 1)
                        $del = IniRead("search.ini", $nbtabs[$i][1], $j & ". Del", "+")
                        $lang = IniRead("search.ini", $nbtabs[$i][1], $j & ". lang", "")
                        
                        For $k = 1 To (UBound($result) - 1)
                            
                            Select
                                Case $nbtabs[$i][0] = (GUICtrlRead($tab) + 1)
                                    If $del = "espace" Then
                                        $del = " "
                                    ElseIf $del = "" Then
                                        $del = "+"
                                    EndIf
                                    
                                    $result[$k] = StringReplace($result[$k], "++++", $del)
                                    $start = StringLeft($result[$k], 1)
                                    $end = StringRight($result[$k], 1)
                                    
                                    While $start = $del
                                        $result[$k] = StringTrimLeft($result[$k], 1)
                                        $start = StringLeft($result[$k], 1)
                                    WEnd
                                    
                                    While $end = $del
                                        $result[$k] = StringTrimRight($result[$k], 1)
                                        $end = StringRight($result[$k], 1)
                                    WEnd
                                    
                                    If $coche = 1 And $result[$k] <> "" And $result[1] <> "#fa" Then
                                        ShellExecute($adr[1] & $result[$k] & $adr[2])
                                        Sleep(100)
                                    ElseIf $coche = 1 And $result[$k] <> "" And $result[1] = "#fa" Then
                                        If $result[0] = 3 Then
                                            If $lang = "fr" And $k = 2 Then
                                                ShellExecute($adr[1] & $result[2] & $adr[2])
                                                Sleep(100)
                                            ElseIf $lang = "en" And $k = 3 Then
                                                ShellExecute($adr[1] & $result[3] & $adr[2])
                                            Else
                                                If $k = 3 And $lang <> "fr" And $lang <> "en" Then
                                                    ShellExecute($adr[1] & $result[2] & $adr[2])
                                                    Sleep(100)
                                                    ShellExecute($adr[1] & $result[3] & $adr[2])
                                                    Sleep(100)
                                                EndIf
                                                
                                            EndIf
                                            
                                            
                                        EndIf
                                        GUISetState(@SW_HIDE, $gui)
                                    EndIf
                                    
                            EndSelect
                        Next
                        
                    Next
                Next
            EndIf
            
    EndSelect


    GUICtrlSetData($search, "")
EndFunc   ;==>snd

Func checkbox()
    $result = GUICtrlRead($search)
    Select
        Case $result = "#1" Or $result = "#0" Or $result = "#setfav" Or $result = "#fav"
            For $i = 1 To $nbtabs[0][0]
                $tabitems = IniReadSection("search.ini", $nbtabs[$i][1])
                For $j = 1 To ((UBound($tabitems) - 1) / $nbopt)
                    $coche = IniRead("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                    $nom = IniRead("search.ini", $nbtabs[$i][1], $j & ". nom", "")
                    Select
                        Case $result = "#0"
                            If $nbtabs[$i][0] = (GUICtrlRead($tab) + 1) Then
                                IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "0")
                                GUICtrlSetState(Eval("box" & $i & $j), $GUI_UNCHECKED)
                            EndIf
                        Case $result = "#1"
                            If $nbtabs[$i][0] = (GUICtrlRead($tab) + 1) Then
                                IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                                GUICtrlSetState(Eval("box" & $i & $j), $GUI_CHECKED)
                            EndIf
                        Case $result = "#setfav"
                            $ast = StringRight($nom, 1)
                            If $nbtabs[$i][0] = (GUICtrlRead($tab) + 1) Then
                                If $coche = 1 Then
                                    IniWrite("search.ini", "Fav", $nbtabs[$i][1] & $j, "1")
                                    If $ast <> "*" Then
                                        GUICtrlSetData(Eval("box" & $i & $j), $nom & " *")
                                        IniWrite("search.ini", $nbtabs[$i][1], $j & ". nom", $nom & " *")
                                    EndIf
                                    
                                Else
                                    IniWrite("search.ini", "Fav", $nbtabs[$i][1] & $j, "0")
                                    
                                    If $ast = "*" Then
                                        $nom = StringTrimRight($nom, 2)
                                        GUICtrlSetData(Eval("box" & $i & $j), $nom)
                                        IniWrite("search.ini", $nbtabs[$i][1], $j & ". nom", $nom)
                                        
                                        
                                    EndIf
                                    
                                EndIf
                            EndIf
                        Case $result = "#fav"
                            If $nbtabs[$i][0] = (GUICtrlRead($tab) + 1) Then
                                If IniRead("search.ini", "Fav", $nbtabs[$i][1] & $j, "0") = 1 Then
                                    IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                                    GUICtrlSetState(Eval("box" & $i & $j), $GUI_CHECKED)
                                Else
                                    IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "0")
                                    GUICtrlSetState(Eval("box" & $i & $j), $GUI_UNCHECKED)
                                EndIf
                            EndIf
                            
                            

                    EndSelect
                    
                Next

            Next
            
            GUISetState(@SW_SHOW, $gui)
            
        Case Else
            
            $checkbox = ControlGetText($gui, "", @GUI_CtrlId)
            For $i = 1 To $nbtabs[0][0]
                $tabitems = IniReadSection("search.ini", $nbtabs[$i][1])
                For $j = 1 To ((UBound($tabitems) - 1) / $nbopt)
                    $coche = IniRead("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                    $nom = IniRead("search.ini", $nbtabs[$i][1], $j & ". nom", "")
                    
                    Select
                        Case $checkbox = "Tous"
                            If $nbtabs[$i][0] = (GUICtrlRead($tab) + 1) Then
                                IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                                GUICtrlSetState(Eval("box" & $i & $j), $GUI_CHECKED)
                            EndIf
                        Case $checkbox = "Aucun"
                            If $nbtabs[$i][0] = (GUICtrlRead($tab) + 1) Then
                                IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "0")
                                GUICtrlSetState(Eval("box" & $i & $j), $GUI_UNCHECKED)
                            EndIf
                        Case $checkbox = "Set Fav."
                            $ast = StringRight($nom, 1)
                            If $nbtabs[$i][0] = (GUICtrlRead($tab) + 1) Then
                                If $coche = 1 Then
                                    IniWrite("search.ini", "Fav", $nbtabs[$i][1] & $j, "1")
                                    If $ast <> "*" Then
                                        GUICtrlSetData(Eval("box" & $i & $j), $nom & " *")
                                        IniWrite("search.ini", $nbtabs[$i][1], $j & ". nom", $nom & " *")
                                    EndIf
                                    
                                Else
                                    IniWrite("search.ini", "Fav", $nbtabs[$i][1] & $j, "0")
                                    
                                    If $ast = "*" Then
                                        $nom = StringTrimRight($nom, 2)
                                        GUICtrlSetData(Eval("box" & $i & $j), $nom)
                                        IniWrite("search.ini", $nbtabs[$i][1], $j & ". nom", $nom)
                                        
                                        
                                    EndIf
                                    
                                EndIf
                            EndIf
                        Case $checkbox = "Favoris"
                            If $nbtabs[$i][0] = (GUICtrlRead($tab) + 1) Then
                                If IniRead("search.ini", "Fav", $nbtabs[$i][1] & $j, "0") = 1 Then
                                    IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                                    GUICtrlSetState(Eval("box" & $i & $j), $GUI_CHECKED)
                                Else
                                    IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "0")
                                    GUICtrlSetState(Eval("box" & $i & $j), $GUI_UNCHECKED)
                                EndIf
                            EndIf
                            
                    EndSelect
                    
                    $nom = IniRead("search.ini", $nbtabs[$i][1], $j & ". nom", "")
                    $coche = IniRead("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                    $adresse = IniRead("search.ini", $nbtabs[$i][1], $j & ". adresse", "")
                    If $nom = $checkbox Then
                        Select
                            Case _IsChecked(@GUI_CtrlId)
                                IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "1")
                            Case Else
                                IniWrite("search.ini", "coche", $nbtabs[$i][1] & $j, "0")
                        EndSelect
                        
                    EndIf
                    
                    
                    
                    
                    
                    
                    
                    
                    
                    
                Next
            Next

            ;
    EndSelect

    GUICtrlSetState($search, $GUI_focus)
    ControlSend($titre, "", "", "{END}")
EndFunc   ;==>checkbox



Func tab()
    GUICtrlRead($tab)
    GUICtrlSetState($search, $GUI_focus)
    IniWrite("search.ini", "coche","lasttab",GUICtrlRead($tab)+1)
    ControlSend($titre, "", "", "{END}")
    
EndFunc   ;==>tab

Func button()
    #cs
        Ce programme est conçu pour rechercher
        un terme sur plusieurs moteurs de recherche à la fois.
        Sélectionnez les moteurs qui vous intéresse et tapez
        une requête. Le résultat sera affiché dans un nombre
        d'onglets correspondant au sites choisis.
        
        Vous pouvez utilisez le caractère ' | ' pour effectuer
        une deuxième recherche sur les même sites ou encore
        utilisé pour la commande #fa (voir plus bas)
        
        
        Commandes :
        La touche F2 - Montre/cache la barre de recherche
        #fa - effectue une recherche bilingue. Pour que cela
        fonctionne, il doit y'avoir deux recherches qui suivent
        la commande. Le premier terme sera recherché sur les moteurs
        français, le deuxième sur les moteurs anglais et les moteurs
        bilingue recevront les deux termes de recherche.
        Ex : #fa| terme français| terme anglais.
        #Setup - Ouvre le fichier de configuration
        #Setfav - définit un groupe de favoris
        #Fav - sélectionne les favoris au préalablement définis et
        déselectionne tous les autres
        #0 - Même effet que le bouton Aucun
        #1 - Même effet que le bouton Tous
        #dir - Ouvre le dossier dans lequel est situé le programme
        #incoming - Ouvre un dossier (configurable)
        #exit - Quitte le programme
        
        Le Sage Pourpre
        Sagesse Inc.
    #ce

    MsgBox(262208, "À propos", "Ce programme est conçu pour rechercher" & @CRLF & "un terme sur plusieurs moteurs de recherche à la fois." & @CRLF & "Sélectionnez les moteurs qui vous intéresse et tapez" & @CRLF & "une requête. Le résultat sera affiché dans un nombre" & @CRLF & "d'onglets correspondant au sites choisis." & @CRLF & @CRLF & @CRLF & "Vous pouvez utilisez le caractère ' | ' pour effectuer" & @CRLF & "une deuxième recherche sur les même sites ou encore" & @CRLF & "utilisé pour la commande #fa (voir plus bas)" & @CRLF & "      " & @CRLF & "       " & @CRLF & "Commandes :" & @CRLF & "La touche F2 - Montre/cache la barre de recherche" & @CRLF & "#fa - effectue une recherche bilingue. Pour que cela" & @CRLF & "fonctionne, il doit y'avoir deux recherches qui suivent" & @CRLF & "la commande. Le premier terme sera recherché sur les moteurs" & @CRLF & "français, le deuxième sur les moteurs anglais et les moteurs" & @CRLF & "bilingue recevront les deux termes de recherche. " & @CRLF & "Ex : #fa| terme français| terme anglais." & @CRLF & @CRLF & "#Setup - Ouvre le fichier de configuration" & @CRLF & "#Setfav - définit un groupe de favoris" & @CRLF & "#Fav - sélectionne les favoris au préalablement définis et" & @CRLF & "déselectionne tous les autres" & @CRLF & "#0 - Même effet que le bouton Aucun" & @CRLF & "#1 - Même effet que le bouton Tous" & @CRLF & "#dir - Ouvre le dossier dans lequel est situé le programme" & @CRLF & "#incoming - Ouvre un dossier (configurable)" & @CRLF & "#exit - Quitte le programme" & @CRLF & @CRLF & @CRLF & "Le Sage Pourpre" & @CRLF & "Sagesse Inc.")





    GUICtrlSetState($search, $GUI_focus)
EndFunc   ;==>button


Func Close()
    Exit
EndFunc   ;==>Close




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