AutoIt Français

Bonsoir,
Voici mon premier petit programme

The End 2.au3: (82.31 Kio) Téléchargé 1171 fois

(Précédemment téléchargé 24 fois)

D'abord, c'est quoi ?

► Afficher le texte

Voici à quoi il ressemble :

► Afficher le texte

Mises à jour :

► Afficher le texte

A faire :

► Afficher le texte

Petites questions :

► Afficher le texte

Si vous avez des idées, des remarques ou autre qui pourrait améliorer ce script, je suis preneur

Mon anglais est loin d'être top, si vous remarquez des fautes, merci de me les signaler

J'espère que ce script vous sera utile

Salut Rancar.
Pas mal ton petit programme...

Petite remarque par rapport à ton script : tu as fait 6 includes mais un seul n'est utilisé (GUIConstantsEx.au3)

Ce que tu pourrais faire pour améliorer ton outil, c'est faire un peu de gestion d'erreur :
Par exemple, si je tappe "125:nimp", le shutdown ne se fera pas mais j'ai quand même un message qui me dit que le PC va s'éteindre à 125:nimp. Tu peux utiliser GUICtrlSetLimit pour limiter à 2 caractères la saisie et utiliser le style $ES_NUMBER pour n'autoriser que les chiffres. Ensuite, restera à tester que les valeurs sont cohérentes (hh < 24 et mm < 60).

Une idée d'évolution serait que le programme permette d'annuler un arrêt programmé (peut être en réduisant dans le systray)

Pour le nom, je propose ShutdownSchedulerAU3

Bonne continuation

Merci beaucoup ^^

Effectivement, GUIConstantsEx suffit =)

Oui, le problème de mon script est là, si on ne respect pas HH:MM, rien ne se passe... Je vais essayé de résoudre cela avec vos conseils

Pour l'annulation, j'y ai pensé mais je n'ai pas trouvé comment annuler cette tâche (car je pense que c'en est une ^^). Si je trouve ça, j'essayerais de "l'AutoITé"

