AutoIt Français

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