1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
|
Private Function LogIn(ByVal UserName AsString, ByVal Pass AsString) AsBoolean
'ja vais utiliser _n fichier xml comme une base de donnée pour l'authentification
Dim Access1 AsBoolean = False
Dim Access2 AsBoolean = False
Dim DocXML AsNew XmlDocument
DocXML.Load(Me.MapPath("Utilisateurs.xml")) 'Acce au fichier xml
Dim Noeud As XmlNodeList = DocXML.GetElementsByTagName("Utilisateur") ''accer au eles User
For Each ele As XmlNode In Noeud 'accer au les 2 eles de Utilisateur
Dim NoeudFils As XmlNodeList = ele.ChildNodes 'NoeudFil=Identifiant ou Passe
For Each elef As XmlNode In NoeudFils
If (elef.Name = "Identifiant") Then'nom de ele
If (elef.InnerText = UserName) Then'contenu
Access1 = True
End If
End If
If (elef.Name = "Passe") Then
If (elef.InnerText = Pass) Then
Access2 = True
End If
End If
Next
Next
Return Access1 And Access2
End Function |
Partager