Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB6 - Benutzername und Passwort Abfrage

Frage Entwicklung VB for Applications

Mitglied: Freakii

Freakii (Level 1) - Jetzt verbinden

28.07.2009, aktualisiert 20:06 Uhr, 6970 Aufrufe, 11 Kommentare

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:
01.
Private Sub cmdOK_Click() 
02.
    If txtPassword = "password" Then 
03.
        LoginSucceeded = True 
04.
        Me.Hide 
05.
        Form1.Show 
06.
    Else 
07.
        MsgBox "Invalid Password, try again!", , "Login" 
08.
        txtPassword.SetFocus 
09.
        SendKeys "{Home}+{End}" 
10.
    End If 
11.
 
12.
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
Mitglied: Pjordorf
28.07.2009 um 20:11 Uhr
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
Bitte warten ..
Mitglied: Freakii
28.07.2009 um 20:12 Uhr
Das weiß ich schon aber ich will ja das er Beides Prüft! Nicht nur 1 von beiden :P
Bitte warten ..
Mitglied: Pjordorf
28.07.2009 um 20:16 Uhr
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
Bitte warten ..
Mitglied: Freakii
28.07.2009 um 20:21 Uhr
Okai also:
Zuerst soll der Benutzername geprüft werden
danach das passwort
Das txtUsername ist eine TextBox
Ich schicke dir mal den ganzen Formcode

01.
Option Explicit 
02.
 
03.
Public LoginSucceeded As Boolean 
04.
 
05.
Private Sub cmdCancel_Click() 
06.
    'set the global var to false 
07.
    'to denote a failed login 
08.
    LoginSucceeded = False 
09.
    Me.Hide 
10.
End Sub 
11.
 
12.
Private Sub cmdOK_Click() 
13.
    'check for correct password 
14.
    If txtPassword = "password" Then 
15.
        LoginSucceeded = True 
16.
        Me.Hide 
17.
        Form1.Show 
18.
    Else 
19.
        MsgBox "Invalid Password, try again!", , "Login" 
20.
        txtPassword.SetFocus 
21.
        SendKeys "{Home}+{End}" 
22.
    End If 
23.
 
24.
End Sub 
25.
 
26.
Private Sub Form_Load() 
27.
With Combo1 
28.
.AddItem "sa-realplay.de" 
29.
.AddItem "Local Machine" 
30.
.AddItem "TSP Secured" 
31.
End With 
32.
End Sub 
33.
 
34.
Private Sub txtPassword_Change(Index As Integer) 
35.
 
36.
End Sub 
37.
 
38.
Private Sub txtUserName_Change() 
39.
 
40.
End Sub
Bitte warten ..
Mitglied: Pjordorf
28.07.2009 um 20:32 Uhr
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

01.
> Option Explicit 
02.
>  
03.
> Public LoginSucceeded As Boolean 
04.
>  
05.
> Private Sub cmdCancel_Click() 
06.
>     'set the global var to false 
07.
>     'to denote a failed login 
08.
>     LoginSucceeded = False 
09.
>     bLoginContinue=False 
10.
>     Me.Hide 
11.
> End Sub 
12.
>  
13.
> Private Sub cmdOK_Click() 
14.
>     'check for correct password 
15.
>     If txtUsername = "xyzxyzxyz" Then 
16.
>         bLoginContinue = True 
17.
>     Else 
18.
>         MsgBox "Invalid Username, try again!", , "Login" 
19.
>         txtUsername.SetFocus 
20.
>         SendKeys "{Home}+{End}" 
21.
>     End If 
22.
23.
>     If bLoginContinue 
24.
>     If txtPassword = "password" Then 
25.
>         LoginSucceeded = True 
26.
>         Me.Hide 
27.
>         Form1.Show 
28.
>     Else 
29.
>         MsgBox "Invalid Password, try again!", , "Login" 
30.
>         txtPassword.SetFocus 
31.
>         SendKeys "{Home}+{End}" 
32.
>     End If 
33.
>  
34.
>     End If 
35.
>  
36.
> End Sub 
37.
>  
38.
> Private Sub Form_Load() 
39.
> With Combo1 
40.
> .AddItem "sa-realplay.de" 
41.
> .AddItem "Local Machine" 
42.
> .AddItem "TSP Secured" 
43.
> End With 
44.
> End Sub 
45.
>  
46.
> 
Bitte warten ..
Mitglied: Freakii
28.07.2009 um 20:47 Uhr
Jetzt kommt eine Fehlermeldung bei:

bLoginContinue = True

<------------------------------->
Variable nicht diefiniert
Bitte warten ..
Mitglied: Pjordorf
28.07.2009 um 20:52 Uhr
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
Bitte warten ..
Mitglied: Freakii
28.07.2009 um 21:00 Uhr
Ich komm damit garnicht klar ey..
Nächster Fehler.

txtPassword
Argument not Optional
Bitte warten ..
Mitglied: bastla
28.07.2009 um 21:15 Uhr
Hallo Freakii!

Nach
If bLoginContinue
fehlt das "Then".

Grüße
bastla
Bitte warten ..
Mitglied: Pjordorf
28.07.2009 um 21:15 Uhr
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
Bitte warten ..
Mitglied: Freakii
28.07.2009 um 21:16 Uhr
Nee du habs rausgefunden. Dank nem Freund

Erledigt
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Sicherheit
VeraCrypt: Doppelte Passwort Abfrage? (4)

Frage von pelzfrucht zum Thema Sicherheit ...

Datenbanken
gelöst SQL-Abfrage - DISTINCT - letztes Datum (3)

Frage von emeriks zum Thema Datenbanken ...

LAN, WAN, Wireless
BGH-Urteil: Keine Störerhaftung bei gehacktem WLAN-Passwort (1)

Link von kaiand1 zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...