AutoIt Français

Code : Tout sélectionner

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

Opt("TrayMenuMode",1)
Opt("TrayAutoPause",1); Default tray menu items (Script Paused/Exit) will not be shown.

Global $Hauteur = @DesktopHeight - 60
Global $Largeur = @DesktopWidth - 180
$Bleu = "0xced8fd"
$Vert = "0xcdfedb"
$Orange = "0xfdd7b4"
$Rouge = "0xfcacb5"
$Ico_Blue = "play_blue.ico"
$Ico_Green = "play_green.ico"
$Ico_Red = "play_red.ico"
TraySetIcon($Ico_Blue)
TraySetToolTip("Sauvegarde")
$AboutItem  = TrayCreateItem("A Propos")
$Separateur1= TrayCreateItem("")
$Save_NowItem = TrayCreateItem("Lancer Sauvegarde")

$Form1 = GUICreate("Notify", 180, 25, $Largeur, $Hauteur, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_LAYERED,$WS_EX_TOOLWINDOW))
GUISetBkColor($Bleu)



$Label1 = GUICtrlCreateLabel("", 125, 4, 50, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x712eef)

$Label2 = GUICtrlCreateLabel("Sauvegarde dans", 10, 4, 115, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x712eef)

$Button_test = GUICtrlCreateButton("+", 264, 226, 41, 41, 0)
GUICtrlSetFont(-1, 28, 800, 0, "Comic Sans MS")

GUISetState(@SW_SHOW)
TraySetState()
WinSetTrans($Form1, "", 100)
WinSetState($Form1,"",@SW_HIDE)

; // Déclarations des variables
Global $More5mnItem, $More10mnItem, $ExitItem, $Separateur1, $Separateur2
Global $en_cours
$Inifile = "save.ini"
$Nbre_5mn = 0
$Nbre_10mn = 0
$H = "00"
$M = ""
$S = ""
$Cpte_Rebours = ""
$Lock = "0"
$TRAY_DISABLE = "128"
$cmd_Prg = '"backup.vbs"'
$DayName = _DateDayOfWeek(_DateToDayOfWeek(@YEAR, @MON, @MDAY))
$en_cours = False
$icone = "0"
$ChgIcone = "0"
$Notifier = "0"

While 1
    $msg1 = GUIGetMsg()
    switch $msg1
        Case $msg1 = 0
            ContinueLoop
        Case $Button_test
            _Notification()
    EndSwitch

    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $AboutItem
            Msgbox(64 + 262144, "A Propos", "Sauvegarde Automatique")

        Case $msg = $Save_NowItem
            _LancerSauvegarde()

        Case $msg = $More5mnItem
            AdlibUnRegister ("_Miseajour")
            $M = Stringleft(GUICtrlRead($Label1),2)
            $S = StringRight(GUICtrlRead($Label1),2)
            $New_Time = _TimeToTicks ("00",$M,$S) +300000
            if $New_Time > "3600000" Then $New_Time = "3600000"
            _TicksToTime($New_Time,$H,$M,$S)
            if StringLen($M) < "2" Then
                $M = "0" & $M
            EndIf
            if Stringlen($S) < "2" Then
                $S = "0" & $S
            EndIf
            GUICtrlSetData($Label1, $M&":"&$S)
            $Nbre_5mn = $Nbre_5mn +1
            If $Nbre_5mn = "2" Then TrayItemSetState($More5mnItem, $TRAY_DISABLE)
            AdlibRegister("_Miseajour",1000)

        Case $msg = $More10mnItem
            AdlibUnRegister ("_Miseajour")
            $M = Stringleft(GUICtrlRead($Label1),2)
            $S = StringRight(GUICtrlRead($Label1),2)
            $New_Time = _TimeToTicks ($H,$M,$S) +600000
            if $New_Time > "3600000" Then $New_Time = "3600000"
            _TicksToTime($New_Time,$H,$M,$S)
            if StringLen($M) < "2" Then
                $M = "0" & $M
            EndIf
            if Stringlen($S) < "2" Then
                $S = "0" & $S
            EndIf
            GUICtrlSetData($Label1, $M&":"&$S)
            $Nbre_10mn = $Nbre_10mn +1
            If $Nbre_10mn = "2" Then TrayItemSetState($More10mnItem, $TRAY_DISABLE)
            AdlibRegister("_Miseajour",1000)

        Case $msg = $ExitItem
            AdlibUnRegister("_Miseajour")
            TrayItemDelete($More10mnItem)
            TrayItemDelete ($More5mnItem)
            TrayItemDelete($ExitItem)
            TrayItemDelete($Separateur2)
            WinSetState($Form1,"",@SW_HIDE)
            AdlibUnregister("_ChgIcone")
            Trayseticon($Ico_Blue)
            TraySetState()
            ToolTip("")
            TraySetToolTip("Sauvegarde")
    EndSelect
WEnd

