Club Francophone des développeurs Visual Basic


  Vb-French  Vb-English  Autres langages
               Rajoutez votre site

  

Les applications MDI - VideoK7

mercredi 8 décembre 2004

Gilmir  -  Langlade Informatique     

Tutoriel 39    Sommaire

Exercice 1  SESAME La feuille "form1"  -  saisie du code
Private Sub Form_Activate( )
'Donner le focus à Text1
Text1.SetFocus
Image2.Visible = False
End Sub 

Private Sub Form_Load( )
Form1.Show
'Centrage de la feuille
'CenterForm Me                  'Pour l'instant nous désactivons cette commande
'Contrôler si le fichier existe 
CreatSerialNumberCode
'Lire le fichier
GetSerialNumberCode
'Désactiver le clavier
AnnulerCAD True
End Sub

Private Sub Command3_Click( )   ' Bouton annuler
'Nous effaçons le contenu des TextBox     
Text1.Text = ""
Text2.Text = ""
'Nous donnons le Focus au contrôle Text1
Text1.SetFocus
End Sub

Private Sub Command1_Click( ) ' Bouton entrer
Dim t As String
Dim i As String
Dim M As String
Dim msg As String
'
'Contrôler si l' utilisateur a saisi du texte
If Text1.Text = "" Then
t$ = "Protect Accès Files!"
msg = "Vous devez saisir un nom d'utilisateur!"
Reponse% = MsgBox(msg, 0 + 32, t$)
Text1.SetFocus
Exit Sub
End If
'Contrôler si l' utilisateur a saisi du texte
If Text2.Text = "" Then 'si l'utilisateur n' a rien saisie, alors... erreur et sortie
t$ = "Protect Accès Files!"
M$ = "Vous devez saisir un mot de passe!"
Reponse% = MsgBox(M$, 0 + 32, t$)
Text2.SetFocus
Exit Sub
End If
'Les deux champs de saisie sont remplis, contrôler la validité du Password!
X$ = Text1.Text
Y$ = Text2.Text
'Vérifier la validation de l'utilisateur
If X$ <> lblUtilisateur Then
t$ = "Attention!"
M$ = "Vous n' êtes pas autorisé(e) à utiliser cet appareil!"
Reponse% = MsgBox(M$, 0 + 16, t$)
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
ElseIf Y$ <> lblPassword Then
t$ = "Attention!"
M$ = "Vous n' êtes pas autorisé(e) à utiliser cet appareil!"
Reponse% = MsgBox(M$, 0 + 16, t$)
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Else
t$ = "Félicitations!"
M$ = "Vous êtes autorisé(e) à utiliser cet appareil!"
Reponse% = MsgBox(M$, 0 + 64, t$)
'Instructions
Image2.Visible = True
Command2.Visible = True
'Réactiver le clavier
AnnulerCAD False
'Activer la feuille de paramétrages
Image2.Visible = True
End If
End Sub

Attention ! ce programme a été écrit pour le système d'exploitation de Windows98 - le blocage du clavier ne fonctionne pas sous Windows XP
Les programmeurs les plus chevronnés comprendrons au vu du code précédent, l' astuce qui a été choisie pour provoquer le paramétrage des identifiant compte tenu que  l'utilisateur non averti  qui affiche l'interface d'accueil ne possède pas le mot de passe et ne peut donc pas en modifier les paramètres.
Si vous connaissez la réponse si possible sans la dévoiler, faites le moi savoir par l'intermédiaire du forum en cliquant ici et recevez en récompense un Tee-Shirt Gilmir.com

Vous vous creusez la tête et vous ne trouvez pas l'astuce dont je vous parle ?

Vous n'avez pas envie de vous creuser la tête et vous voulez visualiser le programmes TELECHARGEZ
 Vous avez besoin de l'identifiant : Moi
du mot de passe : Valid
Oui, j'oubliais, il manque un fichier, le fichier About...je vais rectifier dès que possible.

Imprimer la page
     

VisualBasic6.org est hébergé par Gilmir.com