text opslaan

Status
Niet open voor verdere reacties.

wakmen

Terugkerende gebruiker
Lid geworden
3 jun 2011
Berichten
1.352
Ik heb een programma gemaakt waarmee je je kan aanmelden en registreren.
De code ik ik heb gebruik is

Aanmelden
Code:
Code:
If TextBox1.Text = "" Then
            MsgBox("Vul u gebruikernaam in!", MsgBoxStyle.Critical)
        Else
            If My.Computer.FileSystem.DirectoryExists(" C:\ACCOUNTS\" + TextBox1.Text + "\") Then
                Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "USERNAME.TXT")
                Dim userline As String
                Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "PASSWORD.TXT")
                Dim PASSLINE As String
                Do
                    PASSLINE = TextBox2.Text
                    userline = USERREAD.ReadLine
                    Console.WriteLine(PASSLINE)
                    Console.WriteLine(userline)
                Loop Until userline Is Nothing
                If TextBox2.Text = "" Then
                    MsgBox("Vul u wachtwoord in", MsgBoxStyle.Critical)
                Else
                    If PASSLINE = PASSREAD.ReadLine() = True Then
                        MsgBox("U bent aangemeld " + TextBox1.Text)
                        Form3.Show()
                        Me.Close()
                    End If
                End If
            Else
                MsgBox("U gebruikernaam/wachtwoord is fout!Of bestaant deze gebruikernaam niet!", MsgBoxStyle.Critical)
            End If
End If

Registreren
code:
Code:
If My.Computer.FileSystem.DirectoryExists(" C:\ACCOUNTS\") = True Then
        Else
        End If
        If TextBox1.Text = "" Then
            MsgBox("U moet een gebruikernaam kiezen", MsgBoxStyle.Critical)
        Else
        End If

        If TextBox2.Text = "" Then
            MsgBox("U moet u wachtwoord kiezen", MsgBoxStyle.Critical)
        Else
            MkDir("C:\ACCOUNTS\" + TextBox1.Text)
            Dim username As New System.IO.StreamWriter("C:\ACCOUNTS\" + TextBox1.Text + "\" + "username.txt")
            username.Write(TextBox1.Text)
            username.Close()
            Dim password As New System.IO.StreamWriter("C:\ACCOUNTS\" + TextBox1.Text + "\" + "password.txt")
            password.Write(TextBox2.Text)
            password.Close()
            MsgBox("Gebruikernaam aangemaakt", MsgBoxStyle.Information, "")
        End If

Je gebruikernaam en wachtwoord word dus opgeslagen in " C:\ACCOUNTS\"

Elke gebruiker die zeg aanmeld moet zijn eigen pagina hebben.
EN ik wil als er iemand in zijn pagina wat text schrijft dan word de text opgeslagen in "C:\ACCOUNTS\Text gebruikers" maar ik weet de code daarvoor niet.
En de code om voor iedereen een nieuwe pagina aan te maken.
 
Laatst bewerkt door een moderator:
Wat is niet veilig?bedoel je dat de code in C:\ACCOUNTS\" word opgeslagen?

En ik weet niet hoe je dat moet doen code-tags gebruikt voor code het is paar keer gelukt maar verder lukt het niet! :(
 
Ja, dat je alles gewoon als plain text opslaat is natuurlijk niet veilig.

Codetags: Selecteer code, klik op het #-knopje.
 
Maar het hoeft niet veilig te zijn want ik leer gewoon programmeren en je kan het via settings doen maar dat weet ik niet hoe dat moet.
 
je kunt ook gebruik maken van het register. Om het echt te leren zou ik ook de ini aanraden. Het heeft mij in het verleden veel geholpen. :)
 
Ja ik heb de link bekeken.
Maar versta het niet echt waar voor het is bedoeld. :eek:
 
Je weet waar configuratiebestanden voor dienen?
 
Dan snap je dus niet wat configuratiebestanden zijn.

Je kunt informatie schrijven en later weer teruglezen uit zo'n bestand.
 
Het is wel een textbox!
Je schrijft er wat tekt in en je klik op oke dan word het automatisch opgeslagen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan