Guten tag,
ich habe ein Login portal zum anmelden und account erstellung..
ich habe es nun so weit das wenn sich ein user registriert das sein account in eine .txt gespeichert wird und der user sich im Login portal einloggen kann.
Mein problem ist jetz es werden sich mehrere user registrieren und anmelden wollen...
sobald ich dann nochein account anlegen möchte überschreibt der neue account den alten und der alte account kann sich nicht mehr einloggen.
bitte um hilfe..
Der Erstell Button
Der Login Button
ich habe ein Login portal zum anmelden und account erstellung..
ich habe es nun so weit das wenn sich ein user registriert das sein account in eine .txt gespeichert wird und der user sich im Login portal einloggen kann.
Mein problem ist jetz es werden sich mehrere user registrieren und anmelden wollen...
sobald ich dann nochein account anlegen möchte überschreibt der neue account den alten und der alte account kann sich nicht mehr einloggen.
bitte um hilfe..
Der Erstell Button
Quellcode
- Dim User As New TextBox
- Dim Pass As New TextBox
- If System.IO.File.Exists("Pfad zur .txt") And System.IO.File.Exists("Pfad zur .txt") Then
- Dim cre As New OpenFileDialog
- cre.FileName = ("Pfad zur .txt")
- Dim cres As New System.IO.StreamReader(cre.FileName)
- User.Text = cres.ReadToEnd
- cres.Close()
- cre.FileName = ("Pfad zur .txt")
- Dim cres2 As New System.IO.StreamReader(cre.FileName)
- Pass.Text = cres2.ReadToEnd
- cres2.Close()
- Else
- System.IO.File.Create("Pfad zur .txt")
- System.IO.File.Create("Pfad zur .txt")
- End If
- If TextBox1.Text = User.Text And TextBox2.Text = Pass.Text Then
- Form.Show()
- End If
Der Login Button
Quellcode
- Dim User As New TextBox
- Dim Pass As New TextBox
- If TextBox1.Text = "Admin" And TextBox2.Text = "Admin" Then
- Adminlagerorte.Show()
- Me.Hide()
- End If
- If System.IO.File.Exists("Pfad zur .txt") And System.IO.File.Exists("Pfad zur .txt") Then
- Dim cre As New OpenFileDialog
- cre.FileName = ("Pfad zur .txt")
- Dim cres As New System.IO.StreamReader(cre.FileName)
- User.Text = cres.ReadToEnd
- cres.Close()
- cre.FileName = ("Pfad zur .txt")
- Dim cres2 As New System.IO.StreamReader(cre.FileName)
- Pass.Text = cres2.ReadToEnd
- cres2.Close()
- Else
- System.IO.File.Create("Pfad zur .txt")
- System.IO.File.Create("Pfad zur .txt")
- End If
- If TextBox1.Text = User.Text And TextBox2.Text = Pass.Text Then
- Form.Show()
- End If