1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| POUR i = 1 A 5
SI gbReconnexionOk = Faux ALORS
LIB_SuppressionSiArret = "Tentative de connexion au serveur.. n°"+i
ConnexionSocket(csNomSocket,CnPortCnx, gfsServeur)
Multitâche()
SINON
gbReconnexionOk = Vrai
FENAccueil.LIB_User = gsStockeNomUser
LIB_SuppressionSiArret = "Reconnexion au serveur validée"
FENAccueil.IMG_Connect..Valeur = fRepExe() +"\Connect.gif"
gbConnexionActive = Vrai
ThreadExécute("ThreadReception", threadNormal, Reception)
DélaiAvantFermeture(300)
Ferme(PopupPbConnexion)
FIN
FIN
SI gbReconnexionOk = Faux ALORS
LIB_SuppressionSiArret = "Echec de la reconnexion, voulez vous retenter ?"
FIN |
Partager