AutoIt Français

Bonjour à tous, je voulais partager avec vous un petit script que j'ai fait. C'est un réveil, certainement un de plus parmis tous ceux qui ont déjà du voir le jour, mais étant novice sur AutoIt je suis content d'y être arriver :p
C'est un petit programme sans prétention mais qui a le mérite de faire ce qu'on lui demande et si jamais ça peut aider certains nouveaux qui auraient également cette idée et bien tant mieux !

Je vous met le .exe et la source :

► Afficher le texteSource

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#include <Date.au3>

Install()
$ini = @AppDataDir & "\Demarrage.ini"
$first = IniRead($ini, "Demarrage", "premier", "True")
If $first = "True" Then
    MsgBox(48, "Premier démarrage", "Pour le premier démarrage du logiciel veuillez lire l'aide disponible dans le menu 'Réveil'.")
    IniWrite($ini, "Demarrage", "premier", "False")
Else

EndIf
Opt("TrayMenuMode", 1)
#region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Réveil", 341, 234, 192, 124)
GUISetBkColor(0x3C3C3C)
GUISetIcon("C:\Windows\Temp\reveil.ico")
Global $MenuItem2 = GUICtrlCreateMenu("Réveil")
Global $MenuItem1 = GUICtrlCreateMenu("Player")
$menu_reveil = GUICtrlCreateMenuItem("Afficher le Réveil", $MenuItem2)
$snooze = GUICtrlCreateMenuItem("Activer le Snooze", $MenuItem2)
;$hibernate = GUICtrlCreateMenuItem("Mise en veille prolongée", $MenuItem2)
$reset = GUICtrlCreateMenuItem("Re-démarrer le réveil", $MenuItem2)
$aide = GUICtrlCreateMenuItem("Aide", $MenuItem2)
GUICtrlCreateMenuItem("", $MenuItem2)
$quitter = GUICtrlCreateMenuItem("Quitter", $MenuItem2)
$menu_player = GUICtrlCreateMenuItem("Afficher le Player", $MenuItem1)
Global $Label1 = GUICtrlCreateLabel("Menu du Réveil", 80, 8, 156, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 13, 500, 0, "Comic Sans MS")
Global $Label4 = GUICtrlCreateLabel("Sonnerie :", 8, 104, 76, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
Global $Input3 = GUICtrlCreateInput("", 88, 104, 249, 21)
Global $musique = GUICtrlCreateIcon("C:\Windows\Temp\dossiermusic.ico", -1, 88, 152, 48, 48)
Global $valide = GUICtrlCreateIcon("C:\Windows\Temp\confirmer.ico", -1, 224, 152, 48, 48)
Global $Label6 = GUICtrlCreateLabel("", 248, 8, 92, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$time_debut = _NowTime(5)
Global $Label7 = GUICtrlCreateLabel("Réglages de l'heure ( HH:MM:SS ) :", 8, 48, 236, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
Global $Input4 = GUICtrlCreateInput($time_debut, 248, 48, 57, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlSetLimit(-1, 8)
GUISetState(@SW_SHOW)
;################################################################################ HIDE #################################################################################################
Global $Label4_2 = GUICtrlCreateLabel("Sonnerie :", 8, 64, 68, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUICtrlSetState(-1, $GUI_HIDE)
Global $Input3_2 = GUICtrlCreateInput("", 80, 64, 257, 21)
GUICtrlSetState(-1, $GUI_HIDE)
Global $Slider1 = GUICtrlCreateSlider(8, 136, 326, 29)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetLimit($Slider1, 1000, 0)
GUICtrlSetData($Slider1, 0)
GUICtrlSetBkColor($Slider1, 0x3C3C3C)
Global $Label5 = GUICtrlCreateLabel("", 8, 96, 324, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetState(-1, $GUI_HIDE)
Global $play = GUICtrlCreateIcon("C:\Windows\Temp\Play.ico", -0, 8, 176, 32, 32)
GUICtrlSetState(-1, $GUI_HIDE)
Global $pause = GUICtrlCreateIcon("C:\Windows\Temp\Pause.ico", -0, 48, 176, 32, 32)
GUICtrlSetState(-1, $GUI_HIDE)
Global $stop = GUICtrlCreateIcon("C:\Windows\Temp\Stop.ico", -0, 88, 176, 32, 32)
GUICtrlSetState(-1, $GUI_HIDE)
Global $Slider2 = GUICtrlCreateSlider(216, 176, 118, 29)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetBkColor($Slider2, 0x3C3C3C)
GUICtrlSetLimit($Slider2, 100, 0)
GUICtrlSetCursor($Slider2, 100)
Global $volume = GUICtrlCreateIcon("C:\Windows\Temp\Volumeh.ico", -0, 176, 176, 32, 32)
GUICtrlSetState(-1, $GUI_HIDE)
Global $Checkbox1 = GUICtrlCreateCheckbox("", 56, 8, 17, 17)
GUICtrlSetState(-1, $GUI_HIDE)
Global $Checkbox2 = GUICtrlCreateCheckbox("", 40, 8, 17, 17)
GUICtrlSetState(-1, $GUI_HIDE)
Global $Checkbox3 = GUICtrlCreateCheckbox("", 56, 24, 17, 17)
GUICtrlSetState(-1, $GUI_HIDE)


#endregion ### END Koda GUI section ###
AdlibRegister("infomusique", 1000)
AdlibRegister("time", 1000)
$musique_jouer = False
Global $Sec, $Min, $Hour, $time
HotKeySet("{ESC}", "Bye")
HotKeySet("{SPACE}", "pause")

While 1
    Sleep(10)
    SoundSetWaveVolume(GUICtrlRead($Slider2))
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            FileDelete("C:\Windows\Temp\*.ico")
            Exit
        Case $quitter
            FileDelete("C:\Windows\Temp\*.ico")
            Exit

        Case $reset
            GUIDelete()
            ShellExecute(@ScriptFullPath)
            Exit

        Case $snooze
            GUICtrlRead($Checkbox1)
            If (GUICtrlRead($Checkbox1) = $GUI_UNCHECKED) Then
                $time_snooze = InputBox("Option Snooze", "Entrez le temps voulu pour la fonction Snooze en secondes." & @CRLF & @CRLF & "Par exemple 5 minutes = 300 secondes", "300")
                If @error = 1 Then

                Else

                    GUICtrlSetState($Checkbox1, $GUI_CHECKED)
                    GUICtrlSetState($snooze, $GUI_CHECKED)
                EndIf
            ElseIf (GUICtrlRead($Checkbox1) = $GUI_CHECKED) Then
                GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
                GUICtrlSetState($snooze, $GUI_UNCHECKED)
            EndIf


        #cs Case $hibernate
            GUICtrlRead($Checkbox2)
            If (GUICtrlRead($Checkbox2) = $GUI_UNCHECKED) Then
                GUICtrlSetState($Checkbox2, $GUI_CHECKED)
                GUICtrlSetState($hibernate, $GUI_CHECKED)
            ElseIf (GUICtrlRead($Checkbox2) = $GUI_CHECKED) Then
                GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
                GUICtrlSetState($hibernate, $GUI_UNCHECKED)
            EndIf
#ce



        Case $aide
            MsgBox(32, "Aide", "Utilisez le format suivant pour règler le réveil : HH:MM:SS" & @CRLF & @CRLF & "Par exemple : 06:05:00" & @CRLF & "___________________________________________________________________________" & @CRLF & @CRLF & "La fonction Snooze sert à faire re-sonner le réveil lorsque vous appuyez sur le bouton 'Pause' du réveil, vous pouvez également appuyer sur Espace (Il ne re-sonne pas si vous appuyez sur le bouton 'Stop' du réveil, vous pouvez également appuyer sur Echap)." & @CRLF & @CRLF & "Votre réveil vient de sonner et vous souhaitez changer le délai du Snooze ou changer l'heure à laquelle il doit re-sonner ? Cliquez sur réveil et re-démarrez le réveil. Puis re-configurez à nouveau le réveil.")

        Case $menu_player
            GUICtrlSetData($Label1, "Menu du Player")
            $time_debut = _NowTime(5)
            GUICtrlSetData($Input4, $time_debut)
            GUICtrlSetData($Input3_2, GUICtrlRead($Input3))
            GUICtrlSetState($Label4_2, $GUI_SHOW)
            GUICtrlSetState($Input3_2, $GUI_SHOW)
            GUICtrlSetState($Slider1, $GUI_SHOW)
            GUICtrlSetBkColor($Slider1, 0x3C3C3C)
            GUICtrlSetLimit($Slider1, 1000, 0)
            GUICtrlSetData($Slider1, 0)
            GUICtrlSetState($Slider2, $GUI_SHOW)
            GUICtrlSetBkColor($Slider2, 0x3C3C3C)
            GUICtrlSetLimit($Slider2, 100, 0)
            GUICtrlSetData($Slider2, 100)
            GUICtrlSetState($Label5, $GUI_SHOW)
            GUICtrlSetState($play, $GUI_SHOW)
            GUICtrlSetState($pause, $GUI_SHOW)
            GUICtrlSetState($stop, $GUI_SHOW)
            GUICtrlSetState($volume, $GUI_SHOW)

            GUICtrlSetState($musique, $GUI_HIDE)
            GUICtrlSetState($valide, $GUI_HIDE)
            GUICtrlSetState($Input3, $GUI_HIDE)
            GUICtrlSetState($Label4, $GUI_HIDE)
            GUICtrlSetState($Label7, $GUI_HIDE)
            GUICtrlSetState($Input4, $GUI_HIDE)

        Case $menu_reveil
            GUICtrlSetData($Label1, "Menu du Réveil")
            GUICtrlSetState($Label4_2, $GUI_HIDE)
            GUICtrlSetState($Input3_2, $GUI_HIDE)
            GUICtrlSetState($Slider1, $GUI_HIDE)
            GUICtrlSetState($Slider2, $GUI_HIDE)
            GUICtrlSetState($Label5, $GUI_HIDE)
            GUICtrlSetState($play, $GUI_HIDE)
            GUICtrlSetState($pause, $GUI_HIDE)
            GUICtrlSetState($stop, $GUI_HIDE)
            GUICtrlSetState($volume, $GUI_HIDE)

            GUICtrlSetState($musique, $GUI_SHOW)
            GUICtrlSetState($valide, $GUI_SHOW)
            GUICtrlSetState($Input3, $GUI_SHOW)
            GUICtrlSetState($Label4, $GUI_SHOW)
            GUICtrlSetState($Label7, $GUI_SHOW)
            GUICtrlSetState($Input4, $GUI_SHOW)

        Case $play
            $musique_jouer = (GUICtrlRead($Input3_2))
            If _SoundStatus($musique_jouer) = "paused" Then _SoundResume($musique_jouer)
            If _SoundStatus($musique_jouer) = "stopped" Then _SoundPlay(GUICtrlRead($Input3_2))

        Case $stop
            $musique_jouer = (GUICtrlRead($Input3_2))
            _SoundStop($musique_jouer)
            $musique_jouer = ""


        Case $pause
            $musique_jouer = (GUICtrlRead($Input3_2))
            If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                _SoundPause($musique_jouer)
                $musique_jouer = ""
                $time_snooze_modif = $time_snooze * 1000
                Sleep($time_snooze_modif)
                If _SoundStatus($musique_jouer) = "paused" Then _SoundResume($musique_jouer)
            Else
                _SoundPause($musique_jouer)
                $musique_jouer = ""
            EndIf

        Case $musique
            $musique_ouverte = FileOpenDialog("Choisissez un fichier à ajouter à la playlist", @UserProfileDir & "\Downloads\Music", "Mp3 (*.mp3)|Wav (*.wav)", 9)
            If ($musique_ouverte <> "") Then
                GUICtrlSetData($Input3, $musique_ouverte)
            EndIf

        Case $valide
            GUICtrlRead($Input4)
            If (GUICtrlRead($Input3) = "") Then
                MsgBox(16, "Erreur", "Aucune musique selectionnée !")

            ElseIf ($Checkbox2 = $GUI_CHECKED) Then
                SetSuspend()
                Play()
                WinActivate($Form1)

            Else
                Play()
            EndIf

    EndSwitch
WEnd

Func Install()
    FileInstall("C:\Users\Adrien\Desktop\AutoIT\Script AutoIT\Icones\Player\Play.ico", "C:\Windows\Temp\", 1)
    FileInstall("C:\Users\Adrien\Desktop\AutoIT\Script AutoIT\Icones\Player\Pause.ico", "C:\Windows\Temp\", 1)
    FileInstall("C:\Users\Adrien\Desktop\AutoIT\Script AutoIT\Icones\Player\Stop.ico", "C:\Windows\Temp\", 1)
    FileInstall("C:\Users\Adrien\Desktop\AutoIT\Script AutoIT\Icones\Player\Volumeh.ico", "C:\Windows\Temp\", 1)
    FileInstall("C:\Users\Adrien\Desktop\AutoIT\Script AutoIT\Icones\Player\dossiermusic.ico", "C:\Windows\Temp\", 1)
    FileInstall("C:\Users\Adrien\Desktop\AutoIT\Script AutoIT\Icones\Player\confirmer.ico", "C:\Windows\Temp\", 1)
    FileInstall("C:\Users\Adrien\Desktop\AutoIT\Script AutoIT\Icones\Player\reveil.ico", "C:\Windows\Temp\", 1)
    FileInstall("C:\Users\Adrien\Desktop\AutoIT\Script AutoIT\Demarrage.ini", @AppDataDir, 1)
EndFunc   ;==>Install

Func infomusique()
    $musique_jouer = (GUICtrlRead($Input3_2))
    If $musique_jouer <> "" Then
        $musique_jouer = (GUICtrlRead($Input3_2))
        $avancement_musique = _SoundPos($musique_jouer, 2) / _SoundLength($musique_jouer, 2) * 1000
        GUICtrlSetData($Slider1, $avancement_musique)
        GUICtrlSetData($Label5, _SoundPos($musique_jouer) & " / " & _SoundLength($musique_jouer))
    EndIf
EndFunc   ;==>infomusique

Func Bye()
    FileDelete("C:\Windows\Temp\*.ico")
    Exit 0
EndFunc   ;==>Bye

Func time()
    $time = _NowTime(5)
    GUICtrlSetData($Label6, $time)
EndFunc   ;==>time

Func pause()
    $musique_jouer = (GUICtrlRead($Input3_2))
    If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
        _SoundPause($musique_jouer)
        $musique_jouer = ""
        $time_snooze_modif = $time_snooze * 1000
        Sleep($time_snooze_modif)
        If _SoundStatus($musique_jouer) = "paused" Then _SoundResume($musique_jouer)
    Else
        _SoundPause($musique_jouer)
        $musique_jouer = ""
    EndIf
EndFunc   ;==>pause

Func SetSuspend($mode = True, $force = True)
    $result = DllCall("PowrProf.dll", "long", "SetSuspendState", "long", $mode, "long", $force, "long", False)
EndFunc   ;==>SetSuspend

Func Play()
    Do
        Sleep(1000)
        If (GUICtrlRead($Input4) = _NowTime(5)) Then
            GUICtrlSetData($Label1, "Menu du Player")
            GUICtrlSetData($Input3_2, $musique_ouverte)
            GUICtrlSetState($Label4_2, $GUI_SHOW)
            GUICtrlSetState($Input3_2, $GUI_SHOW)
            GUICtrlSetState($Slider1, $GUI_SHOW)
            GUICtrlSetBkColor($Slider1, 0x3C3C3C)
            GUICtrlSetLimit($Slider1, 1000, 0)
            GUICtrlSetData($Slider1, 0)
            GUICtrlSetState($Slider2, $GUI_SHOW)
            GUICtrlSetBkColor($Slider2, 0x3C3C3C)
            GUICtrlSetLimit($Slider2, 100, 0)
            GUICtrlSetData($Slider2, 100)
            GUICtrlSetState($Label5, $GUI_SHOW)
            GUICtrlSetState($play, $GUI_SHOW)
            GUICtrlSetState($pause, $GUI_SHOW)
            GUICtrlSetState($stop, $GUI_SHOW)
            GUICtrlSetState($volume, $GUI_SHOW)

            GUICtrlSetState($musique, $GUI_HIDE)
            GUICtrlSetState($valide, $GUI_HIDE)
            GUICtrlSetState($Input3, $GUI_HIDE)
            GUICtrlSetState($Label4, $GUI_HIDE)
            GUICtrlSetState($Input4, $GUI_HIDE)
            GUICtrlSetState($Label7, $GUI_HIDE)
            $musique_jouer = $musique_ouverte
            _SoundPlay($musique_jouer)
            $musique_jouer = True
        EndIf
    Until ($musique_jouer = True)
EndFunc   ;==>Play

► Afficher le texte.exe

PS : J'ai piqué la fonction Infomusique() a quelqu'un mais je ne sais plus qui en tous cas merci à lui =)

EDIT : Nouvelle version.

AutoIt Français

[Ex] Petit réveil

[Ex] Petit réveil