hallo,
da sind noch einige schönheitsfehler drin!
wenn du den filesave dialog benutzt, musst du sicherstellen, das der feste pfad zur ini dann auch eingehalten wird.
d.h. du musst den pfad zur inidatei zur gleichen zeit in die registry oder eine andere datei schreiben und dann beim starten des programms diesen auslesen, um die ini zu prüfen.
#RequireAdmin
#include <File.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WindowsConstants.au3>
$f_prog_dir = "d:\" ;ggf. mittels regread den Pfad ermitteln, es muss ja nicht überall so passen
[/autoit][autoit][/autoit][autoit]If FileExists($f_prog_dir & "\passwort.ini") then
check()
Else
createpw()
EndIf
;~ check() ;wird das noch benötigt?
[/autoit][autoit][/autoit][autoit]Exit
[/autoit][autoit][/autoit][autoit][/autoit][autoit];~ #Funktionen--------------------------------------------------
[/autoit][autoit][/autoit][autoit]Func createpw()
$Form1 = GUICreate("Create Passwort", 280, 83, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 8, 257, 21)
$Button1 = GUICtrlCreateButton("Speichern", 8, 48, 257, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Input1Read = GUICtrlRead( $Input1 )
If $Input1Read="" Then
MsgBox(0,"Save Password","Kein Passwort eingetragen!")
Else
Global $Save_Ort = FileSaveDialog( "Benutzerdaten speichern", $f_prog_dir , "Alle Dateien (*.*)", 0, "passwort.ini")
FileClose( $Save_Ort )
IniWrite( $Save_Ort, "Passwort" ,"key01" , $Input1Read)
GUISetState(@SW_hide)
check()
EndIf
EndSwitch
WEnd
EndFunc
Func check()
$pass = InputBox ("Prüfe Password BETA 1", "Bitte trage hier dein Passwort ein!","","*",250,130)
If IniRead ($f_prog_dir & "\passwort.ini","Passwort","key01","") = $pass Then
SoundPlay($f_prog_dir & "start.mp3")
MsgBox(0,"Save Password", "Sie haben sich erfolgreich als " & @UserName & " eingeloggt!")
SoundPlay($f_prog_dir & "Media\standart.mp3")
Else
$msgbox=MsgBox (1,"Save Password BETA 1" , "Falsche Antwort!" & @CRLF & "Nochmal versuchen?")
If $msgbox=2 Then
Exit
EndIf
EndIf
EndFunc
achtung, ich habe die pfade für mich angepasst!
gruß gmmg