apprentizakaria
Messages postés8Date d'inscriptionjeudi 28 avril 2011StatutMembreDernière intervention19 juillet 2011
-
28 avril 2011 à 17:03
apprentizakaria
Messages postés8Date d'inscriptionjeudi 28 avril 2011StatutMembreDernière intervention19 juillet 2011
-
28 avril 2011 à 22:39
salut
j'ai créer un fichier ou j'ai stocké des noms d'utilisateur et des mots de pass, le probléme c'est que l'authentification marche avec la premiere ligne mais quand j'essaye d'utiliser un nom et un mot de passe qui existent dans les autres ligne ca marche pas!!
voici mon code,veuillez svp me le rectifier
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim l As New FileStream("c:\f1.txt", FileMode.Open, FileAccess.Read)
Dim f As New StreamReader(l)
Dim t() As String
Dim d As String
d = f.ReadLine
Do
t = d.Split("/")
If (tx1.Text <> t(0)) Then
MsgBox("erreur du nom d'utilisateur")
ElseIf (tx2.Text <> t(1)) Then
MsgBox("mot de passe erroné")
Else
MsgBox("succes")
apprentizakaria
Messages postés8Date d'inscriptionjeudi 28 avril 2011StatutMembreDernière intervention19 juillet 2011 28 avril 2011 à 22:39
c bon j'ai trouvé la solution fallait juste que je passe par une variable boolean voici la corection
Dim l As New FileStream("c:\f1.txt", FileMode.Open, FileAccess.Read)
Dim f As New StreamReader(l)
Dim t(2) As String
Dim d As String
Dim var = False
d = f.ReadLine
While (d <> Nothing)
t = d.Split("/")
If (tx1.Text t(0) And tx2.Text t(1)) Then
var = True
End If
d = f.ReadLine
End While
f.Close()
l.Close()
If (var = True) Then
MsgBox("succes")
Else
MsgBox("erreur")
End If