Code : Tout sélectionner
;====================================================================================================================
; Nom : The End
; Description : C'est une GUI qui vous permettra de façon assez simple de programmer l'arrêt, le redémarrage, la fermeture de session,
; la veille, la veille prolongée de votre ordinateur. ou même le démarrage d'un programme.
; L'interface est simple (merci à Tlem :D) et donc facile d'utilisation.
; 1. Vous entrez une valeur pour les heures et une valeur pour les minutes (avec les flèches juste à droite)
; 2. Vous sélectionner l'action à effectuer.
; ==> Si vous choisissez Autre, complétez la case juste en-dessous en vous aidant du petit bouton à droite.
; 3. Validez et le programme s'occupe du reste !
; ==> Vous pouvez quitter le programme à tout moment en appuyant sur la touche ESC.
; Langue : Français
; Version AutoIT : v3.3.8.1
; Testé sur : Windows 7 Intégrale x64 (Admin)
; Auteur : Ricardo R. (ricardog@live.be)
; Remerciement à : jguinch & mikell & Tlem
; ===============================================================================================================================
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;=================================
#Region ### START Koda GUI section ### Form=C:\Users\Ricardo\Documents\Script\Form1.kxf
Global $Form2 = GUICreate("The End", 273, 312, -1, -1)
;============================================================
Global $Tab = GUICtrlCreateTab(0, 0, 272, 310)
Global $MinuteurTab = GUICtrlCreateTabItem("Minuteur")
GUICtrlSetTip(-1, "Minuteur. Effectue une action après un certains temps")
Global $MinuteurBoutonValider = GUICtrlCreateButton("Valider", 8, 259, 120, 40)
Global $MinuteurBoutonAide = GUICtrlCreateButton("Aide", 140, 259, 120, 40)
GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif")
Global $MinuteurInputHeure = GUICtrlCreateInput("0", 21, 52, 71, 40, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
GUICtrlSetTip(-1, "Nombre d'heure(s) du minuteur")
Global $MinuteurUpDownHeure = GUICtrlCreateUpdown($MinuteurInputHeure)
GUICtrlSetLimit(-1, 595, 0)
Global $MinuteurInputMin = GUICtrlCreateInput("0", 136, 52, 71, 40, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
GUICtrlSetTip(-1, "Nombre de minute(s) du minuteur")
Global $MinuteurUpDownMin = GUICtrlCreateUpdown($MinuteurInputMin)
GUICtrlSetLimit(-1, 59, 0)
Global $MinuteurTxtHeure = GUICtrlCreateLabel("H", 93, 52, 26, 42)
GUICtrlSetFont(-1, 20, 400, 0, "Arial Black")
Global $MinuteurTxtMin = GUICtrlCreateLabel("Min", 210, 52, 56, 42)
GUICtrlSetFont(-1, 20, 400, 0, "Arial Black")
Global $MinuteurRadioNotForce = GUICtrlCreateRadio("Ne pas forcer", 48, 104, 89, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetTip(-1, "Ne force pas la fermeture des programmes en cours d'exécution")
Global $MinuteurRadioForce = GUICtrlCreateRadio("Forcer", 168, 104, 57, 17)
GUICtrlSetTip(-1, "Force la fermeture des programmes en cours d'exécution")
Global $MinuteurCombo = GUICtrlCreateCombo("", 32, 136, 201, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$CBS_DROPDOWNLIST))
GUICtrlSetData(-1, "Arrêter|Redémarrer|Fermer la session|Mettre en veille|Mettre en veille prolongée|Autre", "Arrêter")
GUICtrlSetTip(-1, "Sélectionner une action à effectuer."&@CRLF&" Pour démarrer un programme sélectionner Autre et entrée le chemin du programme ci-dessous")
Global $Label1 = GUICtrlCreateLabel("Autre action :", 32, 200, 77, 19)
GUICtrlSetFont(-1, 10, 400, 4, "Times New Roman")
Global $MinuteurInputOtherAction = GUICtrlCreateInput("", 32, 215, 177, 21)
GUICtrlSetTip(-1, "Chemin du programme à exécuter (.exe, .bat ou .cmd)")
Global $MinuteurBoutonOther = GUICtrlCreateButton(". . .", 216, 215, 25, 21)
GUICtrlSetTip(-1, "Explorateur Windows pour rechercher le chemin de votre programme")
;==========================================================
;==========================================================
;==========================================================
Global $ProgrammateurTab = GUICtrlCreateTabItem("Programmateur")
GUICtrlSetTip(-1, "Programmateur. Effectue une action à une heure précise")
Global $ProgInputHeure = GUICtrlCreateInput("0", 21, 52, 71, 40, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
GUICtrlSetTip(-1, "Heure à laquelle l'action doit être effectuée")
Global $ProgUpDownHeure = GUICtrlCreateUpdown($ProgInputHeure)
GUICtrlSetLimit(-1, 23, 0)
Global $ProgTxtHeure = GUICtrlCreateLabel("H", 93, 52, 26, 42)
GUICtrlSetFont(-1, 20, 400, 0, "Arial Black")
Global $ProgInputMin = GUICtrlCreateInput("0", 136, 52, 71, 40, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
GUICtrlSetTip(-1, "Minute à laquelle l'action doit être effectuée")
Global $ProgUpDownMin = GUICtrlCreateUpdown($ProgInputMin)
GUICtrlSetLimit(-1, 59, 0)
Global $ProgTxtMin = GUICtrlCreateLabel("Min", 210, 52, 56, 42)
GUICtrlSetFont(-1, 20, 400, 0, "Arial Black")
Global $ProgBoutonValider = GUICtrlCreateButton("Valider", 8, 259, 120, 40)
Global $ProgBoutonAide = GUICtrlCreateButton("Aide", 140, 259, 120, 40)
GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif")
Global $ProgCombo = GUICtrlCreateCombo("", 32, 136, 201, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$CBS_DROPDOWNLIST))
GUICtrlSetData(-1, "Arrêter|Redémarrer|Fermer la session|Mettre en veille|Mettre en veille prolongée|Autre", "Arrêter")
GUICtrlSetTip(-1, "Sélectionner une action à effectuer."&@CRLF&" Pour démarrer un programme sélectionner Autre et entrée le chemin du programme ci-dessous")
Global $Label1 = GUICtrlCreateLabel("Autre action :", 32, 200, 77, 19)
GUICtrlSetFont(-1, 10, 400, 4, "Times New Roman")
Global $ProgInputOtherAction = GUICtrlCreateInput("", 32, 215, 177, 21)
GUICtrlSetTip(-1, "Chemin du programme à exécuter (.exe, .bat ou .com)")
Global $ProgBoutonOther = GUICtrlCreateButton(". . .", 216, 215, 25, 21)
GUICtrlSetTip(-1, "Explorateur Windows pour rechercher le chemin de votre programme")
Global $ProgRadioNotForce = GUICtrlCreateRadio("Ne pas forcer", 48, 104, 89, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetTip(-1, "Ne force pas la fermeture des programmes en cours d'exécution")
Global $ProgRadioForce = GUICtrlCreateRadio("Forcer", 168, 104, 57, 17)
GUICtrlSetTip(-1, "Ne force pas la fermeture des programmes en cours d'exécution")
;===============================================
;===============================================
Global $TabSheet3 = GUICtrlCreateTabItem("À propos ...")
GUICtrlSetTip(-1, "À propos et aide du programme")
Global $Group1 = GUICtrlCreateGroup("Remerciements", 8, 232, 257, 73)
Global $Label4 = GUICtrlCreateLabel("Jguinch", 16, 248, 55, 19)
Global $Label5 = GUICtrlCreateLabel("Mikell", 16, 264, 35, 19)
Global $Label6 = GUICtrlCreateLabel("Tlem", 16, 280, 32, 19)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Testé sur", 8, 180, 257, 50)
Global $Label1 = GUICtrlCreateLabel("Version AutoIT : v3.3.8.1 ", 16, 195, 132, 19)
Global $Label2 = GUICtrlCreateLabel("Windows 7 Intégrale 64 Bits", 16, 213, 141, 19)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("Créé par", 8, 135, 257, 41)
Global $Label3 = GUICtrlCreateLabel("Ricardo R. (ricardog@live.be)", 16, 154, 172, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group4 = GUICtrlCreateGroup("Aide", 8, 24, 257, 110)
$Label5 = GUICtrlCreateLabel("Pour l'aide concernant ce programme, rendez vous dans la partie dont vous souhaitez avoir de l'aide et cliquez sur le bouton aide situé en bas à droite de la fenêtre"&@CRLF&"Si toutefois vous désirez en savoir plus ou que vous n'avez pas trouvé réponse à votre question, contate moi par e-mail", 16, 37, 241,90)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{ESC}","Quitter")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
If MsgBox(4,"Quitter","Êtes-vous sûr de vouloir fermer cette fenêtre ?"&@CRLF&"Ceci annulera le minuteur/programmateur.") = 6 Then
Exit
Endif
Case $MinuteurBoutonOther
$MinuteurProgrammeSelect = FileOpenDialog("Sélectionnez le programme à lancer", @HomeDrive, "Programmes (*.exe;*.com;*.bat)", 1)
If @error Then
MsgBox(16,"Attention","Aucun fichier n'a été choisi")
Else
ControlSetText("The End","",18,$MinuteurProgrammeSelect)
EndIf
Case $ProgBoutonOther
$ProgProgrammeSelect = FileOpenDialog("Sélectionnez le programme à lancer", @HomeDrive, "Programmes (*.exe;*.com;*.bat)", 1)
If @error Then
MsgBox(16,"Attention","Aucun fichier n'a été choisi")
Else
ControlSetText("The End","",32,$ProgProgrammeSelect)
EndIf
Case $MinuteurBoutonValider
$MinuteurHeure = GUICtrlRead($MinuteurInputHeure)
$MinuteurMin = GUICtrlRead($MinuteurInputMin)
$MinuteurComboSelect = GUICtrlRead($MinuteurCombo)
$MinuteurRadioForceSelect = GUICtrlRead($MinuteurRadioForce)
$MinuteurInputOther = GUICtrlRead($MinuteurInputOtherAction)
$NbreMin = $MinuteurHeure * 60
$NbreMin2 = $MinuteurMin + $NbreMin
$NbreSec = $NbreMin2 * 60
$NbreMSec = $NbreSec * 1000
While 1
If $MinuteurRadioForceSelect = 1 Then
If $MinuteurComboSelect = "Arrêter" Then
$MinuteurConfirmArret = MsgBox(4,"Arrêt","Êtes-vous sûr de vouloir forcer l'arrêt du PC dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmArret = 6 Then
MsgBox(64,"Remarque","Pour annuler l'arrêt forcé du PC appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(5)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Redémarrer" Then
$MinuteurConfirmRedem = MsgBox(4,"Redémarrage","Êtes-vous sûr de vouloir forcer le redémarrage du PC dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmRedem = 6 Then
MsgBox(64,"Remarque","Pour annuler le redémarage forcé appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Shutdown(6)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Fermer la session" Then
$MinuteurConfirmSess = MsgBox(4,"Fermeture de la session","Êtes-vous sûr de vouloir forcer la fermeture de la session du PC dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmSess = 6 Then
MsgBox(64,"Remarque","Pour annuler la fermeture forcée de la session appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(0)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Mettre en veille" Then
$MinuteurConfirmVeille = MsgBox(4,"Mise en veille","Êtes-vous sûr de vouloir forcer la mise en veille du PC dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmVeille = 6 Then
MsgBox(64,"Remarque","Pour annuler la mise en veille forcée du PC appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(32)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Mettre en veille prolongée" Then
$MinuteurConfirmVeilleProl = MsgBox(4,"Mise en veille prolongée","Êtes-vous sûr de vouloir forcer la mise en veille prolongée du PC dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmVeilleProl = 6 Then
MsgBox(64,"Remarque","Pour annuler la mise en veille prolongée forcée du PC appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(64)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Autre" Then
If $MinuteurInputOther = "" Then
MsgBox(16,"Attention","Aucun fichier n'a été choisi")
ExitLoop
Else
$MinuteurConfirmAutre = MsgBox(4,"Démarrage du programme","Êtes-vous sûr de vouloir démarrer le programme dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmAutre = 6 Then
MsgBox(64,"Remarque","Pour annuler le démarrage du programme appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Run($MinuteurInputOther)
Exit
Endif
EndIf
Endif
;==============================
Else
If $MinuteurComboSelect = "Arrêter" Then
$MinuteurConfirmArret = MsgBox(4,"Arrêt","Êtes-vous sûr de vouloir arrêter le PC dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmArret = 6 Then
MsgBox(64,"Remarque","Pour annuler l'arrêt du PC appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(1)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Redémarrer" Then
$MinuteurConfirmRedem = MsgBox(4,"Redémarrage","Êtes-vous sûr de vouloir redémarrer le PC dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmRedem = 6 Then
MsgBox(64,"Remarque","Pour annuler le redémarrage du PC appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(2)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Fermer la session" Then
$MinuteurConfirmSess = MsgBox(4,"Fermeture de la session","Êtes-vous sûr de vouloir fermer la session dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmSess = 6 Then
MsgBox(64,"Remarque","Pour annuler la fermeture de la session appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(0)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Mettre en veille" Then
$MinuteurConfirmVeille = MsgBox(4,"Mise en veille","Êtes-vous sûr de vouloir mettre le PC en veille dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmVeille = 6 Then
MsgBox(64,"Remarque","Pour annuler la mise en veille du PC appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(32)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Mettre en veille prolongée" Then
$MinuteurConfirmVeilleProl = MsgBox(4,"Mise en veille prolongée","Êtes-vous sûr de vouloir mettre le PC en veille prolongée dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmVeilleProl = 6 Then
MsgBox(64,"Remarque","Pour annuler la mise en veille prolongée du PC appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Shutdown(64)
Exit
Else
ExitLoop
Endif
ElseIf $MinuteurComboSelect = "Autre" Then
If $MinuteurInputOther = "" Then
MsgBox(16,"Attention","Aucun fichier n'a été choisi")
ExitLoop
Else
$MinuteurConfirmAutre = MsgBox(4,"Démarrage du programme","Êtes-vous sûr de vouloir démarrer le programme dans "&$MinuteurHeure&" heure(s) et "&$MinuteurMin&" minute(s) ?")
If $MinuteurConfirmAutre = 6 Then
MsgBox(64,"Remarque","Pour annuler le démarrage du programme appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Sleep($NbreMSec)
Run($MinuteurInputOther)
exit
Endif
Endif
Endif
Endif
Wend
;========================================================================
;========================================================================
Case $ProgBoutonValider
$ProgHeure = StringFormat("%02i", GUICtrlRead($ProgInputHeure))
$ProgMin = StringFormat("%02i", GUICtrlRead($ProgInputMin))
$ProgComboSelect = GUICtrlRead($ProgCombo)
$ProgRadioForceSelect = GUICtrlRead($ProgRadioForce)
$ProgInputOther = GUICtrlRead($ProgInputOtherAction)
If $ProgRadioForceSelect = 1 Then
If $ProgComboSelect = "Autre" Then
If $ProgInputOther = "" Then
MsgBox(16,"Attention","Aucun fichier n'a été choisi")
Else
$ProgConfirmAutreForce = MsgBox(4,"Démarrage du programme","Êtes-vous sûr de vouloir démarrer ce programme à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmAutreForce =6 Then
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Run($ProgInputOther)
Exit
EndIf
EndIf
ElseIf $ProgComboSelect = "Arrêter" Then
$ProgConfirmArretForce = MsgBox(4,"Arrêt","Êtes-vous sûr de vouloir forcer l'arrêt du PC à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmArretForce = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(5)
Exit
Endif
ElseIf $ProgComboSelect = "Redémarrer" Then
$ProgConfirmRedemForce = MsgBox(4,"Redémarrage","Êtes-vous sûr de vouloir forcer le redémarrage du PC à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmRedemForce = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(6)
Exit
Endif
ElseIf $ProgComboSelect = "Mettre en veille" Then
$ProgConfirmVeilleForce = MsgBox(4,"Mise en veille","Êtes-vous sûr de vouloir forcer la mise en veille du PC à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmVeilleForce = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(32)
Exit
Endif
ElseIf $ProgComboSelect = "Fermer la session" Then
$ProgConfirmSessForce = MsgBox(4,"Fermeture de la session","Êtes-vous sûr de vouloir forcer la fermeture de la session à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmSessForce = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(0)
Exit
Endif
ElseIf $ProgComboSelect = "Mettre en veille prolongée" Then
$ProgConfirmVeilleProlForce = MsgBox(4,"Mise en veille prolongée","Êtes-vous sûr de vouloir forcer la mise en veille prolongée du PC à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmVeilleProlForce = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(64)
Exit
Endif
Endif
;==========================================
Else
If $ProgComboSelect = "Autre" Then
If $ProgInputOther = "" Then
MsgBox(16,"Attention","Aucun fichier n'a été choisi")
Else
$ProgConfirmAutre = MsgBox(4,"Démarrage du programme","Êtes-vous sûr de vouloir démarrer ce programme à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmAutre =6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Run($ProgInputOther)
Exit
Endif
EndIf
ElseIf $ProgComboSelect = "Arrêter" Then
$ProgConfirmArret = MsgBox(4,"Arrêt","Êtes-vous sûr de vouloir arrêter le PC à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmArret = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(1)
Exit
Endif
ElseIf $ProgComboSelect = "Redémarrer" Then
$ProgConfirmRedem = MsgBox(4,"Redémarrage","Êtes-vous sûr de vouloir redémarrer le PC à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmRedem = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(2)
Exit
Endif
ElseIf $ProgComboSelect = "Mettre en veille" Then
$ProgConfirmVeille = MsgBox(4,"Mise en veille","Êtes-vous sûr de vouloir mettre le PC en veille à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmVeille = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(32)
Exit
Endif
ElseIf $ProgComboSelect = "Fermer la session" Then
$ProgConfirmSess = MsgBox(4,"Fermeture de la session","Êtes-vous sûr de vouloir fermer la session à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmSess = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(0)
Exit
Endif
ElseIf $ProgComboSelect = "Mettre en veille prolongée" Then
$ProgConfirmVeilleProl = MsgBox(4,"Mise en veille prolongée","Êtes-vous sûr de vouloir mettre le PC en veille prolongée à "&$ProgHeure&":"&$ProgMin&" ?")
If $ProgConfirmVeilleProl = 6 Then
MsgBox(0,"Remarque","Pour annuler appuyez sur la touche ESC")
GUISetState(@SW_HIDE)
Opt("TrayIconHide",1)
Do
$ProgHeure = @HOUR and $ProgMin = @MIN
Until ($ProgHeure = @hour and $ProgMin = @MIN)
Shutdown(64)
Exit
Endif
Endif
EndIf
Case $MinuteurBoutonAide
MsgBox(32,"Aide pour le minuteur","Cette option va lancer un minuteur. À la fin de ce miniteur, l'action choisie préalablement sera effectuée."&@CRLF&@CRLF&"Procédez comme suit pour démarrer le programme :"&@CRLF&"1. À l'aide des flèches, augmentez ou diminuez la valeur de la case Heure pour ajuster le nombre d'heure(s) avant la réalisation de l'action choisie (voir juste après). Limité à 595 heures."&@CRLF&"2. À l'aide des flèches, augmentez ou diminuez la valeur de la case Minute pour ajuster le nombre de minute(s) avant la réalisation de l'action choisie (voir juste après). Limité à 59, pour plus, compléter la case Heure."&@CRLF&"3. Sélectionnez une option dans la liste déroulante"&@CRLF&" 3.1. Si vous avez sélectionné Autre dans la liste déroulante, indiquez le chemin du programme à démarrer. Le programme doit être en .exe, .bat ou .com. Vous pouvez vous aider grâce au bouton situé à droite. Si vous avez correctement effectué cette manipulation, lee chemin de votre programme devrait s'écrire automatiquement dans la zone de saisie."&@CRLF&"4. Cliquez sur Valider. Confirmez ou non. Si vous confirmé, la fenêtre sera masquée automatiquement."&@CRLF&" 4.1. Si vous souhaitez annuler le minuteur après que la fenêtre se soit masquée, appuyez sur la touche ESC."&@CRLF&@CRLF&"Pour plus d'aide, vous pouvez me contacter par e-mail à ricardog@live.be")
Case $ProgBoutonAide
MsgBox(32,"Aide pour le programmateur","Cette option va effectuer l'action choisie préalablement à heure choisie, elle aussi, préalablement."&@CRLF&@CRLF&"Procédez comme suit pour démarrer le programme :"&@CRLF&"1. À l'aide des flèches, augmentez ou diminuez la valeur de la case Heure pour ajuster l'heure à laquelle l'action devra être effectuée"&@CRLF&"2. À l'aide des flèches, augmentez ou diminuez la valeur de la case Minute pour ajuster la minute à laquelle l'action devra être effectuée"&@CRLF&"3. Sélectionnez une option dans la liste déroulante"&@CRLF&" 3.1. Si vous avez sélectionné Autre dans la liste déroulante, indiquez le chemin du programme à démarrer. Le programme doit être en .exe, .bat ou .com. Vous pouvez vous aider grâce au bouton situé à droite. Si vous avez correctement effectué cette manipulation, lee chemin de votre programme devrait s'écrire automatiquement dans la zone de saisie."&@CRLF&"4. Cliquez sur Valider. Confirmez ou non. Si vous confirmé, la fenêtre sera masquée automatiquement."&@CRLF&" 4.1. Si vous souhaitez annuler le minuteur après que la fenêtre se soit masquée, appuyez sur la touche ESC."&@CRLF&@CRLF&"Pour plus d'aide, vous pouvez me contacter par e-mail à ricardog@live.be")
EndSwitch
WEnd
Func Quitter()
Exit
EndFunc