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 |
