Problem mit Passwortabfrage

Analyzer

Moin zusammen,

ich habe mir eine Passwortabfrage gebastellt, habe irgendwo ein fehler drin, aber leider bekomme ich dieses nicht behoben.

Kurzer Aufbau:

Es wird in der setting.ini geprüft ob die passwortabfrage aktiv ist oder nicht.

- Wenn nicht aktiv, wird das programm gestartet (in diesem Beispiel wird eine MSGBOX geöffnet) <---- Funzt

- Wenn aktiv, wird das Passwort abgefragt <---- Funzt
- Wenn falsches Passwort, öffnet sich eine MSGBOX mit der möglich zu wiederholen oder abzubrechen <---- Funzt

Mein Probelm:

- Wenn aber Passwort richtig, passiert nix, obwohl eigentlich in diesem Beispiel die MSGBOX geöffnet werden sollte das die Anmeldung erfolgreich war. Warum?

Hier einmal die *.au3

Spoiler anzeigen

PHP

#include <GUIConstants.au3>


Opt("TrayIconHide", 1)
Opt("GUIOnEventMode", 1)
Opt("RunErrorsFatal", 0)
Opt("TrayMenuMode", 1)  ; Traymenü entfernen


Global $iMsgBoxAnswer


GUICreate("Test Passwort", 120, 160)


$Button_1 = GUICtrlCreateButton ("Öffne Passwort",  10, 30, 100)
GUICtrlSetOnEvent(-1, "_passwort")


GUISetOnEvent($GUI_EVENT_CLOSE, "_schliessen")
GUISetState ()


While 1
Sleep(20)
WEnd


Func _passwort()
If IniRead(@ScriptDir & "\settings.ini", "PWaktiv", "Wert", "") = 0 Then
	MsgBox(0, "Passwort deativiert", "Passwortabfrage ist deaktiviert")
Else
	Do
		$passwd = InputBox("Passwort-Check", "Bitte geben Sie Ihr Passwort ein.", "", "*M")

		If $passwd = "" Then
			Exit
		ElseIf $passwd = "Geheim" Then
			MsgBox(0, "Passwort ativiert", "Anmeldung erfolgreich")
		Else
			$iMsgBoxAnswer = MsgBox(53, "Anmeldung fehlgeschlagen!", "Ihr Passwort ist falsch!")
		EndIf
	Until $iMsgBoxAnswer <> 4
	Return $passwd
EndIf
EndFunc
Func _schliessen()
	Exit
EndFunc

Alles anzeigen

Hier einmal die settings.ini

PHP

[PWaktiv]
Wert=1

Danke schon mal für jeden Tip

Mfg

Analyzer

**GtaSpider**

Hallo Analyzer!

Was sucht das Return dadrin? Ist doch keine funktion fazit abbruch!

Der eigentliche fehler lag aber dadrin: If $passwd < 2 Then! Wenn du die länge vln $passwd ermitteln willst geht das mit StringLen!

Hier mal das funktionierende skript:

Code

If IniRead(@ScriptDir & "\settings.ini", "PWaktiv", "Wert", "") = 0 Then
	MsgBox(0, "Passwort deativiert", "Passwortabfrage ist deaktiviert")
Else
	Do
		$passwd = InputBox("Passwort-Check", "Bitte geben Sie Ihr Passwort ein.", "", "*M")
		ConsoleWrite($passwd)
		If StringLen($passwd) < 2 Then
			Exit
		ElseIf $passwd <> "Geheim" Then
			$iMsgBoxAnswer = MsgBox(53, "Anmeldung fehlgeschlagen!", "Ihr Passwort ist falsch!")
		Else
			MsgBox(0, "Passwort ativiert", "Anmeldung erfolgreich")
		EndIf
	Until $iMsgBoxAnswer <> 4
;~ 	Return $passwd
EndIf

Alles anzeigen

Mfg Spider

Analyzer

Moin gtaspider,

Sorry mein Fehler, das ganze wird über eine Funktion aufgerufen, somit ist das schon richtig.

Zudem ist das

If $passwd < 2

die antwort der InputBox wenn man auf Cancel drückt und nicht die längen berechnung! Somit ist das schon richtig!!!

Mfg

Analyzer

**peethebee**

Code

; fixed by peethebee
If IniRead(@ScriptDir & "\settings.ini", "PWaktiv", "Wert", "") = 0 Then
	MsgBox(0, "Passwort deativiert", "Passwortabfrage ist deaktiviert")
Else
	While 1
		$passwd = InputBox("Passwort-Check", "Bitte geben Sie Ihr Passwort ein.", "", "*M")

		If $passwd = "" Then
			Exit
		ElseIf $passwd = "Geheim" Then
			MsgBox(0, "Passwort ativiert", "Anmeldung erfolgreich")
			ExitLoop
		Else
			If MsgBox(53, "Anmeldung fehlgeschlagen!", "Ihr Passwort ist falsch!") = 2 Then ExitLoop
		EndIf
	WEnd
        Return $passwd
EndIf

Alles anzeigen

peethebee

**GtaSpider**

Hallo!

Achso sag das doch dann würde ich das aber nicht mit If $passwd < 2 Then machen sondern mit "If @error Then" <-- muss direkt unter der inputbox stehen!

Mfg Spider

Analyzer

Zitat

Original von peethebee

Code

; fixed by peethebee
If IniRead(@ScriptDir & "\settings.ini", "PWaktiv", "Wert", "") = 0 Then
	MsgBox(0, "Passwort deativiert", "Passwortabfrage ist deaktiviert")
Else
	While 1
		$passwd = InputBox("Passwort-Check", "Bitte geben Sie Ihr Passwort ein.", "", "*M")

		If $passwd = "" Then
			Exit
		ElseIf $passwd = "Geheim" Then
			MsgBox(0, "Passwort ativiert", "Anmeldung erfolgreich")
			ExitLoop
		Else
			If MsgBox(53, "Anmeldung fehlgeschlagen!", "Ihr Passwort ist falsch!") = 2 Then ExitLoop
		EndIf
	WEnd
        Return $passwd
EndIf

Alles anzeigen

peethebee

Danke peethebee,

funzt gut Wenn ich euch net hätte ... :kiss:

Mfg

Analyzer