AutoIt Français

Code : Tout sélectionner

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Mes documents\clock-menu-icon.ico
#AutoIt3Wrapper_outfile=TimerOff.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Timer to switch your computer off
#AutoIt3Wrapper_Res_Fileversion=2.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Linvi company
#AutoIt3Wrapper_Res_Field=Version 2.0|You can now stop the timer -  Timer can be change while launched - Add alarm option when the timer ended - TimerOff now minimize into the TrayMenu - You can launch, stop, resume, quit or set options from the TrayMenu - Add Quick Launch Menu - The Shutdown Actions are now forced.
#AutoIt3Wrapper_Res_Field=Version 1.4.1|Bugs correction about the timer display
#AutoIt3Wrapper_Res_Field=Version 1.4|Ajout de l'option Mise en Veille
#AutoIt3Wrapper_Res_Field=Version 1.3|Bugs correction  -  Add: Timer  -  Add: Hour Option  -  Corrected: It's now possible to modify the Turn Off Option when the Timer is already lauched
#AutoIt3Wrapper_Res_Field=Version 1.2|Add: Options to Turn Off the computer  -  Add: Time decounter
#AutoIt3Wrapper_Res_Field=Version 1.1|Add: Easy choice of time
#AutoIt3Wrapper_Res_Field=Version 1.0|Timer which switch off the computer after a sleep
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Date.au3>
#include <EditConstants.au3>
#include <sound.au3>


Global $GUI = GUICreate("TimerOff", 400, 200, -1, -1, $WS_OVERLAPPEDWINDOW)
Global $Time, $sTime, $IHour, $IMin, $ISec, $Ok, $Shut1, $Shut2, $Shut3, $Shut4, $Shut5, $Browse, $Input, $Hour, $Min, $Sec, $HourT, $MinT, $SecT, $ShutValue, $OkValue
Init()
InitTray()
GUISetState(@SW_SHOW)

While 1
    Global $nMsg = GUIGetMsg()
    Set_Time()
    Switch $nMsg
        Case $Ok,$TrayButton,$Go30, $Go45, $Go60
            If (($nMsg <> $Ok) And ($nMsg <> $TrayButton)) Then
                _DefineTime()
            EndIf
            TrayItemSetText($TrayButton,"Stop")
            Global $timer = TimerInit()
            Global $timer2 = TimerInit()
            Global $Hours = GUICtrlRead($IHour)
            Global $Mins = GUICtrlRead($IMin)
            Global $Secs = GUICtrlRead($ISec)
            GUICtrlSetData($Ok, "Stop")
;~          $Times = StringFormat("%02i:%02i", $Mins, $Secs)
;~          ControlSetText("Timer", "" , "Static2", $Times)
            AdlibEnable("Timer", 1000)
            While ($Hours >= 0)
                Global $nMsg = GUIGetMsg()
                Test_Radio_Button()
                $OkValue = GUICtrlRead($Ok)
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE
                        Exit
                    Case $GUI_EVENT_MINIMIZE
                        GUISetState(@SW_HIDE)
                    Case $Ok,$TrayButton
                        If ($OkValue = "Stop") Then
                            TrayItemSetText($TrayButton,"Continue")
                            $HourT = $Hour
                            $MinT = $Min
                            $SecT = $Sec
;~                          AdlibDisable()
                            GUICtrlSetData($Ok, "Continue")
                        ElseIf ($OkValue = "Continue") Then
;~                          Global $TimePause = StringFormat("%02i:%02i:%02i", $HourT, $MinT, $SecT)
;~                          ControlSetText("Timer", "" , "Static2", $TimePause)
                            TrayItemSetText($TrayButton,"Stop")
                            Global $timer = TimerInit()
                            Global $Hours = GUICtrlRead($IHour)
                            Global $Mins = GUICtrlRead($IMin)
                            Global $Secs = GUICtrlRead($ISec)
                            GUICtrlSetData($Ok, "Stop")
                            AdlibEnable("Timer", 1000)
                        EndIf                   
                EndSwitch
            WEnd
            Finish()
        Case $Browse
            $Src = FileOpenDialog ("Emplacement Musique",@MyDocumentsDir,"Musique (*.mp3;*.wav)", 1+2)
            If ($Src <> "") Then
                GUICtrlSetData($Input , $Src)
                $Source = $Src
            Else
                GUICtrlSetData($Input , "Default")
            EndIf
        Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_HIDE)
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    Test_Radio_Button()
WEnd