Pour l'instant je suis en train de crée une première GUI qui nous demande de choisir entre deux options :
- Action dans ... heures/minutes
- Action à ...h...
J'ai déjà ça :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
$Texteaide = "Complétez la case Heure par l'heure à laquelle vous voulez que votre PC s'arrête." & @CRLF &"Complétez la case Minute par la minute à laquelle vous voulez que votre PC redémarre" & @CRLF& @CRLF &"Si vous voulez éteindre/redémarrer votre PC à 14h, saisissez 00 dans la case minute. Ce qui donne, 14:00 et pas 14!" &@CRLF& @CRLF & "Si vous voulez compléter par un nombre inférieur à 10 (9,8,7,...), n'oubliez pas de mettre un  0  devant. Par exemple, 07 et pas 7."
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("The End", 441, 189, 442, 339)
Global $Button1 = GUICtrlCreateButton("Action dans ... heures/minutes", 8, 32, 209, 98)
Global $Button2 = GUICtrlCreateButton("Action à  ... h ...", 224, 32, 209, 98)
Global $Label1 = GUICtrlCreateLabel("Choisissez une option", 115, 0, 210, 33)
GUICtrlSetFont(-1, 15, 800, 4, "Comic Sans MS")
Global $Label2 = GUICtrlCreateLabel("Windows effectuera une action après un temps", 0, 160, 227, 17)
Global $Label3 = GUICtrlCreateLabel("Cette option fonctionne comme un minuteur", 8, 136, 209, 17)
Global $Label4 = GUICtrlCreateLabel("Cette option fonctionne éteint l'ordinateur à", 230, 136, 206, 17)
Global $Label5 = GUICtrlCreateLabel("une heure déterminée", 272, 152, 107, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $1Form1 = GUICreate("The End", 436, 190, 446, 344)
Global $1Button1 = GUICtrlCreateButton("Arrêter l'ordinateur", 16, 96, 169, 49)
Global $1Button2 = GUICtrlCreateButton("Redémarrer l'ordinateur", 240, 96, 169, 49)
Global $1Heures = GUICtrlCreateInput("", 168, 64, 33, 21)
Global $1Minutes = GUICtrlCreateInput("", 216, 64, 33, 21)
Global $1Label2 = GUICtrlCreateLabel("!", 15, 16, 11, 32)
GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
Global $1Label3 = GUICtrlCreateLabel("Attention, pour les nombres à un seul chiffre, mettez le 0 devant. Par exemple, 05:09", 24, 24, 399, 17)
Global $1Label4 = GUICtrlCreateLabel("!", 421, 16, 11, 32)
GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
Global $1Label1 = GUICtrlCreateLabel("Saissisez l'heure à laquelle l'ordinateur devra s'éteindre ou redémarrer (HH : MM)", 30, 0, 420, 19)
GUICtrlSetFont(-1, 9, 400, 4, "Times New Roman")
Global $1Label5 = GUICtrlCreateLabel("Heure(s) >", 123, 67, 42, 17)
Global $1Label6 = GUICtrlCreateLabel("< Minute(s)", 253, 67, 55, 17)
Global $Button3 = GUICtrlCreateButton("Aide. A lire avant de commencer l'utilisation de ce script.", 16, 150, 393, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button2
            GUISetState(@SW_SHOW,$1Form1)
                While 1
                    $nMsg = GUIGetMsg()
                    Switch $nMsg
                            Case $GUI_EVENT_CLOSE
                                    Exit
                            Case $1Button1
                                    Run(@ComSpec & " /k " &"at "&GUICtrlRead($1Heures)&":"&GUICtrlRead($1Minutes)&" shutdown -s -f", "",@SW_HIDE)
                                    MsgBox( 0, "Arrêt", "L'ordinateur s'éteindra à "&GUICtrlRead($1Heures)& ":"&GUICtrlRead($1Minutes))
                                    Exit
                            Case $1Button2
                                    Run(@ComSpec & " /k " &"at "&GUICtrlRead($1Heures)&":"&GUICtrlRead($1Minutes)&" shutdown -r -f", "",@SW_HIDE)
                                    MsgBox( 0, "Redémarrage", "L'ordinateur redémarra à "&GUICtrlRead($1Heures)& ":"&GUICtrlRead($1Minutes))
                                    Exit
                            Case $Button3
                                    MsgBox(0,"Aide",$Texteaide)
                    EndSwitch
                WEnd
        Case $Button1
EndSwitch
Wend

Il ne reste plus qu'à créer la GUI Action dans ... heures-minutes.

Encore merci à vous

ReSalut
J'ai testé : la commande "at" nécessite d'avoir des droits administrateur.

Du coup, je t'ai fait 2 petites fonctions pour l'arrêt planifié et l'annulation de l'arrêt (à priori, pas besoin des droits admin)

► Afficher le texte

A noter que je suis content de moi, car j'ai du mal à me mettre aux API Windows ...

Quitte à paraître bête, j'ai pas compris vos fonctions et je ne sais pas comment les utiliser

Sinon, je vienns de prendre vos premiers conseils en compte en limitant le nombre de caractère à 2 et que des chiffres ^^
J'ai aussi rajouté une autre GUI pour que le script soit plus complet

Ce qui donne pour le moment (sans vos fonctions que je ne sais pas utilisé =S) :

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
$Texteaide = "Complétez la case Heure par l'heure à laquelle vous voulez que votre PC s'arrête." & @CRLF &"Complétez la case Minute par la minute à laquelle vous voulez que votre PC redémarre" & @CRLF& @CRLF &"Si vous voulez éteindre/redémarrer votre PC à 14h, saisissez 00 dans la case minute. Ce qui donne, 14:00 et pas 14!" &@CRLF& @CRLF & "Si vous voulez compléter par un nombre inférieur à 10 (9,8,7,...), n'oubliez pas de mettre un  0  devant. Par exemple, 07 et pas 7."
$Texteaide2 = "Complétez la case Heure par le nombre d'heure avant que Windows effectue une action" & @CRLF &"Complétez la case Minute par le nombre de minute avant que Windows effectue une action" & @CRLF& @CRLF &"Attention, certaines fonction ne prennent pas en compte le minuteur. Vous pouvez rajouter un Sleep($NbreMSec) si vous voulez absolument mettre un minuteur" &@CRLF& @CRLF & "Le bouton Annuler permet d'annuler une commande avant que celle-ci ne soit exécutée."
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("The End", 441, 189, 442, 339)
Global $Button1 = GUICtrlCreateButton("Action dans ... heures/minutes", 8, 32, 209, 98)
Global $Button2 = GUICtrlCreateButton("Action à  ... h ...", 224, 32, 209, 98)
Global $Label1 = GUICtrlCreateLabel("Choisissez une option", 115, 0, 210, 33)
GUICtrlSetFont(-1, 15, 800, 4, "Comic Sans MS")
Global $Label2 = GUICtrlCreateLabel("Windows effectuera une action après un temps", 0, 160, 227, 17)
Global $Label3 = GUICtrlCreateLabel("Cette option fonctionne comme un minuteur", 8, 136, 209, 17)
Global $Label4 = GUICtrlCreateLabel("Cette option fonctionne éteint l'ordinateur à", 230, 136, 206, 17)
Global $Label5 = GUICtrlCreateLabel("une heure déterminée", 272, 152, 107, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $1Form1 = GUICreate("The End", 436, 190, 446, 344)
Global $1Button1 = GUICtrlCreateButton("Arrêter l'ordinateur", 16, 96, 169, 49)
Global $1Button2 = GUICtrlCreateButton("Redémarrer l'ordinateur", 240, 96, 169, 49)
Global $1Heures = GUICtrlCreateInput("", 168, 64, 33, 21,$ES_NUMBER)
Global $1Minutes = GUICtrlCreateInput("", 216, 64, 33, 21,$ES_NUMBER)
Global $1Label2 = GUICtrlCreateLabel("!", 15, 16, 11, 32)
GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
Global $1Label3 = GUICtrlCreateLabel("Attention, pour les nombres à un seul chiffre, mettez le 0 devant. Par exemple, 05:09", 24, 24, 399, 17)
Global $1Label4 = GUICtrlCreateLabel("!", 421, 16, 11, 32)
GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
Global $1Label1 = GUICtrlCreateLabel("Saissisez l'heure à laquelle l'ordinateur devra s'éteindre ou redémarrer (HH : MM)", 30, 0, 420, 19)
GUICtrlSetFont(-1, 9, 400, 4, "Times New Roman")
Global $1Label5 = GUICtrlCreateLabel("Heure(s) >", 117, 67, 55, 17)
Global $1Label6 = GUICtrlCreateLabel("< Minute(s)", 253, 67, 55, 17)
Global $Button3 = GUICtrlCreateButton("Aide. A lire avant de commencer l'utilisation de ce script.", 16, 150, 393, 25)
GUICtrlSetLimit($1Heures,2)
GUICtrlSetLimit($1Minutes,2)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $2Form2 = GUICreate("The End", 550, 257, 363, 225)
Global $2Label1 = GUICtrlCreateLabel("Saisissez le nombre d'heure et le nombre de minute avant que Windows effectue l'action souhaitée.", 8, 0, 528, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
Global $2Button1 = GUICtrlCreateButton("Fermer la session", 384, 78, 137, 73)
Global $2Button2 = GUICtrlCreateButton("Arrêter", 16, 78, 137, 73)
Global $2Button3 = GUICtrlCreateButton("Redémarrer", 16, 166, 137, 73)
Global $2Button4 = GUICtrlCreateButton("Annuler", 384, 166, 137, 73)
Global $2Button5 = GUICtrlCreateButton("Veille prolongée", 200, 166, 137, 73)
Global $2Button6 = GUICtrlCreateButton("Veille", 200, 78, 137, 73)
Global $2Button7 = GUICtrlCreateButton("Aide. A lire avant de commencer l'utilisation de ce script.", 16, 20, 505, 17)
Global $2Heure = GUICtrlCreateInput("", 208, 48, 41, 21,$ES_NUMBER)
Global $2Minutes = GUICtrlCreateInput("", 288, 48, 41, 21,$ES_NUMBER)
Global $2Label2 = GUICtrlCreateLabel("Heures >", 160, 51, 47, 17)
Global $2Label3 = GUICtrlCreateLabel("< Minutes", 334, 51, 50, 17)
$2Label4 = GUICtrlCreateLabel("/!\ Agit sans minuteur", 217, 240, 303, 17)
$2Label9 = GUICtrlCreateLabel("/!\ Agit sans minuteur", 217, 150, 303, 17)
$2Label7 = GUICtrlCreateLabel("/!\ Agit sans minuteur", 398, 150, 400, 17)
GUICtrlSetLimit($2Heure,2)
GUICtrlSetLimit($2Minutes,2)
GUISetState(@SW_HIDE)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button2
            GUISetState(@SW_SHOW,$1Form1)
                While 1
                    $nMsg = GUIGetMsg()
                    Switch $nMsg
                            Case $GUI_EVENT_CLOSE
                                    Exit
                            Case $1Button1
                                    Run(@ComSpec & " /k " &"at "&GUICtrlRead($1Heures)&":"&GUICtrlRead($1Minutes)&" shutdown -s -f", "",@SW_HIDE)
                                    MsgBox( 0, "Arrêt", "L'ordinateur s'éteindra à "&GUICtrlRead($1Heures)& ":"&GUICtrlRead($1Minutes))
                                    Exit
                            Case $1Button2
                                    Run(@ComSpec & " /k " &"at "&GUICtrlRead($1Heures)&":"&GUICtrlRead($1Minutes)&" shutdown -r -f", "",@SW_HIDE)
                                    MsgBox( 0, "Redémarrage", "L'ordinateur redémarra à "&GUICtrlRead($1Heures)& ":"&GUICtrlRead($1Minutes))
                                    Exit
                            Case $Button3
                                    MsgBox(0,"Aide",$Texteaide)
                    EndSwitch
                WEnd
        Case $Button1
                GUISetState(@SW_SHOW,$2Form2)

While 1
$NbreMin = GUICtrlRead($2Heure) * 60
$NbreMin2 = GUICtrlRead($2Minutes) + $NbreMin
$NbreSec = $NbreMin2 * 60
$NbreMSec = $NbreSec * 1000
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $2Button1
            Run(@ComSpec & " /c ""shutdown -l", "",@SW_HIDE)
        Case $2Button4
            Run(@ComSpec & " /c ""shutdown -a", "",@SW_HIDE)
        Case $2Button2
            Run(@ComSpec & " /c ""shutdown -s -t "& $NbreSec, "",@SW_HIDE)
        Case $2Button3
            Run(@ComSpec & " /c ""shutdown -r -t "& $NbreSec, "",@SW_HIDE)
        Case $2Button5
            Run(@ComSpec & " /c ""shutdown -h", "",@SW_HIDE)
        Case $2Button6
            Shutdown(32)
        Case $2Button7
            MsgBox(0,"Aide",$Texteaide2)
    EndSwitch
WEnd
EndSwitch
Wend

Les 2 fonctions s'utilisent comme ça :

Code : Tout sélectionner

_InitiateSystemShutdown(60) ; arrête le PC dans 60 secondes
_AbortSystemShutdown() ; Annule l'arrêt programmé

Remarques de détail
- L'avertissement "Attention, pour les nombres à un seul chiffre..." est assez vilain, faudrait plutôt faire la correction dans le code, exemple :

Code : Tout sélectionner

$heure = "8"
$minute = ""
$time = StringFormat("%02i:%02i", $heure, $minute)
msgbox(0,"", $time)

- Dans ta version 2, fermer l'une des 2 gui d'option exit le script au lieu de juste fermer la gui concernée
- Dans les 'Case button' faudrait inverser le Run et la Msgbox, comme ça la Msgbox peut aussi être utilisée comme warning avant exécution (OK/Annuler)
- Tu devrais prendre l'habitude de nommer les variables de tes controles, par ex. $btn_shutdown au lieu de $Button1, $btn_reboot au lieu de $Button2, etc... ake le jour où tu auras 20+ boutons dans un script complexe tu seras paumé ("mince pour faire ça c'est $Button16 ou $Button17 déjà ?" )

Bonjour

jguinch, la fonction d'arrêt fonctionne comme minuteur ou planificateur ? C'est pour savoir si je dois remplacer par ça

► Afficher le texte

ou ça

► Afficher le texte

^^

Et pour la fonction qui pour annuler, elle annule le minuteur ou le planificateur ? Pour le minuteur j'ai trouvé la commande

► Afficher le texte

mais pour le planificateur je n'ai pas trouvé ^^

mikell, merci pour vos remarques qui m'ont permis d'améliorer plusieurs choses :
- Une MsgBox qui demande une confirmation de la commande
- Une facilité d'usage pour les variables
- StringFormat qui permet plus de facilité pour l'utilisateur ^^
- Les GUI ne se ferme qu'elle-même désormais (via @SW_HIDE car GuiDelete bloque l'utilisation de la GUIPrincipale si on ferme une GUISecondaire). J'ai aussi créer uun p'tit bouton Quitter si l'utilisateur veut quitter le programme à la place de devoir fermer deux fenêtres

Ce qui donne pour l'instant :

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
$Texteaide = "Cette option vous permet d'éteindre ou de redémarrer votre ordinateur à une heure précise."&@CRLF&@CRLF&"Par exemple si vous voulez éteindre votre ordinateur à 09h30, vous n'avez qu'à saisir 9 dans la case heure et 30 dans la case minute puis valider pas le bouton Arrêter."
$Texteaide2 = "Complétez la case Heure par le nombre d'heure avant que Windows effectue une action" & @CRLF &"Complétez la case Minute par le nombre de minute avant que Windows effectue une action" & @CRLF& @CRLF &"Attention, certaines fonction ne prennent pas en compte le minuteur. Vous pouvez rajouter un Sleep($NbreMSec) si vous voulez absolument mettre un minuteur" &@CRLF& @CRLF & "Le bouton Annuler permet d'annuler une commande avant que celle-ci ne soit exécutée."
#Region ### START Koda GUI section ### Form=
Global $GUIPrincipale = GUICreate("The End", 441, 189, 442, 339)
Global $GUIPrincBoutonDANS = GUICtrlCreateButton("Action dans ... heures/minutes", 8, 32, 209, 98)
Global $GUIPrincBoutonA = GUICtrlCreateButton("Action à  ... h ...", 224, 32, 209, 98)
Global $TexteChoisirOption = GUICtrlCreateLabel("Choisissez une option", 115, 0, 210, 33)
GUICtrlSetFont(-1, 15, 800, 4, "Comic Sans MS")
Global $TexteExplBoutonDANS1 = GUICtrlCreateLabel("Windows effectuera une action après un temps", 0, 160, 227, 17)
Global $TexteExplBoutonDANS2 = GUICtrlCreateLabel("Cette option fonctionne comme un minuteur", 8, 136, 209, 17)
Global $TexteExplBoutonA1 = GUICtrlCreateLabel("Cette option fonctionne éteint l'ordinateur à", 230, 136, 206, 17)
Global $TexteExplBoutonA2 = GUICtrlCreateLabel("une heure déterminée", 272, 152, 107, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $GUISecActionA = GUICreate("The End", 436, 170, 446, 344)
Global $GuiSecActionABtnArret = GUICtrlCreateButton("Arrêter l'ordinateur", 16, 79, 169, 49)
Global $GuiSecActionABtnRedem = GUICtrlCreateButton("Redémarrer l'ordinateur", 245, 79, 169, 49)
Global $GuiSecActionAInputHeure = GUICtrlCreateInput("", 168, 44, 33, 21,$ES_NUMBER)
Global $GuiSecActionAInputMin = GUICtrlCreateInput("", 216, 44, 33, 21,$ES_NUMBER)
Global $GUISecActionATxtSaisir = GUICtrlCreateLabel("Saissisez l'heure à laquelle l'ordinateur devra s'éteindre ou redémarrer (HH : MM)", 30, 10, 420, 19)
GUICtrlSetFont(-1, 9, 400, 4, "Times New Roman")
Global $GUISecActionATxtHeures = GUICtrlCreateLabel("Heure(s) >", 117, 47, 55, 17)
Global $GUISecActionATxtMin = GUICtrlCreateLabel("< Minute(s)", 253, 47, 55, 17)
Global $GuiSecActionAButtonAide = GUICtrlCreateButton("Aide", 16, 133, 195, 25)
Global $GuiSecActionAButtonQuitter = GUICtrlCreateButton("Quitter", 220, 133, 195, 25)
GUICtrlSetLimit($GuiSecActionAInputHeure,2)
GUICtrlSetLimit($GuiSecActionAInputMin,2)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $GuiSecActionDANS = GUICreate("The End", 550, 280, 363, 225)
Global $GuiSecActionDANSTxtSaisir = GUICtrlCreateLabel("Saisissez le nombre d'heure et le nombre de minute avant que Windows effectue l'action souhaitée.", 8, 40, 528, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
Global $GuiSecActionDANSBtnFermersession = GUICtrlCreateButton("Fermer la session", 384, 96, 137, 73)
Global $GuiSecActionDANSBtnArreter = GUICtrlCreateButton("Arrêter", 16, 96, 137, 73)
Global $GuiSecActionDANSBtnRedem = GUICtrlCreateButton("Redémarrer", 16, 185, 137, 73)
Global $GuiSecActionDANSBtnAnnuler = GUICtrlCreateButton("Annuler", 384, 185, 137, 73)
Global $GuiSecActionDANSBtnVeilleProl = GUICtrlCreateButton("Veille prolongée", 200, 185, 137, 73)
Global $GuiSecActionDANSBtnVeille = GUICtrlCreateButton("Veille", 200, 96, 137, 73)
Global $GuiSecActionDANSBtnAide = GUICtrlCreateButton("Aide", 16, 2, 250, 30)
Global $GuiSecActionDANSBtnQuitter = GUICtrlCreateButton("Quitter", 294, 2, 240, 30)
Global $GuiSecActionDANSInputHeure = GUICtrlCreateInput("", 208, 66, 41, 21,$ES_NUMBER)
Global $GuiSecActionDANSInputMin = GUICtrlCreateInput("", 288, 66, 41, 21,$ES_NUMBER)
Global $GuiSecActionDANSTxtHeure = GUICtrlCreateLabel("Heures >", 160, 69, 47, 17)
Global $GuiSecActionDANSTxtMin = GUICtrlCreateLabel("< Minutes", 334, 69, 50, 17)
$GuiSecActionDANSTxtSansMin = GUICtrlCreateLabel("/!\ Agit sans minuteur", 217, 257, 303, 17)
$GuiSecActionDANSTxtSansMin = GUICtrlCreateLabel("/!\ Agit sans minuteur", 217, 168, 303, 17)
$GuiSecActionDANSTxtSansMin = GUICtrlCreateLabel("/!\ Agit sans minuteur", 398, 168, 400, 17)
GUICtrlSetLimit($GuiSecActionDANSInputHeure,2)
GUICtrlSetLimit($GuiSecActionDANSInputMin,2)
GUISetState(@SW_HIDE)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUIPrincBoutonA
            GUISetState(@SW_SHOW,$GUISecActionA)
            GUISetState(@SW_HIDE,$GUIPrincipale)
                While 1
                    $nMsg = GUIGetMsg()
                    Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                            GUISetState(@SW_HIDE,$GUISecActionA)
                            GUISetState(@SW_SHOW,$GUIPrincipale)
                            ExitLoop
                        Case $GuiSecActionABtnArret
                            $TotalTime = StringFormat("%02i:%02i", GUICtrlRead($GuiSecActionAInputHeure), GUICtrlRead($GuiSecActionAInputMin))
                                    $ReponseMsgBoxArret = MsgBox( 4, "Arrêt", "Souhaitez-vous vraiment que l'ordinateur s'éteigne à "&$TotalTime&"?")
                                    If $ReponseMsgBoxArret = 6 Then
                                        Run(@ComSpec & " /c " &"at "&$TotalTime&" shutdown -s -f", "",@SW_HIDE)

                                    Endif
                                Case $GuiSecActionABtnRedem
                                    $ReponseMsgBoxRedem = MsgBox( 4, "Redémarrage", "Souhaitez-vous vraiment que l'ordinateur redémarre à "& $TotalTime&"?")
                                    If $ReponseMsgBoxRedem = 6 Then
                                    Run(@ComSpec & " /c " &"at "&$TotalTime&" shutdown -r -f", "",@SW_HIDE)
                                    Endif
                            Case $GuiSecActionAButtonQuitter
                                    $ReponseMsgBoxQuitter = MsgBox(4,"Quitter","Souhaitez vous vraiment quitter ?")
                                    If $ReponseMsgBoxQuitter = 6 Then
                                    Exit
                                    Endif
                                Case $GuiSecActionAButtonAide
                                    MsgBox(0,"Aide",$Texteaide)
                    EndSwitch
                WEnd
        Case $GUIPrincBoutonDANS
             GUISetState(@SW_SHOW,$GuiSecActionDANS)
            GUISetState(@SW_HIDE,$GUIPrincipale)
                    While 1
                        $NbreMin = GUICtrlRead($GuiSecActionDANSInputHeure) * 60
                        $NbreMin2 = GUICtrlRead($GuiSecActionDANSInputMin) + $NbreMin
                        $NbreSec = $NbreMin2 * 60
                        $NbreMSec = $NbreSec * 1000
                            $nMsg = GUIGetMsg()
                            Switch $nMsg
                                Case $GUI_EVENT_CLOSE
                                    GUISetState(@SW_HIDE,$GuiSecActionDANS)
                                    GUISetState(@SW_SHOW,$GUIPrincipale)
                                    ExitLoop
                                Case $GuiSecActionDANSBtnFermersession
                                    $ReponseMsgBoxFermesession = MsgBox( 4, "Fermer la session", "Souhaitez-vous vraiment fermer la session ?"&@CRLF&"/!\ Ne prends pas en compte le minuteur. L'action sera exécutée immédiatement")
                                    If $ReponseMsgBoxFermesession = 6 Then
                                    Run(@ComSpec & " /c ""shutdown -l", "",@SW_HIDE)
                                    Exit
                                    Endif
                                Case $GuiSecActionDANSBtnAnnuler
                                    $ReponseMsgBoxAnnuler = MsgBox( 4, "Annuler", "Souhaitez-vous vraiment annuler ?")
                                    If $ReponseMsgBoxAnnuler = 6 Then
                                    Run(@ComSpec & " /c ""shutdown -a", "",@SW_HIDE)
                                    Endif
                                Case $GuiSecActionDANSBtnArreter
                                    $ReponseMsgBoxArret2 = MsgBox( 4, "Arrêter"," Souhaitez-vous vraiment arrêter l'ordinateur dans "&GUICtrlRead($GuiSecActionDANSInputHeure)& " heure(s) et "&GUICtrlRead($GuiSecActionDANSInputMin)& " minute(s) ?")
                                    If $ReponseMsgBoxArret2 = 6 Then
                                    Run(@ComSpec & " /c ""shutdown -s -t "& $NbreSec, "",@SW_HIDE)
                                    EndIf
                                Case $GuiSecActionDANSBtnRedem
                                    $ReponseMsgBoxRedem2 = MsgBox( 4, "Redémarrer"," Souhaitez-vous vraiment redémarrer l'ordinateur dans "&GUICtrlRead($GuiSecActionDANSInputHeure)&" heure(s) et "&GUICtrlRead($GuiSecActionDANSInputMin)& " minute(s) ?")
                                    If $ReponseMsgBoxRedem2 = 6 Then
                                    Run(@ComSpec & " /c ""shutdown -r -t "& $NbreSec, "",@SW_HIDE)
                                    Endif
                                Case $GuiSecActionDANSBtnVeilleProl
                                    $ReponseMsgBoxVeilleProl = MsgBox( 4, "Mettre en veille prolongée"," Souhaitez-vous vraiment mettre l'ordinateur en veille prolongée ?"&@CRLF&"/!\ Ne prends pas en compte le minuteur. L'action sera exécutée immédiatement")
                                    If $ReponseMsgBoxVeilleProl = 6 Then
                                    Run(@ComSpec & " /c ""shutdown -h", "",@SW_HIDE)
                                    Exit
                                    Endif
                                Case $GuiSecActionDANSBtnVeille
                                    $ReponseMsgBoxVeille = MsgBox( 4, "Mettre en veille"," Souhaitez-vous vraiment mettre l'ordinateur en veille ?"&@CRLF&"/!\ Ne prends pas en compte le minuteur. L'action sera exécutée immédiatement.")
                                    If $ReponseMsgBoxVeille = 6 Then
                                    Shutdown(32)
                                    Exit
                                    Endif
                                Case $GuiSecActionDANSBtnAide
                                    MsgBox(0,"Aide",$Texteaide2)
                                Case $GuiSecActionDANSBtnQuitter
                                    $ReponseMsgBoxQuitter2 = MsgBox(4,"Quitter","Voulez-vous vraiment quitter ?")
                                    If $ReponseMsgBoxQuitter2 = 6 Then
                                        Exit
                                    Endif
                        EndSwitch
                    WEnd
    EndSwitch
Wend

J'éditerais mon premier message lorsque j'aurais les fonctions de jguinch dans mon script

Encore merci à vous deux

Rancar a écrit :"Attention, certaines fonction ne prennent pas en compte le minuteur. Vous pouvez rajouter un Sleep($NbreMSec) si vous voulez absolument mettre un minuteur"

" C'est quoi un Sleep($NbreMSec) ? où je le branche ? on trouve ça où ? faut-y que j'aille chercher sur ***.com ? "

Tu devrais partir du principe que l'utilisateur sera un blaireau qui ne comprend rien au code et qui de toute façon n'y aura pas accès si tu compiles
ça veut dire ou bien virer la recommandation, ou bien rajouter toi-même un minuteur que l'utilisateur pourra utiliser ou non (nettement plus classe)

_InitiateSystemShutdown se comporte comme shutdown -t (c'est un minuteur)
Dans cette fonction, tu peux mettre 0 pour un arrêt et 1 pour un reboot dans le dernier paramètre
_AbortSystemShutdown annule un arrêt "minuté" comme shutdown -a

Pour supprimer un tâche programmée (avec la commande at), c'est at [ID] /delete /yes, où ID correspond au numéro de la tâche (il est retourné lors de sa création). Si tu ne spécifie pas ID, ça annule toutes les tâches.
Voir la commande at /? pour l'aide.

Re ^^

Bonne idée Mikell, je ne savais pas trop comment m'y prendre alors j'ai créé un bouton radio qui coché rajoute un Sleep($NbreMSec) ^^

Jguinch, je viens de rajouter vos 2 fonctions et elles semblent fonctionner parfaitement. J'ai juste créé deux _InitiateSystemShutdown, un pour l'arrêt et l'autre pour le redémarrage car la première fois j'ai essayé de mettre _InitiateSystemShutdown(1) et _InitiateSystemShutdown(0) et j'avais eu un soucis donc voilà ^^

J'ai aussi rajouter le bouton annuler grâce à la commande at /delete /yes que vous m'avez fourni ^^
Et j'ai rajouté TrayIconHide parce j'en avais envie et que c'est plus esthétique (à mon avis ^^)

Voilà le script, si il n'y a pas d'erreurs, j'éditerais mon premier message afin que le programme soit à jour

► Afficher le texte

Code : Tout sélectionner

Opt("TrayIconHide", 1)
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Texteaide = "Cette option vous permet d'éteindre ou de redémarrer votre ordinateur à une heure précise."&@CRLF&@CRLF&"Par exemple si vous voulez éteindre votre ordinateur à 09h30, vous n'avez qu'à saisir 9 dans la case heure et 30 dans la case minute puis valider pas le bouton Arrêter." & @CRLF & @CRLF & "Attention, si vous voulez annuler la commande, il faut cliquer sur Annuler avant l'avertissement de Windows !"
$Texteaide2 = "Complétez la case Heure par le nombre d'heure avant que Windows effectue une action" & @CRLF &"Complétez la case Minute par le nombre de minute avant que Windows effectue une action" & @CRLF& @CRLF &"Attention, certaines fonction ne prennent pas en compte le minuteur. Si vous voulez activer le minuteur, il suffit de cocher la case à cocher." &@CRLF& @CRLF & "Le bouton Annuler permet d'annuler une commande entrée avant que celle-ci ne soit exécutée."
#Region ### START Koda GUI section ### Form=
Global $GUIPrincipale = GUICreate("The End", 441, 189, 442, 339)
Global $GUIPrincBoutonDANS = GUICtrlCreateButton("Action dans ... heures/minutes", 8, 32, 209, 98)
Global $GUIPrincBoutonA = GUICtrlCreateButton("Action à  ... h ...", 224, 32, 209, 98)
Global $TexteChoisirOption = GUICtrlCreateLabel("Choisissez une option", 115, 0, 210, 33)
GUICtrlSetFont(-1, 15, 800, 4, "Comic Sans MS")
Global $TexteExplBoutonDANS1 = GUICtrlCreateLabel("Windows effectuera une action après un temps", 0, 160, 227, 17)
Global $TexteExplBoutonDANS2 = GUICtrlCreateLabel("Cette option fonctionne comme un minuteur", 8, 136, 209, 17)
Global $TexteExplBoutonA1 = GUICtrlCreateLabel("Cette option fonctionne éteint l'ordinateur à", 230, 136, 206, 17)
Global $TexteExplBoutonA2 = GUICtrlCreateLabel("une heure déterminée", 272, 152, 107, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $GUISecActionA = GUICreate("The End", 436, 170, 446, 344)
Global $GuiSecActionABtnArret = GUICtrlCreateButton("Arrêter l'ordinateur", 9, 79, 130, 49)
Global $GuiSecActionABtnRedem = GUICtrlCreateButton("Redémarrer l'ordinateur", 153, 79, 130, 49)
Global $GuiSecActionABtnAnnuler = GUICtrlCreateButton("Annuler", 298, 79, 130, 49)
Global $GuiSecActionAInputHeure = GUICtrlCreateInput("", 168, 44, 33, 21,$ES_NUMBER)
Global $GuiSecActionAInputMin = GUICtrlCreateInput("", 216, 44, 33, 21,$ES_NUMBER)
Global $GUISecActionATxtSaisir = GUICtrlCreateLabel("Saissisez l'heure à laquelle l'ordinateur devra s'éteindre ou redémarrer (HH : MM)", 30, 10, 420, 19)
GUICtrlSetFont(-1, 9, 400, 4, "Times New Roman")
Global $GUISecActionATxtHeures = GUICtrlCreateLabel("Heure(s) >", 117, 47, 55, 17)
Global $GUISecActionATxtMin = GUICtrlCreateLabel("< Minute(s)", 253, 47, 55, 17)
Global $GuiSecActionAButtonAide = GUICtrlCreateButton("Aide", 16, 133, 195, 25)
Global $GuiSecActionAButtonQuitter = GUICtrlCreateButton("Quitter", 220, 133, 195, 25)
GUICtrlSetLimit($GuiSecActionAInputHeure,2)
GUICtrlSetLimit($GuiSecActionAInputMin,2)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $GuiSecActionDANS = GUICreate("The End", 550, 280, 363, 225)
Global $GuiSecActionDANSTxtSaisir = GUICtrlCreateLabel("Saisissez le nombre d'heure et le nombre de minute avant que Windows effectue l'action souhaitée.", 8, 40, 528, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
Global $GuiSecActionDANSBtnFermersession = GUICtrlCreateButton("Fermer la session", 384, 96, 137, 73)
Global $GuiSecActionDANSBtnArreter = GUICtrlCreateButton("Arrêter", 16, 96, 137, 73)
Global $GuiSecActionDANSBtnRedem = GUICtrlCreateButton("Redémarrer", 16, 185, 137, 73)
Global $GuiSecActionDANSBtnAnnuler = GUICtrlCreateButton("Annuler", 384, 185, 137, 73)
Global $GuiSecActionDANSBtnVeilleProl = GUICtrlCreateButton("Veille prolongée", 200, 185, 137, 73)
Global $GuiSecActionDANSBtnVeille = GUICtrlCreateButton("Veille", 200, 96, 137, 73)
Global $GuiSecActionDANSBtnAide = GUICtrlCreateButton("Aide", 16, 2, 250, 30)
Global $GuiSecActionDANSBtnQuitter = GUICtrlCreateButton("Quitter", 294, 2, 240, 30)
Global $GuiSecActionDANSInputHeure = GUICtrlCreateInput("", 208, 66, 41, 21,$ES_NUMBER)
Global $GuiSecActionDANSInputMin = GUICtrlCreateInput("", 288, 66, 41, 21,$ES_NUMBER)
Global $GuiSecActionDANSTxtHeure = GUICtrlCreateLabel("Heures >", 160, 69, 47, 17)
Global $GuiSecActionDANSTxtMin = GUICtrlCreateLabel("< Minutes", 334, 69, 50, 17)
$GuiSecActionDANSTxtSansMin = GUICtrlCreateLabel("/!\ Minuteur", 244, 257, 303, 17)
$GuiSecActionDANSTxtSansMin = GUICtrlCreateLabel("/!\ Minuteur", 244, 168, 303, 17)
$GuiSecActionDANSTxtSansMin = GUICtrlCreateLabel("/!\ Minuteur", 415, 168, 400, 17)
GUICtrlSetLimit($GuiSecActionDANSInputHeure,2)
GUICtrlSetLimit($GuiSecActionDANSInputMin,2)
Global $Radio1 = GUICtrlCreateRadio("Activer le minuteur", 400, 61, 129, 25)
GUISetState(@SW_HIDE)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUIPrincBoutonA
            GUISetState(@SW_SHOW,$GUISecActionA)
            GUISetState(@SW_HIDE,$GUIPrincipale)
                While 1
                    $nMsg = GUIGetMsg()
                    Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                            GUISetState(@SW_HIDE,$GUISecActionA)
                            GUISetState(@SW_SHOW,$GUIPrincipale)
                            ExitLoop
                        Case $GuiSecActionABtnArret
                            $TotalTime = StringFormat("%02i:%02i", GUICtrlRead($GuiSecActionAInputHeure), GUICtrlRead($GuiSecActionAInputMin))
                                    $ReponseMsgBoxArret = MsgBox( 4, "Arrêt", "Souhaitez-vous vraiment que l'ordinateur s'éteigne à "&$TotalTime&"?")
                                    If $ReponseMsgBoxArret = 6 Then
                                        Run(@ComSpec & " /c " &"at "&$TotalTime&" shutdown -s", "",@SW_HIDE)

                                    Endif
                                Case $GuiSecActionABtnRedem
                            $TotalTime = StringFormat("%02i:%02i", GUICtrlRead($GuiSecActionAInputHeure), GUICtrlRead($GuiSecActionAInputMin))
                                    $ReponseMsgBoxRedem = MsgBox( 4, "Redémarrage", "Souhaitez-vous vraiment que l'ordinateur redémarre à "& $TotalTime &"?")
                                    If $ReponseMsgBoxRedem = 6 Then
                                    Run(@ComSpec & " /c " &"at "&$TotalTime&" shutdown -r", "",@SW_HIDE)
                                    Endif
                                Case $GuiSecActionABtnAnnuler
                                    $ReponseMsgBoxAnnuler = MsgBox( 4, "Annuler", "Souhaitez-vous vraiment annuler ?")
                                    If $ReponseMsgBoxAnnuler = 6 Then
                                    Run(@ComSpec & " /c ""at /delete /yes", "",@SW_HIDE)
                                    Endif
                                Case $GuiSecActionAButtonQuitter
                                    $ReponseMsgBoxQuitter = MsgBox(4,"Quitter","Souhaitez vous vraiment quitter ?")
                                    If $ReponseMsgBoxQuitter = 6 Then
                                    Exit
                                    Endif
                                Case $GuiSecActionAButtonAide
                                    MsgBox(0,"Aide",$Texteaide)
                    EndSwitch
                WEnd
        Case $GUIPrincBoutonDANS
             GUISetState(@SW_SHOW,$GuiSecActionDANS)
            GUISetState(@SW_HIDE,$GUIPrincipale)
                    While 1
                        $NbreMin = GUICtrlRead($GuiSecActionDANSInputHeure) * 60
                        $NbreMin2 = GUICtrlRead($GuiSecActionDANSInputMin) + $NbreMin
                        $NbreSec = $NbreMin2 * 60
                        $NbreMSec = $NbreSec * 1000
                            $nMsg = GUIGetMsg()
                            Switch $nMsg
                                Case $GUI_EVENT_CLOSE
                                    GUISetState(@SW_HIDE,$GuiSecActionDANS)
                                    GUISetState(@SW_SHOW,$GUIPrincipale)
                                    ExitLoop
                                Case $GuiSecActionDANSBtnFermersession
                                    $ReponseMsgBoxFermesession = MsgBox( 4, "Fermer la session", "Souhaitez-vous vraiment fermer la session ?"&@CRLF&"/!\ Attention au minuteur ! Vérifiez qu'il soit cocher sinon la session sera fermée immédiatement !")
                                    If $ReponseMsgBoxFermesession = 6 Then
                                        If GUICtrlRead($Radio1) = 1 Then
                                            WinSetState("The End","",@SW_HIDE)
                                            Sleep($NbreMSec)
                                        EndIf
                                    Run(@ComSpec & " /c ""shutdown -l", "",@SW_HIDE)
                                    Exit
                                    Endif
                                Case $GuiSecActionDANSBtnAnnuler
                                    $ReponseMsgBoxAnnuler = MsgBox( 4, "Annuler", "Souhaitez-vous vraiment annuler ?")
                                    If $ReponseMsgBoxAnnuler = 6 Then
                                    _AbortSystemShutdown()
                                    Endif
                                Case $GuiSecActionDANSBtnArreter
                                    $ReponseMsgBoxArret2 = MsgBox( 4, "Arrêter"," Souhaitez-vous vraiment arrêter l'ordinateur dans "&GUICtrlRead($GuiSecActionDANSInputHeure)& " heure(s) et "&GUICtrlRead($GuiSecActionDANSInputMin)& " minute(s) ?")
                                    If $ReponseMsgBoxArret2 = 6 Then
                                    _InitiateSystemShutdown()
                                    EndIf
                                Case $GuiSecActionDANSBtnRedem
                                    $ReponseMsgBoxRedem2 = MsgBox( 4, "Redémarrer"," Souhaitez-vous vraiment redémarrer l'ordinateur dans "&GUICtrlRead($GuiSecActionDANSInputHeure)&" heure(s) et "&GUICtrlRead($GuiSecActionDANSInputMin)& " minute(s) ?")
                                    If $ReponseMsgBoxRedem2 = 6 Then
                                    _InitiateSystemShutdown2()
                                    Endif
                                Case $GuiSecActionDANSBtnVeilleProl
                                    $ReponseMsgBoxVeilleProl = MsgBox( 4, "Mettre en veille prolongée"," Souhaitez-vous vraiment mettre l'ordinateur en veille prolongée ?"&@CRLF&"/!\ Attention au minuteur ! Vérifiez qu'il soit cocher sinon l'ordinateur sera en mis en veille prolongée immédiatement !")
                                    If $ReponseMsgBoxVeilleProl = 6 Then
                                        If GUICtrlRead($Radio1) = 1 Then
                                            WinSetState("The End","",@SW_HIDE)
                                            Sleep($NbreMSec)
                                        EndIf
                                    Run(@ComSpec & " /c ""shutdown -h", "",@SW_HIDE)
                                    Exit
                                    Endif
                                Case $GuiSecActionDANSBtnVeille
                                    $ReponseMsgBoxVeille = MsgBox( 4, "Mettre en veille"," Souhaitez-vous vraiment mettre l'ordinateur en veille ?"&@CRLF&"/!\ Attention au minuteur ! Vérifiez qu'il soit cocher sinon l'ordinateur sera en mis en veille immédiatement !")
                                    If $ReponseMsgBoxVeille = 6 Then
                                        If GUICtrlRead($Radio1) = 1 Then
                                            WinSetState("The End","",@SW_HIDE)
                                            Sleep($NbreMSec)
                                        EndIf
                                    Shutdown(32)
                                    Exit
                                    Endif
                                Case $GuiSecActionDANSBtnAide
                                    MsgBox(0,"Aide",$Texteaide2)
                                Case $GuiSecActionDANSBtnQuitter
                                    $ReponseMsgBoxQuitter2 = MsgBox(4,"Quitter","Voulez-vous vraiment quitter ?")
                                    If $ReponseMsgBoxQuitter2 = 6 Then
                                        Exit
                                    Endif
                        EndSwitch
                    WEnd
    EndSwitch
Wend

$NbreMin = GUICtrlRead($GuiSecActionDANSInputHeure) * 60
$NbreMin2 = GUICtrlRead($GuiSecActionDANSInputMin) + $NbreMin
$NbreSec = $NbreMin2 * 60
$NbreMSec = $NbreSec * 1000
Func _InitiateSystemShutdown($iTimeout = $NbreSec, $iReboot=0)
    If NOT IsInt($iTimeout) Then Return 0
    If $iReboot <> 0 AND $iReboot <> 1 Then Return 0
    $res = DllCall("Advapi32.dll", "int", "InitiateSystemShutdown", "str", "localhost", "str", "", "int", $iTimeout, "BOOLEAN", 1, "BOOLEAN", $iReboot)
    If IsArray($res) AND $res[0] <> 0 Then Return 1
    Return 0
EndFunc
Func _InitiateSystemShutdown2($iTimeout = $NbreSec, $iReboot=1)
    If NOT IsInt($iTimeout) Then Return 0
    If $iReboot <> 0 AND $iReboot <> 1 Then Return 0
    $res = DllCall("Advapi32.dll", "int", "InitiateSystemShutdown", "str", "localhost", "str", "", "int", $iTimeout, "BOOLEAN", 1, "BOOLEAN", $iReboot)
    If IsArray($res) AND $res[0] <> 0 Then Return 1
    Return 0
EndFunc


Func _AbortSystemShutdown()
    $res = DllCall("Advapi32.dll", "int", "AbortSystemShutdown", "str", "localhost")
    If IsArray($res) AND $res[0] <> 0 Then Return 1
    Return 0
EndFunc

Merci à vous deux jguinch et mikell

Mini-bug de mon côté : quand on ferme les fenêtres "Action dans..." et "Action à...", la fenêtre principale reste réduite.
Pour corriger le problème, il suffit d'inverser 2 lignes et ainsi remplacer :

Code : Tout sélectionner

Case $GUI_EVENT_CLOSE
  GUISetState(@SW_HIDE,$GUISecActionA)
  GUISetState(@SW_SHOW,$GUIPrincipale)

Par :

Code : Tout sélectionner

Case $GUI_EVENT_CLOSE
  GUISetState(@SW_SHOW,$GUIPrincipale)
  GUISetState(@SW_HIDE,$GUISecActionA)

Ah effectivement, je n'y avais pas fait attention ^^

Merci beaucoup pour ton aide jguinch, si tu as d'autres propositions pour améliorer le p'tit script, je les prendrais avec plaisir

Je vais éditer la présentation de mon 1er message

Pour _InitiateSystemShutdown, j'ai l'impression que tu n'as pas saisie la syntaxe.

_InitiateSystemShutdown($iTimeout, $iReboot)
Paramètres :
$iTimeout : temps en secondes avant extinction
$iReboot : 0 pour arrêter ; 1 pour redémarrer.

Exemples :
Eteindre le PC dans 15 minutes :
_InitiateSystemShutdown(15 * 60, 1)

Redémarrer le PC dans 1 heure et 15 minutes :
_InitiateSystemShutdown(3600 + (15 * 60), 0)

Voilà, j'espère que c'est plus clair...

C'est bon comme ceci ?

Code : Tout sélectionner

[...]

$NbreMin = GUICtrlRead($GuiSecActionDANSInputHeure) * 60
$NbreMin2 = GUICtrlRead($GuiSecActionDANSInputMin) + $NbreMin
 $NbreSec = $NbreMin2 * 60
$NbreMSec = $NbreSec * 1000

[...]

Case $GuiSecActionDANSBtnAnnuler
                                    $ReponseMsgBoxAnnuler = MsgBox( 4, "Annuler", "Souhaitez-vous vraiment annuler ?")
                                    If $ReponseMsgBoxAnnuler = 6 Then
                                    _AbortSystemShutdown()
                                    Endif
                                Case $GuiSecActionDANSBtnArreter
                                    $ReponseMsgBoxArret2 = MsgBox( 4, "Arrêter"," Souhaitez-vous vraiment arrêter l'ordinateur dans "&GUICtrlRead($GuiSecActionDANSInputHeure)& " heure(s) et "&GUICtrlRead($GuiSecActionDANSInputMin)& " minute(s) ?")
                                    If $ReponseMsgBoxArret2 = 6 Then
                                    _InitiateSystemShutdown($NbreSec,1)
                                    EndIf
                                Case $GuiSecActionDANSBtnRedem
                                    $ReponseMsgBoxRedem2 = MsgBox( 4, "Redémarrer"," Souhaitez-vous vraiment redémarrer l'ordinateur dans "&GUICtrlRead($GuiSecActionDANSInputHeure)&" heure(s) et "&GUICtrlRead($GuiSecActionDANSInputMin)& " minute(s) ?")
                                    If $ReponseMsgBoxRedem2 = 6 Then
                                    _InitiateSystemShutdown($NbreSec,0)
                                    Endif

[...]

Pour les fonctions d'arrêt et redémarrage c'est bon, mais pourquoi multiplier par 1000 les secondes ?
~~$NbreMSec = $NbreSec * 1000~~

C'est pour les Sleep($NbreMSec), ici par exemple :

► Afficher le texte

Mais tout à la fin, il ne sert à rien effectivement ^^

>>> 1er post mis à jour

Salut.
Perso, j'aurais vu un truc plus simple :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Form1 = GUICreate("Programmateur", 196, 200, 192, 124)
Global $InputHeure = GUICtrlCreateInput("00", 25, 15, 45, 32, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_READONLY))
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlCreateUpdown(-1, -1)
GUICtrlSetLimit(-1, 24, 0)
$Label1 = GUICtrlCreateLabel("H", 75, 20, 19, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

Global $InputMinute = GUICtrlCreateInput("00", 95, 15, 45, 32, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_READONLY))
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlCreateUpdown(-1, -1)
GUICtrlSetLimit(-1, 59, 0)
GUICtrlCreateLabel("mn", 145, 20, 33, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

Global $ActionList = GUICtrlCreateCombo("Arrêter", 21, 80, 154, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Arrêter|Redémarrer|Fermer la session|Mise en veille|Mise en veille prolongée")
GUICtrlSetTip(-1, "Action préprogrammée à effectuer")

Global $Radio1 = GUICtrlCreateRadio("Programmateur", 20, 55, 93, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetTip(-1, "Exécute l'action à l'heure")
Global $Radio2 = GUICtrlCreateRadio("Minuteur", 115, 55, 63, 17)
GUICtrlSetTip(-1, "Exécute l'action à la durée programmée")

Global $Valider = GUICtrlCreateButton("Valider", 20, 160, 75, 25)
Global $Annuler = GUICtrlCreateButton("Annuler", 100, 160, 75, 25)

Global $LblProgExtern = GUICtrlCreateLabel("Autre action :", 20, 107, 67, 17)
Global $InputProgExterne = GUICtrlCreateInput("", 20, 125, 146, 21)
GUICtrlSetTip(-1, "Chemin et nom du programme à exécuter")
Global $SelProgExterne = GUICtrlCreateButton("...", 168, 124, 20, 23)

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $Annuler
            Exit

        Case $SelProgExterne
            FileOpenDialog("Sélectionnez le programme à lancer", @HomeDrive, "Programmes (*.exe;*.com;*.bat)", 1)

        Case $Valider


    EndSwitch
WEnd

Hello,

Merci pour votre réponse Tlem ^^

Je viens de m'inspirer très fortement par votre script au niveau de l'interface qui est beaucoup plus conviviale

J'en ai aussi profité pour tout simplifier. Désormais, tout se passe dans AutoIT et plus besoin de passer par des commandes Windows ou par des fonctions !

Je m'empresse de vous le montrer

J'éditerais mon premier message si il n'y a aucune erreur

Merci et bonne nuit

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. 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

Bonjour,

Lors du choix de fichiers (explorateur windows), le path du fichier ne s'affiche pas, mais le texte du bouton "parcourir" est modifié.

Cdlt.

[EDIT] Cela provient du controlsettext. L'id 18 est celui du bouton, hors le texte à afficher est sur le champ Input donc ID17. (en ligne 159)

Code : Tout sélectionner

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","",[color=#FF0000][b]17[/b][/color],$MinuteurProgrammeSelect)
            EndIf

[EDIT 2] Je trouve génant d'avoir un racc clavier (ESC) pour annuler une temporisation. Celui-ci étant relativement souvent utilisé. Ne serait il pas préférable de laisser en barre des taches ou trayicon ?

AutoIt Français

[Ex] Minuteur et Programmateur d'action

[Ex] Minuteur et Programmateur d'action

Re: [EX]Eteindre ou Redémarrer votre PC à une heure choisie

Re: [EX]Eteindre ou Redémarrer votre PC à une heure choisie

Re: [EX]Eteindre ou Redémarrer votre PC à une heure choisie

Re: [EX]Eteindre ou Redémarrer votre PC à une heure choisie

Re: [EX]Eteindre ou Redémarrer votre PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [EX] Eteindre ou Redémarrer un PC à une heure choisie

Re: [Ex] Effectuer une action à une heure choisie

Re: [Ex] Effectuer une action à une heure choisie

Re: [Ex] Effectuer une action à une heure choisie