Soyez le premier à donner votre avis sur cette source.
Vue 8 397 fois - Téléchargée 1 030 fois
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
sinon...
perso pour un pass tu fait simplement if text1.text = PW
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.