freakii
Jul 28, 2009, updated at 18:06:02 (UTC)
view8514
view11
0
Goto Top

VB6 - Benutzername und Passwort Abfrage

GermansolvedQuestionVB for ApplicationsDevelopment

Abfrage von Benutzername und Passwort

Hallo Administratoren,

Ich hätte da eine Frage bezüglich Visual Basic 6.0

Es gibt ja schon ein Vorgegebenen Login Dialog.
Geprüft wird dort aber _NUR_ das Passwort.
Nun zu meiner Frage:
In dem Vorgegebenen Dialog prüft er ja nur das Passwort wie man sieht:
Private Sub cmdOK_Click()
    If txtPassword = "password" Then  
        LoginSucceeded = True
        Me.Hide
        Form1.Show
    Else
        MsgBox "Invalid Password, try again!", , "Login"  
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"  
    End If

End Sub
Ich möchte aber das er txtUsername mit prüft.

Ich habe schon alles Versucht und auch gegoogled aber nichts gefunden

Bitte um Hilfe
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 121509

Url: https://administrator.de/contentid/121509

Printed on: April 25, 2024 at 23:04 o'clock

11 Comments
Latest comment
Goto Top
Member: Pjordorf
Pjordorf Jul 28, 2009 at 18:11:26 (UTC)
Goto Top
Hallo,

Gegoogelt und nichts gefunden!

Schon mal das Hanbuch zu VB 6 zu Rate genommen und gelesen? was ist mit der Online Hilfe zu VB 6? Auch mal im MSDN Netzwerk gesucht?

Egal: Tausche einfach txtPassword durch dein txtUsername aus. Fertig

Ich gehe davon aus das du schon weisst wie das gemacht wird.


Peter
Member: Freakii
Freakii Jul 28, 2009 at 18:12:42 (UTC)
Goto Top
Das weiß ich schon aber ich will ja das er Beides Prüft! Nicht nur 1 von beiden :P
Member: Pjordorf
Pjordorf Jul 28, 2009 at 18:16:35 (UTC)
Goto Top
Hallo,

jetzt sollen wir deine Arbeit machen?

Egal:

Wann soll der Benutzernamen geprüft werden?
Wie wird das Textfeld txtUsername gefüllt und wann?
Welchen Code hast du ncoh zum txtUsername?

kein Input (von Dir), kein Output (von uns)

Peter
Member: Freakii
Freakii Jul 28, 2009 at 18:21:05 (UTC)
Goto Top
Okai also:
Zuerst soll der Benutzername geprüft werden
danach das passwort
Das txtUsername ist eine TextBox
Ich schicke dir mal den ganzen Formcode

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  
        LoginSucceeded = True
        Me.Hide
        Form1.Show
    Else
        MsgBox "Invalid Password, try again!", , "Login"  
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"  
    End If

End Sub

Private Sub Form_Load()
With Combo1
.AddItem "sa-realplay.de"  
.AddItem "Local Machine"  
.AddItem "TSP Secured"  
End With
End Sub

Private Sub txtPassword_Change(Index As Integer)

End Sub

Private Sub txtUserName_Change()

End Sub
Member: Pjordorf
Pjordorf Jul 28, 2009 at 18:32:49 (UTC)
Goto Top
Okai also:
Zuerst soll der Benutzername geprüft werden
danach das passwort
OK

Das txtUsername ist eine TextBox
OK

Ich schicke dir mal den ganzen Formcode

> Option Explicit
> 
> Public LoginSucceeded As Boolean
> 
> Private Sub cmdCancel_Click()
>     'set the global var to false  
>     'to denote a failed login  
>     LoginSucceeded = False
>     bLoginContinue=False
>     Me.Hide
> End Sub
> 
> Private Sub cmdOK_Click()
>     'check for correct password  
>     If txtUsername = "xyzxyzxyz" Then  
>         bLoginContinue = True
>     Else
>         MsgBox "Invalid Username, try again!", , "Login"  
>         txtUsername.SetFocus
>         SendKeys "{Home}+{End}"  
>     End If
>
>     If bLoginContinue
>     If txtPassword = "password" Then  
>         LoginSucceeded = True
>         Me.Hide
>         Form1.Show
>     Else
>         MsgBox "Invalid Password, try again!", , "Login"  
>         txtPassword.SetFocus
>         SendKeys "{Home}+{End}"  
>     End If
> 
>     End If
> 
> End Sub
> 
> Private Sub Form_Load()
> With Combo1
> .AddItem "sa-realplay.de"  
> .AddItem "Local Machine"  
> .AddItem "TSP Secured"  
> End With
> End Sub
> 
>
Member: Freakii
Freakii Jul 28, 2009 at 18:47:44 (UTC)
Goto Top
Jetzt kommt eine Fehlermeldung bei:

bLoginContinue = True

<------------------------------->
Variable nicht diefiniert
Member: Pjordorf
Pjordorf Jul 28, 2009 at 18:52:30 (UTC)
Goto Top
Hallo,

Jetzt kommt eine Fehlermeldung bei:

bLoginContinue = True

<------------------------------->
Variable nicht diefiniert

Nun die must du vorher noch Deklarieren.

Ich dachte du weisst das?

Am besten da wo die Variable LoginSucceeded Deklariert wird.

Peter
Member: Freakii
Freakii Jul 28, 2009 at 19:00:00 (UTC)
Goto Top
Ich komm damit garnicht klar ey..
Nächster Fehler.

txtPassword
Argument not Optional
Member: bastla
bastla Jul 28, 2009 at 19:15:06 (UTC)
Goto Top
Hallo Freakii!

Nach
If bLoginContinue
fehlt das "Then".

Grüße
bastla
Member: Pjordorf
Pjordorf Jul 28, 2009 at 19:15:29 (UTC)
Goto Top
Hallo

Ich komm damit garnicht klar ey..

Nächster Fehler.

txtPassword
Argument not Optional

Wo, an welcher Stelle?
mach mal einzelschrittverarbeitung und schau dir die Inhalte der Variable dabei an.

z.b. mit debug.print txtPasswort

Peter
Member: Freakii
Freakii Jul 28, 2009 at 19:16:14 (UTC)
Goto Top
Nee du habs rausgefunden. Dank nem Freund

Erledigt
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 Comments