Func Init()
    Global $GUI = GUICreate("TimerOff", 410, 260, -1, -1, $WS_OVERLAPPEDWINDOW)
    GUICtrlSetColor(-1, 32250)
    WinSetTrans("TimerOff", "", 210)
    Global $Ok = GUICtrlCreateButton("Ok", 160, 220, 80, 35)

    GUICtrlCreateLabel("00:00:00", 10, 10)
    GUICtrlCreateLabel("Hours", 70, 30)
    Global $IHour = GUICtrlCreateInput("0", 70, 50, 40, 20)
    GUICtrlCreateUpdown(-1)

    GUICtrlCreateLabel("Mins", 170, 30)
    Global $IMin = GUICtrlCreateInput("15", 170, 50, 40, 20)
    GUICtrlCreateUpdown(-1)

    GUICtrlCreateLabel("Secs", 267, 30)
    Global $ISec = GUICtrlCreateInput("0", 267, 50, 40, 20)
    GUICtrlCreateUpdown(-1)

    GUICtrlCreateGroup("Turn Off Methods", 65, 85, 245, 70)
    Global $Shut1 = GUICtrlCreateRadio("Hibernate", 85, 105, 100)
    GUICtrlSetState(-1, $GUI_CHECKED)
    Global $Shut2 = GUICtrlCreateRadio("Standby", 85, 125, 80)
    Global $Shut3 = GUICtrlCreateRadio("Reboot", 205, 105, 70)
    Global $Shut4 = GUICtrlCreateRadio("Turn Off", 205, 125, 80)
    Global $Shut5 = GUICtrlCreateRadio("Alarm", 85, 179, 63)
    Global $Input = GUICtrlCreateInput("Default" , 150, 179, 100,22,$ES_READONLY)
    Global $Browse = GUICtrlCreateButton("Parcourir" , 255, 179, 50, 22)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    
    GUICtrlCreateGroup("Other", 65, 162, 245,50)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    
    GUICtrlCreateGroup("Quick Launch", 320, 30, 85,182)
    Global $Go30 = GUICtrlCreateButton("30 min", 328, 65, 70, 35)
    Global $Go45 = GUICtrlCreateButton("45 min", 328, 115, 70, 35)
    Global $Go60 = GUICtrlCreateButton("1 hour", 328, 165, 70, 35)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    

    GUICtrlSetState($Input, $GUI_HIDE)
    GUICtrlSetState($Browse, $GUI_HIDE)
    
    GUICtrlSetState($Ok, $GUI_FOCUS)

    Global $Time, $sTime
    Global $OkValue = "Stop"
    Global $Hour, $Min, $Sec = 0
    Global $ShutValue = 0
    Global $TimePause = TimerInit()

EndFunc   ;==>Init

Func Timer()
    _TicksToTime(Int(TimerDiff($timer2)), $HourT, $MinT, $SecT)
    
    If ($OkValue = "Stop") Then
        _TicksToTime(Int(TimerDiff($timer)), $Hour, $Min, $Sec)
        Global $sTime = $Time ; save current time to be able to test and avoid flicker..
        
        If ($Secs < $Sec - 1) Then
            GUICtrlSetData($ISec, 60 + ($Secs - $Sec))
        ElseIf ($Secs = $Sec - 1) Then
            $Mins = $Mins - 1
            If (($Hours >= 0) And ($Mins > -1)) Then
                GUICtrlSetData($IMin, $Mins)
                GUICtrlSetData($ISec, 59)
            EndIf
        Else
            GUICtrlSetData($ISec, $Secs - $Sec)
        EndIf

        If ($Mins <= -1) Then
            $Hours = $Hours - 1
            $Mins = 59
            If ($Hours >= 0) Then
                GUICtrlSetData($IHour, $Hours)
                GUICtrlSetData($IMin, 59)
            EndIf
        EndIf
        
    EndIf
    $Time = StringFormat("%02i:%02i:%02i", $HourT, $MinT, $SecT)
    If $sTime <> $Time Then ControlSetText("Timer", "", "Static1", $Time)
