Hay,
Ich baue gerade ein Kleines Login / Register system
Register geht Perfect nur bei dem Login spinnt es ein bischen da kommt immer :
Bild :
Register Code :
Spoiler anzeigen
Login code :
Spoiler anzeigen
Ich hoffe ihr könnt mir Helfen !
Ich baue gerade ein Kleines Login / Register system
Register geht Perfect nur bei dem Login spinnt es ein bischen da kommt immer :
Bild :
Register Code :
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If My.Computer.FileSystem.DirectoryExists("D:\test\") Then
- Else
- MkDir("D:\test\")
- End If
- If My.Computer.FileSystem.DirectoryExists("D:\test\" + TextBox1.Text) Then
- MsgBox("error - Dieser Account Exestiert bereits !")
- Else
- MkDir("D:\test\" + TextBox1.Text)
- Dim a As New System.IO.StreamWriter("D:\test\" + TextBox1.Text + "\Username.txt")
- a.WriteLine(TextBox1.Text)
- a.Close()
- Dim b As New System.IO.StreamWriter("D:\test\" + TextBox1.Text + "\Password.txt")
- b.WriteLine(TextBox2.Text)
- b.Close()
- End If
- End Sub
Login code :
VB.NET-Quellcode
- Try
- Dim sa As String
- Dim sb As String
- Dim a As New System.IO.StreamReader("D:\Text\" + TextBox3.Text + "\Username.txt")
- sa = a.ReadLine()
- a.Close()
- Dim b As New System.IO.StreamReader("D:\Text\" + TextBox3.Text + "\Password.txt")
- sb = b.ReadLine()
- b.Close()
- If TextBox3.Text = sa.ToString Then
- If TextBox4.Text = sb.ToString Then
- MsgBox("Willkommen ! - " + sa.ToString)
- Else
- MsgBox("Error - Falsches Passwort")
- End If
- Else
- MsgBox("Diese Account Exestier Nicht !")
- End If
- Catch ex As Exception
- MsgBox("Error -" + ex.Message)
- End Try
- End Sub
Ich hoffe ihr könnt mir Helfen !