VB6 - Benutzername und Passwort Abfrage

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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 121509

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

Ausgedruckt am: 22.11.2024 um 04:11 Uhr

11 Kommentare

Neuester Kommentar

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

Das weiß ich schon aber ich will ja das er Beides Prüft! Nicht nur 1 von beiden :P

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

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

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
>     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
> 
> 