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
#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
Danke schon mal für jeden Tip
Mfg
Analyzer