Limite les tentatives de connexion à un nombre limité

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

mais

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

l'auteur du Topic et qui cherche une solution n'a que la version 23 du WM. et vue que je ne l'ai pas, alors j'ai poster une idée de solution avec WD23 et c'est à lui d'affiner le projet et le convertir en WM23

Cliquez pour agrandir...

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

oui j'avais compris d'ou je disait que j'avais les deux pour l'ouvrir en 24 et copier le code en 23

Cliquez pour agrandir...

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

vous postez une demande, mais vous ne faite pas suite .... : (

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Bonjour

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

je suis désolé si je n'ai pas suite à ma demande à cause d'une coupure d'électricité dans la zone où je suis
J'ai testé votre solution mais j'étais buté à quelques choses du côté j'ai essayé d'améliorer en m'inspirant sur ce que vous avez fait.

Code (Windev):

Nb_essaie_max est un entier = 3
nRest est un entier = 0
//ssPasse est une chaine =SAI_Mot_de_passe
sPluriel est une chaîne = "s"
sGPS1 est une chaîne = LIB_GPS
Image_Fraude est une Image = IMG_Furtive
//sUser est une chaine = SAI_Login
nTempsAttente est un entier = 5
duLas est une Durée = 5min 00s
bValid est un booléen = Vrai
SI Compteur < Nb_essaie_max ALORS
    SI bConnect(SAI_Login,SAI_Mot_de_passe)=Vrai ALORS
        FenPlan(6,animFondu)
        Connexion_Ok()
    SINON
        Compteur =Compteur+1
        nRest = (Nb_essaie_max-Compteur)
        //nRest = nRest-1
        Info_Msg("Echec de tentative de connexion."+RC+"Nombre de tentatives restantes : "+nRest)
        FIN
    SINON
        dateheure est une DateHeure = Date_Serveur()
        Tentative.IMEITentative = NumSerie()
        Tentative.Date_heure =(dateheure..PartieDate+(

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(dateheure..PartieHeure)+30000)))
        Tentative.Laps_temps = nTempsAttente
        Tentative.Cpt = 3
        SI PAS

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(Tentative) ALORS
            Msg_toast("Impossible de bloquer la tentative")
            ActiveVibreur()
            RETOUR
        FIN
        CaptureFaux()
       

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(COL_Connexion.gstUtilisateur)
    Info_Msg("Desole, vous avez atteint le nombre maximal de tentative de connexion")
    FenPlan(3,animFondu)
FIN

Extrait de mon code adapté et ça Marche
Merci à vous

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Cliquez pour agrandir...