Hallo Liebe vb-paradies User,
mein Problem :
Ich habe mir ein Login mit registrierung gecodet.
( Über StreamReader, Streamwriter )
Nun möchte ich eine art speichern des benutzerdaten machen.
Also so wie hier im Forum " Angemeldet Bleiben "
Mein Bissheriger Code (Nur Ein Teil Davon) :
So nun Meine Theorie :
Ich hoffe ihr könnt mir Helfen !
Danke schon mal im Voraus.
mein Problem :
Ich habe mir ein Login mit registrierung gecodet.
( Über StreamReader, Streamwriter )
Nun möchte ich eine art speichern des benutzerdaten machen.
Also so wie hier im Forum " Angemeldet Bleiben "
Mein Bissheriger Code (Nur Ein Teil Davon) :
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If CheckBox1.Checked Then
- If My.Computer.FileSystem.DirectoryExists("C:\Go Down\Saves") Then
- MsgBox("Wurden Bereits Gespeichert ", MsgBoxStyle.Critical)
- Else
- MkDir("C:\Go Down\Saves")
- Dim User As New System.IO.StreamWriter("C:\Go Down\Saves" + "\Username.dll")
- User.WriteLine(TextBox1.Text)
- User.Close()
- Dim Passwort As New System.IO.StreamWriter("C:\Go Down\Saves" + "\Passwort.dll")
- Passwort.WriteLine(TextBox2.Text)
- Passwort.Close()
- End If
- End If
- Try
- Dim sa As String
- Dim sb As String
- Dim User As New System.IO.StreamReader("C:\Go Down\Benutzerdaten" + "\Username.dll")
- sa = User.ReadLine
- User.Close()
- Dim Passwort As New System.IO.StreamReader("C:\Go Down\Benutzerdaten" + "\Password.dll")
- sb = Passwort.ReadLine
- Passwort.Close()
- If TextBox1.Text = sa.ToString Then
- 'Do Something
- If TextBox2.Text = sb.ToString Then
- MsgBox("Willkommen " & sa.ToString & " Bei Go Down Test Version ")
- Me.Hide()
- Go_Down_Launcher.Show()
- Else
- MsgBox("Error! PW Falsch ", MsgBoxStyle.Critical)
- End If
- Else
- MsgBox("Der Account Existiert nicht ", MsgBoxStyle.Critical)
- End If
- Catch ex As Exception
- MsgBox("Error! Kp Was ist ")
- End Try
- -
- ---
- ----
- Das Sollte Euch Eig. Nicht Interessieren.
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim CheckboxErstellen As New System.IO.StreamWriter("C:\Go Down" + "\Checkbox.Start.dll")
- CheckboxErstellen.WriteLine("Checked")
- CheckboxErstellen.Close()
- Dim Load As String
- Dim Checkboxload As New System.IO.StreamReader("C:\Go Down" + "\Checkbox.Start.dll")
- Load = Checkboxload.ReadLine
- Checkboxload.Close()
- If CheckBox1.Checked Then
- Dim pw As String
- Dim un As String
- Dim Passwort As New System.IO.StreamReader("C:\Go Down\saves" + "\Username.dll")
- pw = Passwort.ReadLine
- Passwort.Close()
- Dim Username As New System.IO.StreamReader("C:\Go Down\saves" + "\Passwort.dll")
- un = Username.ReadLine
- Username.Close()
- TextBox1.Text = un.ToString
- TextBox2.Text = pw.ToString
- End If
- End Sub
So nun Meine Theorie :
SQL-Abfrage
- If My.Computer.....(C:\\Dwd......) text = "On" (< Oder Irgendwas halt) then
- Chechbox1.checked
- Wenn Checkbox1.checked ist, werden die letzten gepeicherten Benutzerdaten eingetragen und mann kann einfach Einloggen.
- Ich weiß, das es mit einem Automatischen login EINFACHEr ist aber ich möchte es auf diese weise Probieren.
Ich hoffe ihr könnt mir Helfen !
Danke schon mal im Voraus.