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