EndFunc   ;==>Timer

Func Test_Radio_Button()
    Select
        Case $nMsg = $Shut1 Or $nMsg = $Shut2 Or $nMsg = $Shut3 Or $nMsg = $Shut4 Or $nMsg = $Shut5
            If ($nMsg = $Shut5) Then
                GUICtrlSetState($Input, $GUI_SHOW)
                GUICtrlSetState($Browse, $GUI_SHOW)
            Else
                GUICtrlSetState($Input, $GUI_HIDE)
                GUICtrlSetState($Browse, $GUI_HIDE)
            EndIf
            $ShutValue = $nMsg - $Shut1
        EndSelect
    TrayOff()
EndFunc   ;==>Test_Radio_Button

Func Set_Time()
    Switch $nMsg
        Case $IHour
            If (GUICtrlRead($IHour) < 0) Then
                GUICtrlSetData($IHour, 0)
            EndIf
            
        Case $IMin
            If (GUICtrlRead($IMin) >= 60) Then
                GUICtrlSetData($IMin, 59)
            EndIf
            If (GUICtrlRead($IMin) < 0) Then
                GUICtrlSetData($IMin, 0)
            EndIf
            
        Case $ISec
            If (GUICtrlRead($ISec) >= 60) Then
                GUICtrlSetData($ISec, 59)
            EndIf
            If (GUICtrlRead($ISec) < 0) Then
                GUICtrlSetData($ISec, 0)
            EndIf
    EndSwitch
EndFunc   ;==>Set_Time

Func _DefineTime()
    Switch $nMsg
        Case $Go30
            GUICtrlSetData($IHour, "0")
            GUICtrlSetData($IMin, "30")
            GUICtrlSetData($ISec, "0")
        Case $Go45
            GUICtrlSetData($IHour, "0")
            GUICtrlSetData($IMin, "45")
            GUICtrlSetData($ISec, "0")
        Case $Go60
            GUICtrlSetData($IHour, "1")
            GUICtrlSetData($IMin, "0")
            GUICtrlSetData($ISec, "0")          
    EndSwitch
EndFunc

Func InitTray()
    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)
    TraySetState()  
    TraySetClick(8)
    TraySetIcon("ATP32.dll", -1)
    
    
    Global $Tray1 = TrayCreateItem("  Hibernate")
    TrayItemSetOnEvent(-1, "_Shut1")
    Global $Tray2 = TrayCreateItem("  Standby")
    TrayItemSetOnEvent(-1, "_Shut2")
    Global $Tray3 = TrayCreateItem("  Reboot")
    TrayItemSetOnEvent(-1, "_Shut3")
    Global $Tray4 = TrayCreateItem("  Turn Off")
    TrayItemSetOnEvent(-1, "_Shut4")
    Global $Tray5 = TrayCreateItem("  Alarm")
    TrayItemSetOnEvent(-1, "_Shut5")
    
    TrayCreateItem("")
    Global $TrayButton = TrayCreateItem("Go")
    TrayItemSetOnEvent(-1, "_TrayButton")
    TrayCreateItem("Resume")
    TrayItemSetOnEvent(-1, "Finish")
    TrayCreateItem("Quitter")
    TrayItemSetOnEvent(-1, "_Exit")
        
    TraySetOnEvent($TRAY_EVENT_MOUSEOVER, "_Show")
    TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"_ShowGUI")
EndFunc

Func _TrayButton()
    Global $nMsg = $TrayButton
EndFunc

Func _Shut1()
    GUICtrlSetState($Shut1, $GUI_CHECKED)
    Global $nMsg = $Shut1
    Test_Radio_Button()
EndFunc

Func _Shut2()
    GUICtrlSetState($Shut2, $GUI_CHECKED)
    Global $nMsg = $Shut2
    Test_Radio_Button()
EndFunc

Func _Shut3()
    GUICtrlSetState($Shut3, $GUI_CHECKED)
    Global $nMsg = $Shut3
    Test_Radio_Button()
EndFunc

