AutoIt Français

Code : Tout sélectionner

#Region
#AutoIt3Wrapper_Icon=icons\Selector.ico
#AutoIt3Wrapper_Outfile=output\selector.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Permet de changer d'apparance pour iSafari 3.0
#AutoIt3Wrapper_Res_Fileversion=1.1.0.0
#AutoIt3Wrapper_Res_Language=1036
#EndRegion

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.1.1
    Author:         DJSIR

    Notes :
        Si vous veniez a modifier ce script, merci de laisser le nom de l'auteur.

    Script Function:
        Permet de changer l'apparance de iSafari via les skins (version bêta).

#ce ----------------------------------------------------------------------------

;Includes
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include "includes\FileListToArrayEx.au3"
#include "includes\isafari_functions.au3"

SendReport("Execution du logiciel")

;Variables
;Langue "vide" ou english
$lang = IniRead("config.isaf", "config", "lang", "")

SendReport("Création GUI et Controles")
;Création de la GUI
GUICreate(Translate("Veuillez séléctionnner une apparance"), 400, 180)

GUICtrlCreateIcon(@ScriptDir & "\icons\selector.ico", 1, 55, 3, 50, 50)
GUICtrlCreateLabel(Translate("Sélécteur d'apparances"), 120, 14, 1000, 25)
GUICtrlSetFont(-1, 15, -1, -1, "Verdana")

SendReport("Execution de la commande _FileListToArrayEx")

$avArray = _FileListToArrayEx(@ScriptDir & "\skins\", "*.ini", 0, "current", True)
$avArray_MAX = _ArrayMax($avArray, 1, 0)
$info = GUICtrlCreateLabel( Translate("Nom") & " :" & @CRLF & Translate("Auteur") & " :" & @CRLF & Translate("Version") & " :", 10, 130, 75, 200)
GUICtrlSetState($info, $GUI_DISABLE)
$valid = GUICtrlCreateButton(Translate("Choisir cette apparance"), 190, 130, 200, 40)
$l_skin = GUICtrlCreateList("", 10, 60, 380, 70)

For $i = 1 To $avArray_MAX
    $valeur = IniRead($avArray[$i], "skin", "name", "")
    GUICtrlSetData($l_skin, $valeur)
Next

GUISetState()

SendReport("Lancement de la boucle")

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $valid Then
        $l_skine = GUICtrlRead($l_skin)
        If $l_skine = "" Then
            MsgBox(0, Translate("Erreur"), Translate("Vous n'avez choisi aucune apparance a appliquer. Veuillez en séléctionner une."))
        Else
            GUICtrlSetData($valid, Translate("Veuillez patienter..."))
            DirCopy(@ScriptDir & "\skins\" & $l_skine, @ScriptDir & "\skins\Current", 1)
            GUICtrlSetData($valid, Translate("Terminé"))
            Sleep(1000)
            SendReport("Changement d'apparance efféctuée avec succes")
            Exit
        EndIf
    EndIf
WEnd

Func SendReport($report)
    _SendData($report, "iSafari-Reporter")
EndFunc

Func Translate($txt)
    Return IniRead("lang.isaf", $lang, $txt, $txt)
EndFunc