Visual Basic Forum

Ap0_ · Verfasst am: 10.08.2007, 12:33

Hallo Leute ich arbeite seit 2 tagen mit VB6 Enterprise und ja habe mir da mal die ganzen tuts für einsteiger angesehn echt nice, und tja nun zu meinem Problem ich habe eine pw abfrage gebastelt und ja wenn ich das richtige pw eingebe funktioniert das, wenn ich das falsche pwd gleich danach eingebe bekomme ich nen Laufzeit fehler, starte ich das programm neu und gebe das falsche pwd ein funktioniert das, gebe ich danach wieder das richtige pwd ein bekomnm ich wieder laufzeit fehler.

Nun meine frage was muss ich da ändern das das ganze funktioniert.

Hier mal der Source Code

[code]Private Sub cmd_ok_Click()
Dim login As String

For i = 1 To 100000 Step 1
pb1.Value = pb1.Value + 1
Next i

login = txt_eingabe.Text
If txt_eingabe.Text = "" Then
MsgBox "Du musst ein Passwort eingeben!"
End If

If login = "xtc" Then
lbl_ausgabe.Caption = "Login Sucessfully!"
lbl_ausgabe.ForeColor = &HFF00&
Image3.Visible = True
Else
lbl_ausgabe.ForeColor = &HFF&
lbl_ausgabe.Caption = "Login failed!"
MsgBox "Du hast ein falsches Passwort eingegeben!"
End If

End Sub

Private Sub Form_Load()
Dim Time_Open As Byte
End Sub
[/code]

Edit by Bahamut: Bitte inzukunft "[vb]"-Tags statt "[code]" verwenden
_________________

Bahamut_ · « Moderator » Anmeldedatum: 12.12.2006 Beiträge: 250

[code]
Private Sub cmd_ok_Click()

For i = 1 To 100000 Step 1
pb1.Value = i 'Hier war der Fehler
Next i

If txt_eingabe.Text = "" Then
MsgBox "Du musst ein Passwort eingeben!"
Elseif txt_eingabe.Text = "xtc" Then
lbl_ausgabe.Caption = "Login Sucessfully!"
lbl_ausgabe.ForeColor = &HFF00&
Image3.Visible = True
Else
lbl_ausgabe.ForeColor = &HFF&
lbl_ausgabe.Caption = "Login failed!"
MsgBox "Du hast ein falsches Passwort eingegeben!"
End If

End Sub
[/code]

Probiers mal so, ich denke deine Progressbar ist bei nächsten Durchlauf einfach über den maximalen Wert von 100000 gegangen. So wird sie bei erneutem Durchlaufen wieder zurückgesetzt. Außerdem hab ich noch die If-Schleife überarbeitet, aber das ist Nebensache ^^
_________________
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/

Ap0_ · Verfasst am: 10.08.2007, 14:04

danke funktioniert nun wunderbar, wie mach ich nun das ganze wenn der login erfolgreich ist, das man dann auf einen link weitergeleitet wird, also zum beispiel auf google.at
_________________

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

http://www.activevb.de/tipps/vb6tipps/tipp0162.html

damit wird der standart browser mit vorgegebener internet adresse gestartet