Need help login System

[sgt frankieboy]

I am making a app(of course) where I want to have a login system with a online database So they can make A new account and signin of course But I already searched the web But I could not find anything about this subject maby I used the wrong words while searching but Maby you guys can help me out with this problem

Thanks in Advanced

 

[xKNiiVES]

if you want to make a login system (for example, modio has a login system), you need a website.

 

[GoldBl4d3]

if you want to make a login system (for example, modio has a login system), you need a website.

That doesn't much help explain a whole lot - Coding Wise

 

[Flex Offender]

Im interested in the same thing, I know that you need to have a website set up with a server or SOMTHING.... PLEASE SOME HELP!, and since we're on the subject, a text chat box?

And besides even if u do make the website + server, how do u do it??
like..

<
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If txtName.Text = LoginName And Password = LoginNamePass Then
Me.Hide()
frmMain.show()
End If
End Sub
End Class>

How do u add this **** to the sites server, realy a full tut or alot of smal helps? heh..:?

 

[T3AB4GG3R117]

Im interested in the same thing, I know that you need to have a website set up with a server or SOMTHING.... PLEASE SOME HELP!, and since we're on the subject, a text chat box?

And besides even if u do make the website + server, how do u do it??
like..

<
PrivateSub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If txtName.Text = LoginName And Password = LoginNamePass Then
Me.Hide()
frmMain.show()
EndIf
EndSub
EndClass>

How do u add this **** to the sites server, realy a full tut or alot of smal helps? heh..:?

Do you mean in PHP?

 

[Flex Offender]

Sorry guys, my last psot was a noob code.. But I did find a REALLLY goodw ay, but tis only for computer stystem, not with the online system like modio.. But I think I'm on to somthing.. Ill post it in a sec..!:thumbup:

create account===

Public Class frmCreate
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
If My.Computer.FileSystem.DirectoryExists("C:\Accounts\") = True Then
Else
MkDir("C:\Accounts\")
End If
If My.Computer.FileSystem.DirectoryExists("C:\Accounts\") + txtName.Text + "\" = True Then
MsgBox("Error, Account is already in use", MsgBoxStyle.Exclamation, "Tag Already In Use")
Else
If txtName.Text = "" Then
MsgBox("Error, Your Account Name must contain atleast one character", MsgBoxStyle.Exclamation, "Error")
Else
If txtPass.Text = "" Then
MsgBox("Error, Your Password must contain atleast one character", MsgBoxStyle.Exclamation, "Error")
Else
MkDir("C:\Accounts\" + txtName.Text)
Dim username As New System.IO.StreamWriter("C:\Accounts\" + txtName.Text + "\" + "Username.txt")
username.write(txtName.Text)
username.close()
Dim password As New System.IO.StreamWriter("C:\Accounts\" + txtName.Text + "\" + "password.txt")
password.write(txtPass.Text)
password.close()
End If
End If
End If
End Sub
Private Sub txtPass_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPass.TextChanged
txtPass.PasswordChar = ("")
End Sub
End Class

login to account===

Public Class frmLogin

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If txtName.Text = "" Then
MsgBox("Error, Invalid Account", MsgBoxStyle.Exclamation, "Wrong User Name")
If My.Computer.FileSystem.DirectoryExists("C:\Accounts\" + txtName.Text + "\") Then
Dim Userread As System.IO.StreamReader = New System.IO.StreamReader("C:\Accounts\" + txtName.Text + "\" + "Username.txt")
Dim Userline As String
Dim Passread As System.IO.StreamReader = New System.IO.StreamReader("C:\Accounts\" + txtName.Text + "\" + "Password.txt")
Dim Passline As String
Do
Passline = txtPass.Text
Userline = userread.readline()
Console.WriteLine(Passline)
Console.WriteLine(Userline)
Loop Until Userline Is Nothing
If txtPass.Text Then
MsgBox("Please insert a password", MsgBoxStyle.Exclamation, "Error")
Else
If Passline = Passread.ReadLine() = True Then
MsgBox("WELCOME " + txtName.Text + "!")
MsgBox("Remember to be on TeamSpeak!", MsgBoxStyle.Information, "HEY YOU!")
End If
End If
Else
MsgBox("That UserName does now exist", MsgBoxStyle.Exclamation, "Error")
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
frmEnter.Show()
End Sub
Private Sub txtPass_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPass.TextChanged
txtPass.PasswordChar = ("")
End Sub
End Class

somthing like that, but you need to create your webste accont first, then you can log onto the program.. this code is just for your comp itself or comp linkage (ik ea school system or somthing)