Moin Mojn,
liebe Community ich meld mich ma wieder mit einem kleineren Problem..
Ich arbeite seit gestern Abend mit IniWrite und IniRead und find .ini Dateien auszulesen sehr nützlich also hab ich mir mal gedanken gemacht was man alles machen könnte..
und so kam ich auf die Idee eine Art Passwort Tool zu schreiben, mein Problem ist nur das der Eintrag aus Input1 nicht in die Ini übernommen wird, acchhh was red ich überhaupt so lange hier der Quellcode:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 438, 351, 192, 124)
GUISetFont(12, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Password", 136, 80, 241, 28)
$Input2 = GUICtrlCreateInput("Password", 136, 144, 241, 28)
$Label1 = GUICtrlCreateLabel("Password :", 40, 80, 91, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Bestätigen:", 32, 143, 96, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Legen Sie ihr Sysrem Password fest", 128, 16, 258, 24)
$Button1 = GUICtrlCreateButton("Übernehmen", 128, 232, 105, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Information", 264, 232, 113, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$read1 = GuiCtrlRead($Input1)
$read2 = GuiCtrlRead($Input2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If $read1 = $read2 then _correct()
If $read1 <> $read2 then MsgBox(0,"","Passwörter stimmen nicht überein")
Case $Button2
$readini = IniRead( "pw.ini", "Password", "Password", "")
MsgBox(0,"Informationen","Ihr aktuelles Password lautet:" &$readini)
EndSwitch
WEnd
Func _correct()
Iniwrite ("pw.ini","Password","Password",$read1)
MsgBox (0,"","Succesfull")
EndFunc
[/autoit]Das steht in Meiner Ini
und hier so mal nebenbei die Password Controll:
[autoit]$pfad = "pw.ini"
$read = IniRead ($pfad, "Password", "Password", "")
$write = InputBox ("","","")
If $read = $write then MsgBox(0,"","Pw Correct")
If $read <> $write then MsgBox(0,"","Pw False")
Exit
Ich hoffe das jemand meinen Fehler finden & beheben kann
MFG n3v