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
ERROR NO EXE PLEASE
EDIT : Nouvelle version.