Stream Reader , StreamWriter //Hilfe mit Benutzerdaten Merken !

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von StepGamer.

    Stream Reader , StreamWriter //Hilfe mit Benutzerdaten Merken !

    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) :

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. If CheckBox1.Checked Then
    5. If My.Computer.FileSystem.DirectoryExists("C:\Go Down\Saves") Then
    6. MsgBox("Wurden Bereits Gespeichert ", MsgBoxStyle.Critical)
    8. Else
    9. MkDir("C:\Go Down\Saves")
    11. Dim User As New System.IO.StreamWriter("C:\Go Down\Saves" + "\Username.dll")
    12. User.WriteLine(TextBox1.Text)
    13. User.Close()
    15. Dim Passwort As New System.IO.StreamWriter("C:\Go Down\Saves" + "\Passwort.dll")
    16. Passwort.WriteLine(TextBox2.Text)
    17. Passwort.Close()
    20. End If
    22. End If
    30. Try
    35. Dim sa As String
    36. Dim sb As String
    38. Dim User As New System.IO.StreamReader("C:\Go Down\Benutzerdaten" + "\Username.dll")
    39. sa = User.ReadLine
    40. User.Close()
    42. Dim Passwort As New System.IO.StreamReader("C:\Go Down\Benutzerdaten" + "\Password.dll")
    44. sb = Passwort.ReadLine
    45. Passwort.Close()
    47. If TextBox1.Text = sa.ToString Then
    48. 'Do Something
    49. If TextBox2.Text = sb.ToString Then
    50. MsgBox("Willkommen " & sa.ToString & " Bei Go Down Test Version ")
    51. Me.Hide()
    52. Go_Down_Launcher.Show()
    53. Else
    54. MsgBox("Error! PW Falsch ", MsgBoxStyle.Critical)
    56. End If
    59. Else
    60. MsgBox("Der Account Existiert nicht ", MsgBoxStyle.Critical)
    61. End If
    63. Catch ex As Exception
    64. MsgBox("Error! Kp Was ist ")
    66. End Try
    68. -
    69. ---
    70. ----
    72. Das Sollte Euch Eig. Nicht Interessieren.
    73. End Sub
    75. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    77. Dim CheckboxErstellen As New System.IO.StreamWriter("C:\Go Down" + "\Checkbox.Start.dll")
    78. CheckboxErstellen.WriteLine("Checked")
    79. CheckboxErstellen.Close()
    82. Dim Load As String
    83. Dim Checkboxload As New System.IO.StreamReader("C:\Go Down" + "\Checkbox.Start.dll")
    84. Load = Checkboxload.ReadLine
    85. Checkboxload.Close()
    93. If CheckBox1.Checked Then
    95. Dim pw As String
    96. Dim un As String
    98. Dim Passwort As New System.IO.StreamReader("C:\Go Down\saves" + "\Username.dll")
    100. pw = Passwort.ReadLine
    101. Passwort.Close()
    103. Dim Username As New System.IO.StreamReader("C:\Go Down\saves" + "\Passwort.dll")
    105. un = Username.ReadLine
    106. Username.Close()
    109. TextBox1.Text = un.ToString
    110. TextBox2.Text = pw.ToString
    112. End If
    118. End Sub




    So nun Meine Theorie :

    SQL-Abfrage

    1. If My.Computer.....(C:\\Dwd......) text = "On" (< Oder Irgendwas halt) then
    2. Chechbox1.checked
    4. Wenn Checkbox1.checked ist, werden die letzten gepeicherten Benutzerdaten eingetragen und mann kann einfach Einloggen.
    5. 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. :P :P

    Erstmal ist StreamWriter- und Reader für dein Vorhaben ziemlicher Overkill.
    Du kannst folgende Codes:

    VB.NET-Quellcode

    1. Dim x As New StreamReader(y)
    2. Dim z As String = x.ReadLine()
    3. x.Close()
    Durch folgende Einzeiler ersetzen:

    VB.NET-Quellcode

    1. ' schreiben
    2. System.IO.File.WriteAllText(Datei, Inhalt)
    4. ' lesen
    5. Dim x As String = System.IO.File.ReadAllText(Datei)


    Zu deinem allgemeinen Problem:
    Lies die Datei aus und überprüfe, ob ihr Inhalt gleich "Checked" ist.
    Beispiel:

    VB.NET-Quellcode

    1. Dim Load As String = System.IO.File.ReadAllText("C:\Go Down\Checkbox.Start.dll")
    2. CheckBox1.Checked = (Load = "Checked")
    Außerdem solltest du Strings mit "&" verbinden, nicht mit "+". ;)

Facebook
Telefonspende