Merci DimVar, j'avais pas remarqué ^^
Je viens d'apporter quelques petites améliorations :
- Un raccourci clavier CTRL-ALT-ESC pour quitter le programme ;
- L'icône de la zone de notification est visible ce qui offre une possibilité de plus pour quitter le programme ;
- Une aide un peu plus complète au niveau des boutons radios qui permettent de forcer ou non une action ;
- Une apparition amusante ^^ (Trouvé ICI )
Encore merci :d
Voici le code :
► Afficher le texte
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. Cochez le bouton radio Forcer si vous voulez forcer l'action (Windows ne préviendra pas l'arrêt de Windows par exemple).
; ==> Le bouton radio Ne pas Forcer est coché par défaut.
; 4. 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)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form2, "int", 400, "long", 0x00040010);explode
;============================================================
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","",17,$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","",30,$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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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, appuyez sur CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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 CTRL-ALT-ESC ou faites un clic droit dans l'icône de la zone de notification et cliquez sur Quitter.")
GUISetState(@SW_HIDE)
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. Cochez le bouton radio Forcer si vous désirez forcer l'action (Windows ne préviendra pas l'arrêt de l'ordinateur par exemple), si vous ne voulez pas forcer l'action, sélectionnez le bouton radio Ne pas Forcer. Ce bouton est coché par défaut."&@CRLF&"2. À 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&"3. À 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&"4. Sélectionnez une option dans la liste déroulante"&@CRLF&" 4.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&"5. Cliquez sur Valider. Confirmez ou non. Si vous confirmé, la fenêtre sera masquée automatiquement."&@CRLF&" 5.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. Cochez le bouton radio Forcer si vous désirez forcer l'action (Windows ne préviendra pas l'arrêt de l'ordinateur par exemple), si vous ne voulez pas forcer l'action, sélectionnez le bouton radio Ne pas Forcer. Ce bouton est coché par défaut."&@CRLF&"2. À 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&"3. À 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&"4. Sélectionnez une option dans la liste déroulante"&@CRLF&" 4.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&"5. Cliquez sur Valider. Confirmez ou non. Si vous confirmé, la fenêtre sera masquée automatiquement."&@CRLF&" 5.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