What's new

Need help login System

  • Thread starter sgt frankieboy
  • Start date
  • Views 290
sgt frankieboy

sgt frankieboy

Enthusiast
Messages
722
Reaction score
139
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
 
X

xKNiiVES

Enthusiast
Messages
590
Reaction score
88
if you want to make a login system (for example, modio has a login system), you need a website.
 
GoldBl4d3

GoldBl4d3

VIP
VIP
Retired
Programmer Mythical Veteran Legendary Veteran
Messages
3,789
Reaction score
1,446
xKNiiVES said:
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

Flex Offender

Enthusiast
Messages
323
Reaction score
17
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..:?
 
T

T3AB4GG3R117

Enthusiast
Messages
604
Reaction score
84
Canadian Piro said:
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()
EndIf
EndSub
End
Class>

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

Flex Offender

Enthusiast
Messages
323
Reaction score
17
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):biggrin:
 
Top Bottom