Problem med password

- Skriver du peter med stort P ??
- Ellers så prøv med:
user = false
pass = false

If txtuser.text = \"Peter\" then
  user = true
end if
if txtpass.text = \"Peter\" then
  pass = true
end if

if (user AND pass) then
  \' Begge SKAL være sande for at fortsætte)
  frmmain.show
else
  msgbox(\"Problemchild, you must enter a legal username and password\")
end if

siaa >> Her er to små eksempler på login. :)

\'koden her kan du indtaste UserName og Password som du vil eks: pEtEr
Private Sub Command1_Click()
Dim strUser As String, strPass As String

strUser = \"peter\" \'her ender du Brugernavn
strPass = \"peter\" \'her ender du Adgangskode

If LCase(txtuser.Text) = LCase(strUser) And LCase(txtpass.Text) = LCase(strPass) Then
frmmain.Show
Else
MsgBox (\"Indtastet password eller username er ugyldigt forsøg venligst igen\")
End If

End Sub

\'koden her skal du indtaste UserName og Password med store og små bukstaver eks: PeteR
Private Sub Command2_Click()
Dim strUser As String, strPass As String

strUser = \"PeteR\" \'her ender du Brugernavn
strPass = \"PeteR\" \'her ender du Adgangskode

If txtuser.Text = strUser And txtpass.Text = strPass Then
frmmain.Show
Else
MsgBox (\"Indtastet password eller username er ugyldigt forsøg venligst igen\")
End If

End Sub

Hejsa

Såvidt jeg kan se så er fejlen den at pass skal være false før den kan komme ind i den if sætning der giver adgang til frmMain.

Det du skal rette er således at frmmain.show kun bliver kaldt i det øjeblik pass=true and user = true.

Private function Login (kode as string, bruger as string) as boolean
dim user as boolean
dim Pass as boolean

  If bruger = \"Peter\" Then
    user = True
  else
    msgbox\"Forkert brugernavn\",vbexclamation

  If kode = \"Peter\" Then pass = True






If pass = False Then
  MsgBox (\"Indtastet password eller username er ugyldigt forsøg venligst igen\")
  login = 0
  If user = True Then login = login + 1
  If pass = True Then login = login + 1
  If login = 2 Then
  frmmain.Show
End If

ooooops

min pointe er at din IF-sætning if pass = false giver adgang til frmMain.show, hvilket den ikke skal. Så det er bare din IF-sætning der er forkert.

p.s.

Har ikke pt. tid til at gøre koden færdig

Christian

Lige en svag lille kommentag fra mig. men det der er ikke en god måde at beskytte noget på.. man kan alt for let gå uden om den kode der.. i skal bruge Kryptering hvi i vil lave noget der holder...

Du kan også gøre følgende:

If ucase(txtuser.Text) = ucase(\"Peter\") Then user = True
If ucase(txtpass.Text) = ucase(\"Peter\") Then pass = True

If pass = False Then
MsgBox (\"Indtastet password eller username er ugyldigt forsøg venligst igen\")
login = 0
If user = True Then login = login + 1
If pass = True Then login = login + 1
If login = 2 Then

frmmain.Show
End If
End If
End Sub

Det jeg har gjort er at sætte UCASE ind, hvilket gør at et ord altid vil være med STORT...

Prøv den...

/akExpert