Func _Horloge()
    Local $DayName = _DateDayOfWeek(_DateToDayOfWeek(@YEAR, @MON, @MDAY))
    Local $MonName = _DateToMonth(@MON)
    $M = Stringleft(GUICtrlRead($Label1),2)
    $S = StringRight(GUICtrlRead($Label1),2)
    $New_Time = _TimeToTicks ($H,$M,$S) -60
    Select
    Case $New_Time > "300000"
        GUISetBkColor($Bleu)
        WinSetTrans($Form1, "", 100)
        AdlibUnRegister("_ChgIcone")
        Trayseticon($Ico_Blue)
        TraySetState()
    Case $New_Time < "300001" and $New_Time > "180000"
        GUISetBkColor($Vert)
        WinSetTrans($Form1, "", 150)
        Adlibunregister("_ChgIcone")
        Trayseticon($Ico_Green)
        TraySetState()
    Case $New_Time < "180001" and $New_Time > "60000"
        GUISetBkColor($Orange)
        WinsetTrans($Form1,"",200)
        Adlibregister("_ChgIcone",500)
    Case $New_Time < "60001"
        GUISetBkColor($Rouge)
        WinSetTrans($Form1,"",250)
        AdlibRegister("_ChgIcone",250)
    EndSelect
    _TicksToTime($New_Time,$H,$M,$S)
    if StringLen($M) < "2" Then
        $M = "0" & $M
    EndIf
    if Stringlen($S) < "2" Then
        $S = "0" & $S
    EndIf
    If $M = "00" and $S = "00" Then
        _LancerSauvegarde()
    EndIf
    Return $M&":"&$S
EndFunc   ;==>_Horloge

Func _MiseaJour()
    GUICtrlSetData($Label1, _Horloge())
EndFunc

Func _Notification()
    WinSetState($Form1, "", @SW_SHOW)
    TraySetState()
    TrayItemDelete($Save_NowItem)
    TrayItemDelete($AboutItem)
    TrayItemDelete($Separateur1)
    $AboutItem  = TrayCreateItem("A Propos")
    TrayCreateItem("")
    $More10mnItem = TrayCreateItem("+10 min")
    $More5mnItem = TrayCreateItem("+5 min")
    $Save_NowItem = TrayCreateItem("Lancer Sauvegarde")
    $Separateur2 = TrayCreateItem("")
    $ExitItem   = TrayCreateItem("Annuler Sauvegarde")
    $Ini_Planification = IniReadSection($Inifile, "Planification")
    if @error Then
        IniWriteSection ($Inifile,"Planification","")
    Else
        For $i = 1 To $Ini_Planification[0][0]
            ;if $Ini_Planification
            if $Ini_Planification[$i][0] = "Notifier" and $Ini_planification[$i][1] <> "0" then $Notifier = "1"
            if $Ini_Planification[$i][0] = "Lock" Then $Lock = $Ini_Planification [$I][1]
            if $Ini_Planification[$i][0] = $DayName Then
                $H = StringLeft($Ini_Planification[$i][1],2)
                $M = StringRight($Ini_Planification[$i][1],2)
                $S = "00"
                local $Time_Sauvegarde = _TimeToTicks($H,$M,$S)
                local $Time = _TimeToTicks(@HOUR,@MIN,@SEC)
                $Cpte_Rebours = _TicksToTime($Time_Sauvegarde - $Time,$H,$M,$S)
                if StringLen($M) < "2" Then
                    $M = "0" & $M
                EndIf
                if Stringlen($S) < "2" Then
                    $S = "0" & $S
                EndIf
            EndIf
        Next
    EndIf
    GUICtrlSetData($Label1,$M&":"&$S)
    AdlibRegister("_MiseaJour",1000)
    if $Notifier = "1" Then WinSetState($Form1, "", @SW_SHOW)
EndFunc     ;==> _Notification

Func _LancerSauvegarde()
    AdlibUnRegister("_Miseajour")
    AdlibUnRegister("_ChgIcone")
    TrayItemDelete($More10mnItem)
    TrayItemDelete ($More5mnItem)
    TrayItemDelete($ExitItem)
    TrayItemDelete($Separateur2)
    WinSetState($Form1,"",@SW_HIDE)
    if Not FileExists ("en_cours.txt") Then
        if $Lock = "1" then ShellExecute("c:\windows\System32\rundll32.exe","user32.dll,LockWorkStation")
        TraySetToolTip("Sauvegarde en cours...")
        ToolTip("** SAUVEGARDE EN COURS ...**"&@CRLF& "           Veuillez Patienter !!")
        TraySetIcon($Ico_Red)       ;==> Affichage icone velvet_red, Sauvegarde En Cours
        TraySetState()
        Run("C:\WINDOWS\system32\wscript.exe "& $cmd_Prg,"",@SW_SHOW)
        sleep (12000) 
    EndIf
    AdlibRegister("_SaveEnCours",2000)
        ;Exit
EndFunc     ;==> _LancerSauvegarde

Func _SaveEnCours()
    if not FileExists ("en_cours.txt") Then
        AdlibUnregister("_ChgIcone")
        Trayseticon($Ico_Blue)
        TraySetState()
        ToolTip("")
        TraySetToolTip("Sauvegarde")
    endIf
EndFunc     ;==> _SaveEnCours

Func _ChgIcone()
        If $icone = "2" Then
            TraySetIcon($Ico_Green)
            TraySetState()
            $icone = "0"
        Else
            TraySetIcon($Ico_Red)
            TraySetState()
            $icone = number($icone) + 1
        EndIf
EndFunc