Password

Télécharger le projet
Commenter

Description

Exemple très simple pour générer un fichier "mot de passe" nécessaire
au premier lancement d'une application.

Le code qui suit explique la manière de créer un fichier contenant
le mot de passe et l'application devra démarrer par le formulaire
FormPasswd. Une fois le fichier créé, l'application s'ouvrira normalement
dès sa seconde ouverture

Le nom et l'extension du fichier "mot de passe" sont libre de choix.

Un timer limite le temps de tentative de saisie.

Source / Exemple : 


Créer un Form nommé FormPasswd et coller le code suivant:

'Saisie du mot de passe pour l'installation

Private Sub Form_Load()
    Path = App.Path + "\"
    Call ReadFilePw                     'Appel lecture fichier mot de passe
End Sub

Private Sub Command1_Click()            'Test et écriture fichier si saisie valide
    If TextPassWord.Text = Pw Then
        PassWd = TextPassWord.Text
        Call WriteFilePw
        Unload Me
        Load Form1
        Form1.Show
    Else
        i = MsgBox("Mot de passe incorrect !", vbExclamation, "Saisie incorrecte !")
    End If
End Sub

Private Sub Timer1_Timer()              'Animation introduction
    Select Case (Saut)
        Case 0:
            Saut = 1
        Case 1:
            i = MsgBox("Il ne vous restera que 10 secondes de tentative après avoir quittancé ce message!", vbOKOnly, "Saisie mot de passe")
            Saut = 2
        Case 2:
            Saut = 3
        Case 3:
            End
            Saut = 4
    End Select
End Sub

Puis ajouter un Form1 (votre application). Ajouter un module et coller le code suivant:

'Constantes mot de passe
Public Const FilePw As String = "pw.dsc"                'Fichier password
Public Const Pw As String = "My application"                  'Mot de passe

'Variables répertoire et fichiers
Public Path As String               'Répertoire
Public FileNamePw                   'Variable pour fichier password
Public Saut As Integer              'Variable timer init
Public PassWd As String             'Variable traitement mot de passe

Public Sub WriteFilePw()            'Ecriture du fichier password
    FileNamePw = Path + FilePw
    Open FileNamePw For Output As #1
        Print #1, PassWd
    Close #1
End Sub

Public Sub ReadFilePw()             'Lecture du fichier password
    On Error GoTo gestionerreur
    FileNamePw = Path + FilePw
    Open FileNamePw For Input As #1
        Input #1, PassWd
        If PassWd = Pw Then
            Unload FormInit
            Load Form1
            Form1.Show
        End If
    Close #1
gestionerreur:
    If Err = 53 Then
        FormInit.Show
    End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Daniélo)