Func _Shut4()
    GUICtrlSetState($Shut4, $GUI_CHECKED)
    Global $nMsg = $Shut4
    Test_Radio_Button()
EndFunc

Func _Shut5()
    GUICtrlSetState($Shut5, $GUI_CHECKED)
    Global $nMsg = $Shut5
    Test_Radio_Button()
EndFunc

Func TrayOff()
    Switch $ShutValue
        Case 0
            TrayItemSetText($Tray1,">Hibernate")
            TrayItemSetText($Tray2,"  Standby")
            TrayItemSetText($Tray3,"  Reboot")
            TrayItemSetText($Tray4,"  Turn Off")
            TrayItemSetText($Tray5,"  Alarm")
        Case 1
            TrayItemSetText($Tray1,"  Hibernate")
            TrayItemSetText($Tray2,">Standby")
            TrayItemSetText($Tray3,"  Reboot")
            TrayItemSetText($Tray4,"  Turn Off")
            TrayItemSetText($Tray5,"  Alarm")
        Case 2
            TrayItemSetText($Tray1,"  Hibernate")
            TrayItemSetText($Tray2,"  Standby")
            TrayItemSetText($Tray3,">Reboot")
            TrayItemSetText($Tray4,"  Turn Off")
            TrayItemSetText($Tray5,"  Alarm")
        Case 3
            TrayItemSetText($Tray1,"  Hibernate")
            TrayItemSetText($Tray2,"  Standby")
            TrayItemSetText($Tray3,"  Reboot")
            TrayItemSetText($Tray4,">Turn Off")
            TrayItemSetText($Tray5,"  Alarm")
        Case 4
            TrayItemSetText($Tray1,"  Hibernate")
            TrayItemSetText($Tray2,"  Standby")
            TrayItemSetText($Tray3,"  Reboot")
            TrayItemSetText($Tray4,"  Turn Off")
            TrayItemSetText($Tray5,">Alarm")        
    EndSwitch
EndFunc

Func _Show()
    
    $TimeT = StringFormat("Remaining %02i:%02i:%02i",GUICtrlRead($IHour), GUICtrlRead($IMin),GUICtrlRead($ISec))
    TraySetToolTip($TimeT)
EndFunc 

Func _ShowGUI()
    GUISetState(@SW_SHOW)
    GUISetState(@SW_RESTORE)
EndFunc

Func Finish()
    _ShowGUI()
    $OkValue = "End"
    If $ShutValue = 0 Then
        Shutdown(64+4)
;~      Run(@ComSpec & " /c " & "rundll32 powrprof.dll,SetSuspendState",@SW_HIDE)
    ElseIf $ShutValue = 1 Then
        Shutdown(36)
    ElseIf $ShutValue = 2 Then
        Shutdown(6)
;~      Run(@ComSpec & " /c " & "shutdown -r -f -t 0", @SW_HIDE)
    ElseIf $ShutValue = 3 Then
        Shutdown(5)
;~      Run(@ComSpec & " /c " & "shutdown -s -f -t 0", @SW_HIDE)
    ElseIf $ShutValue = 4 Then
        
        GUICtrlSetData($Ok,"Quitter")
        $Src = GUICtrlRead($Input)
        If ($Src = "Default") Then
            $Src = @TempDir & "\TimerDefault.mp3"
            FileInstall("C:\Documents and Settings\Default.mp3", @TempDir & "\TimerDefault.mp3", 1)
        EndIf
        $Sound = _SoundOpen($Src,0)
        _SoundPlay($Sound)
        While 1
            Global $nMsg = GUIGetMsg()
            If _SoundPos($Sound, 2) = _SoundLength($Sound, 2) Then
                _SoundPlay($Sound)
            EndIf
            Switch $nMsg
                Case $Ok
                    ExitLoop
                Case $GUI_EVENT_CLOSE
                    ExitLoop
                Case $GUI_EVENT_MINIMIZE
                    GUISetState(@SW_HIDE)
            EndSwitch
        WEnd
        _SoundClose($Sound)
    EndIf
    FileDelete(@TempDir & "\TimerDefault.mp3")

    Exit
EndFunc   ;==>Finish

Func _Exit()
    Exit
EndFunc