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:
Registreren
code:
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.
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: