[EX] Programmer l'extinction du PC

[madhyve]

Bonjour à tous,

voici mon premier script en AutoIt,

on ma tellement demander de mettre un raccourci sur le bureau avec la commande "shutdown" et un temps délimité qu'en voyant ce que AutoIt pouvait faire je me suis dis qu'en faire un petit exe serait plus simple, donc voici mon script :

► Afficher le texte

Code : Tout sélectionner

; Version AutoIt :    3.3.6.1
; Langue     :        Français
; Plateforme :        Windows XP/7
; Auteur    :         Madhyve
;
; Fonction du script : Programmer l'extinction de l'ordinateur
;
; Version 1.0 : 11/2010

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

; Première fenêtre
$box = GUICreate("Compte à rebours  avant extinction", 578, 138, 219, 218)
GUISetIcon("C:\Documents and Settings\Madhyve\Mes documents\Téléchargements\shutdown-icone-9849.ico")
GUISetBkColor(0x3B99FE)

$Label1 = GUICtrlCreateLabel("Entrez en minutes le temps avant l'extinction du PC, puis cliquez sur OK.", 16, 30, 543, 27, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)

$minutes = GUICtrlCreateInput("", 200, 88, 33, 27, BitOR($ES_CENTER,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x3B99FE)

$OK = GUICtrlCreateButton("OK", 320, 88, 57, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

; Deuxième fenêtre
$box2 = GUICreate("Annuler l'extinction", 436, 112, 219, 218)
GUISetIcon("C:\Documents and Settings\Madhyve\Mes documents\Téléchargements\shutdown-icone-9849.ico")
GUISetBkColor(0x3B99FE)

$Label2 = GUICtrlCreateLabel("Cliquez sur annuler si vous ne voulez plus éteindre le PC.", 16, 14, 413, 27, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)

$Annuler = GUICtrlCreateButton("Annuler", 184, 64, 65, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

GUISetState(@SW_SHOW, $box)

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

        Case $minutes
            If $minutes >= 1 Then
                $min = GUICtrlRead($minutes)
                $min *= 60
                Run(@ComSpec & " /c shutdown -s -t " & $min, "", @SW_HIDE)
                GUISetState(@SW_HIDE, $box)
                GUISetState(@SW_SHOWMINIMIZED, $box2)
                Sleep(1000)
            ElseIf $minutes = "" Then
                MsgBox(0, "Alerte !", "Veuillez entrer un chiffre.")
            EndIf
            If WinWaitActive("Arrêt du système") Then
                WinSetState("Arrêt du système", "", @SW_HIDE)
            EndIf

        Case $Annuler
            Run(@ComSpec & " /c shutdown -a ", "", @SW_HIDE)
            WinClose("Annuler l'extinction", "")
    EndSwitch
WEnd

quelques explications sur ce script :
Il ouvre une première fenêtre ou il est demandé de mettre en minutes le temps que l'on veut avant que l'ordinateur ne s'éteigne.
Lorsque l'on clique sur "OK" le programme lance la commande dos pour éteindre le PC et la fenêtre se ferme, enfin le programme en ouvre une deuxième minimisée dans la barre des taches.
Cette deuxième fenêtre sert à annuler l'extinction du PC. (par exemple si l'on veut changer le temps d'extinction ou tout simplement si l'on ne veut plus l'éteindre.)

Ce script marche mieux sous 7, le problème avec XP est que lorsque l'on utilise la commande "shutdown" avec l'option "-t" il s'affiche une fenêtre avec le compte à rebours qui est obligatoirement au premier plan et donc très gênante.
Si quelqu'un connait un moyen pour l'enlever je suis preneur !
Merci à bloodwolff pour l'astuce ça marche niquel !

[mano78170]

Bonsoir !

Selon moi il est impossible de désactiver cette fenêtre
mais tu peut faire atteindre ton exe $min minutes (de façon cacher) puis lancer
shutdown -s - t 00 à la fin du temps !

[bloodwolff]

WinSetState ( "title", "text", @SW_HIDE )

Sa devrais pouvoir la cacher

[SrBelial]

exact, j'aurai donné la même réponse que bloodwolff.

à voir ensuite avec AutoIt Window Info Tool pour avoir la classe et/ou le titre de la fenêtre à masquer ... éventuellement accompagné d'un test préalable vérifiant si la fenêtre existe déjà ou non

[madhyve]

Aah oui logique j'y avais pas du tout pensé .

Merci beaucoup !