AutoIt Français

Code : Tout sélectionner

;########################################
;
; ChaudLesNeurones
;
;########################################


#include <GUIConstants.au3>

;TITRE DE LA FENETRE
$Fen_Info = GuiCreate("Envoi de mail", 300, 100)
;COULEUR DE LA FENETRE 
GUISetBkColor(0x6262d9)

;LES BOUTONS
$seDeconnecter = GUICtrlCreateButton("Se déconnecter",180, 30, 95, 25)
$quitter = GUICtrlCreateButton("Quitter",30, 30, 95, 25)


GUISetState (@sw_show)

While 1
  
   $msg = GUIGetMsg()

   Select
        ;FERMETURE QUAND ON CLIC SUR LE "X"
      Case $msg = $GUI_EVENT_CLOSE
            GUIDelete()
         Exit
       
   Case $msg = $seDeconnecter
       
         ; MESSAGE DE DECONNEXION  ET FERMETURE 
         ;MsgBox(-1, "Déconnexion en cour .....","Patientez 5 Secondes   ",5)
         
         ;MIEUX AVEC LA BARRE D'AVANCEMENT !!
        ProgressOn("Déconnexion en cour .....", "Patientez !", "0 %")
For $i = 10 to 100 step 10
    sleep(1000)
    ProgressSet( $i, $i & " %")
Next
ProgressSet(100)
sleep(500)
ProgressOff()
        
      Exit
      
        ;FERMETURE QUAND ON CLIQUE SUR QUITTER
      Case $msg = $quitter 
          Exit
        
   EndSelect

WEnd