im working on my A2 computing project, and i want to put a login dialog on my system.
so far ive used the template they have given me for the pag and the design.
i want to know how to search the file for the user name and password and where in the code i do all this

code:

---

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    LoginSucceeded = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "password" Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

---

code:

---

Dim strUsername, strPassword as string

Open "text1.text" For Input As #1
Do Until EOF(1)
     Input#1, strUsername, strPassword
     If strUsername = txtUsername And strPassword = txtPassword Then
          'Do stuff if password and username match
          Exit Do
     End If
Loop
Close#1

---

text1.text is the name of the file. do i put the whole path name or just the name of the file?

also what do i wrrite in the text file so it identifies the username and password. so bascially what do i wirte in the text file if the username is Guest and the password is qwerty

Most of the time you need the full name to the file. As for writing the username and password, use comma-separated values (or maybe the pipe | character). I also recommend hashing the password before storing it - you won't need MD5, a simple hash like the one MSN uses to encode e-mail addresses will suffice.

ok i got a few problems, when i type guest, qwerty in the file it doesnt login in.
when i put just guest in the file, i get the error: Run-time error "62"
Input past end of file

when i click debug, the line Input #1, strUsername, strPassword is highlighted. when i put my mouse over strUsername, it ses strUsername = "guest" but when i do it over strPassword it says strPassword""

also the pipe character doesnt work

How do you mean doesn't work, what you are supposed to do is:

make a file with "guest|qwerty" in it
open the file, loop through it, split each LINE with |.
each line will have a user/pass, so you choose the line/user you need and get its pass, then check.

i just wanna test it with the one login info, so i dont need to do the loop and split do i?

what i got in the file is:

guest|qwerty

nothing else

btw if u want the code i have got, it is:

code:

---

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    LoginSucceeded = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "password" Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        frmMainMenu.Show
        Me.Hide
            Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Private Sub Form_Load()
Dim strUsername, strPassword As String

Open "C:\Documents and Settings\Kevish\My Documents\A2 Computing Coursework\login.txt" For Input As #1
Do Until EOF(1)
     Input #1, strUsername, strPassword
     If strUsername = txtUserName And strPassword = txtPassword Then
          'Do stuff if password and username match
          Exit Do
     End If
Loop
Close #1
End Sub

---

Heres an example for you.

quote:

---

Originally posted by raceprouk
Most of the time you need the full name to the file.

---

quote:

---

Originally posted by raceprouk
As for writing the username and password, use comma-separated values (or maybe the pipe | character).

---

quote:

---

Originally posted by Reaper66613
ok i got a few problems, when i type guest, qwerty in the file it doesnt login in.

---

quote:

---

Originally posted by Reaper66613
when i put just guest in the file, i get the error: Run-time error "62"
Input past end of file.
when i click debug, the line Input #1, strUsername, strPassword is highlighted. when i put my mouse over strUsername, it ses strUsername = "guest" but when i do it over strPassword it says strPassword""

---

quote:

---

Originally posted by Reaper66613
also the pipe character doesnt work

---

quote:

---

Originally posted by brian
How do you mean doesn't work, what you are supposed to do is:

---

quote:

---

Originally posted by brian
make a file with "guest|qwerty" in it
open the file, loop through it, split each LINE with |.
each line will have a user/pass, so you choose the line/user you need and get its pass, then check.

---

quote:

---

Originally posted by Matty
Heres an example for you.

---

code:

---

guest,qwerty

---

code:

---

Dim strUsername, strPassword As String

---

code:

---

Dim strUsername As Variant
Dim strPassword As String

---

code:

---

Dim strUsername As String
Dim strPassword As String

---

Note that this doesn't use any heavy string manipulations, nor splits or whatever (and it does close the file when a match is found )
Also note that the login.txt file is expected to be in the following format:

code:

---

guest|qwerty
login2|password2
login3|password3
login4|password4

---

code:

---

Private Sub Command1_Click()

    Dim strPath        As String
    Dim strText        As String
    Dim strMatchSearch As String
    Dim blnMatchFound  As Boolean

    strMatchSearch = txtUsername.Text & "|" & txtPassword.Text
    blnMatchFound = False

    strPath = App.Path
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

    Open strPath & "text.txt" For Input As #1
        Do Until EOF(1) Or blnMatchFound
            Line Input #1, strText
            If strMatchSearch = strText Then blnMatchFound = True
        Loop
    Close #1

    If blnMatchFound Then
        MsgBox "Username/Pass match"
    Else
        MsgBox "Username/Pass not found"
    End If

End Sub

---

omg cookie

thanks, it finally works

cheers to everyone else who posted

i was just sorting out my systme, and i thought about adding an option to create a user. so how would i go about doing this?
would i have to write the information to a file? if so how ?

i have written a code i think i got the basics, but i want to know how to put the information in the file in the format userame|password
the code doesnt work, as in i type in the info and click ok but it just disappears and nothing appears in the txt file. also how do i mask the password characters?

code:

---

Dim Filename As String

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim Username As String
    Dim Password As String
    Username = txtUsername.Text
    Password = txtPassword.Text
    Open Filename For Append As #1
    Write #1, Username, Password
    Close #1
    txtUsername.Text = " "
    txtPassword.Text = " "
    txtUsername.SetFocus
End Sub

Private Sub Form_Load()
    Filename = App.Path & "\login.txt"
End Sub

---

Surely it should be 'Open Filename For Append As #1'?

lol yup that works but i get a " at the beginning of the username and end of password for example:

"123456|blah"

how do i remove it, and how do i mask the password?

[Edit] changed the code in prevous post

quote:

---

Originally posted by Reaper66613
i was just sorting out my systme, and i thought about adding an option to create a user. so how would i go about doing this?
would i have to write the information to a file? if so how ?

i have written a code i think i got the basics, but i want to know how to put the information in the file in the format userame|password
the code doesnt work, as in i type in the info and click ok but it just disappears and nothing appears in the txt file. also how do i mask the password characters?

code:

---

Dim Filename As String

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim Username As String
    Dim Password As String
    Username = txtUsername.Text
    Password = txtPassword.Text
    Open Filename For Append As #1
    Write #1, Username, Password
    Close #1
    txtUsername.Text = " "
    txtPassword.Text = " "
    txtUsername.SetFocus
End Sub

Private Sub Form_Load()
    Filename = App.Path & "\login.txt"
End Sub

---

---

code:

---

Dim Username As String
Dim Password As String
Username = txtUsername.Text
Password = txtPassword.Text
......
Write #1, Username, Password

===>

Dim Username As String
Dim Password As String
Username = txtUsername.Text
Password = txtPassword.Text
......
Write #1, txtUsername.Text, txtPassword.Text

---

quote:

---

Originally posted by Reaper66613
how do mask the password?

---

(and putting a hell of a lot of time in making these kind of posts *Segosa once asked *)

Do not be afraid to put some time in reading helpfiles and understanding them and trying some stuff out. In fact all that is mandatory if you want to learn something and it is even much quicker and more rewarding in the end than asking such stuff on forums.

To more you learn looking things up yourself, to more and quicker you'll learn about that stuff and the more you will be able to look at the right place the next time or to solve a problem by deduction.

thanks again cookie
lol i think ive had enough of your spoon feeding for now
i guess i better use the MSDN from now on

thanks