Char Erstetzung durch *?

button421

Hallo Leute,
ich arbeite gerade an einem Skript für Zattoo...
Er möchte, dass auf Checkboxklick das eingegebene Passwort IN DER LISTVIEW-SPALTE PASSWORT durch Sternchen* ersetzt wird. Ich habe es so probiert:

[autoit]

Func _Passwort_Hide()
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$chars = chr(97) - chr(122)
$replacer = StringReplace($chars,$List[$i],"*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc

[/autoit]

Wobei $chars die ASCII Tabelle darstellen soll und $replacer alles in * erstezen soll. Leider erfüllt dies nicht seinen Zweck...
Wisst ihr, was sich da machen lässt?

Der vollständige Skript

[autoit]

#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================

[/autoit] [autoit][/autoit] [autoit]

$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@ScriptDir & "\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Edit-Test.jpg", 410, 5, 26, 26)
GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Delete-Test.jpg", 450, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
;$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(250)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore

[/autoit] [autoit][/autoit] [autoit]

Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)

[/autoit] [autoit][/autoit] [autoit]

If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account

[/autoit] [autoit][/autoit] [autoit]

Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen

[/autoit] [autoit][/autoit] [autoit]

Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State

[/autoit] [autoit][/autoit] [autoit]

Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions
_Passwort_Hide()
Func _Passwort_Hide()
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$chars = chr(97) - chr(122)
$replacer = StringReplace($chars,$List[$i],"*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc

[/autoit]

MfG button421

blubbstar

$chars = chr(97) - chr(122)

So war das nicht gedacht :D. Eine Forschleife natürlich von 97 bis 122 und nen replace war meine Idee.
Allerdings, nimm einfach die Stringlen des Passworts und mach ne Forschleife von 1 bis Stringlen, und erstelle nen String mit *.

i2c

[autoit]

$sPasswort = "hallo Welt,.?%4&"
$sOutput = StringRegExpReplace($sPasswort, ".", "*")
ConsoleWrite($sOutput& @CRLF)

[/autoit]

button421

Danke, aber ich habe noch ein Problem:
Zattoo will, dass das Skript speichert, welchen State die Checkbox zuletzt hatte und beim nächsten Start entweder Checkt oder nicht Checkt. Ich habe da an IniWrite gedacht...

Code

[autoit]

#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================

[/autoit] [autoit][/autoit] [autoit]

$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@ScriptDir & "\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Edit-Test.jpg", 410, 5, 26, 26)
GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Delete-Test.jpg", 450, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
;$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

If IniRead(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0") Then
;Wenn es nicht gechekt werden soll
EndIf
If IniRead(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","1") Then
GUICtrlSetState($Passwort_Hide,$GUI_CHECKED) ;Geb ihm den State gecheckt!
EndIf

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(250)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore

[/autoit] [autoit][/autoit] [autoit]

Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)

[/autoit] [autoit][/autoit] [autoit]

If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account

[/autoit] [autoit][/autoit] [autoit]

Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen

[/autoit] [autoit][/autoit] [autoit]

Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State

[/autoit] [autoit][/autoit] [autoit]

Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions
Func _Passwort_Hide()
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$chars = chr(97) - chr(122)
$replacer = StringRegExpReplace($Passwort_Input, ".", "*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc

[/autoit]

Meine gebastelte If fängt bei Zeile 80 an und hört bei 85 auf. Nun ist die Checkbox aber immer gecheckt. Was kann ich tun?

Danke

**GtaSpider**

Hallo,

Der letze Parameter von IniRead ist nicht eine Abfrage, sondern der Standardwert falls es ein Fehler gab (z.B. die INI Datei wurde nicht gefunden)
So sollte es klappen:

Spoiler anzeigen

[autoit]

If IniRead(@ScriptDir & "\log.ini", "CHECKBOX", "CHECKED", "0") = "0" Then
;Wenn es nicht gechekt werden soll
Else
GUICtrlSetState($Passwort_Hide, $GUI_CHECKED) ;Geb ihm den State gecheckt!
EndIf

[/autoit]

Gruß
Spider

button421

Leute,
jetzt ist mein Skript so:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer

[/autoit] [autoit][/autoit] [autoit]

Global $inipfad = @ScriptDir & "\log.ini" ;Damit man bei Pfadänderung nicht immer die Befehle wechseln muss

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================
#region Hauptgui -ANFANG-
$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@ScriptDir & "\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Edit-Test.jpg", 410, 5, 26, 26)
;~ GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Delete-Test.jpg", 450, 5, 26, 26)
;~ GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
;~ GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
;~ GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUISetState(@SW_HIDE, $Account_Manager)
#endregion Hauptgui -ENDE-

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

If IniRead(@ScriptDir & "\log.ini", "CHECKBOX", "CHECKED", "0") = "0" Then
;Wenn es nicht gechekt werden soll
Else
GUICtrlSetState($Passwort_Hide, $GUI_CHECKED) ;Geb ihm den State gecheckt!
EndIf

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(250)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore

[/autoit] [autoit][/autoit] [autoit]

Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)

[/autoit] [autoit][/autoit] [autoit]

If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account

[/autoit] [autoit][/autoit] [autoit]

Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen

[/autoit] [autoit][/autoit] [autoit]

Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State

[/autoit] [autoit][/autoit] [autoit]

Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions
Func _Passwort_Hide()
;~ IniWrite($inipfad
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$chars = chr(97) - chr(122)
$replacer = StringRegExpReplace($Passwort_Input, $chars, "*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

Jetzt verschlüsselt er aber nicht die Passwörter, wenn ich die Checkbox klicke...

Chaosmeister

du benutzt auch immer noch deinen alten replacer

$replacer = StringRegExpReplace($Passwort_Input, $chars, "*")

so muss es heißen wie i2c schon beschrieben hat

$replacer = StringRegExpReplace($Passwort_Input, "." , "*")

Chaosmeister

dann kannste dir auch deinen ganzen $char krams sparen

$chars = chr(97) - chr(122)
ergibt von vornerein immer 0 bei mir weil "-" nicht als "bis" sondern als mathematisches minus interpretiert wird
da du aber schön stringREGEXPreplace benutzt kannst du schön "." als pattern verwenden was in den regular expressions als alle zeichen interpretiert wird

hoffe ich

button421

Gut. Mein Skript ist jetzt so:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer

[/autoit] [autoit][/autoit] [autoit]

Global $inipfad = @ScriptDir & "\log.ini" ;Damit man bei Pfadänderung nicht immer die Befehle wechseln muss

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================
#region Hauptgui -ANFANG-
$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@ScriptDir & "\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Edit-Test.jpg", 410, 5, 26, 26)
;~ GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Delete-Test.jpg", 450, 5, 26, 26)
;~ GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
;~ GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
;~ GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUISetState(@SW_HIDE, $Account_Manager)
#endregion Hauptgui -ENDE-

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

If IniRead(@ScriptDir & "\log.ini", "CHECKBOX", "CHECKED", "0") = "0" Then
;Wenn es nicht gechekt werden soll
Else
GUICtrlSetState($Passwort_Hide, $GUI_CHECKED) ;Geb ihm den State gecheckt!
EndIf

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(250)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore

[/autoit] [autoit][/autoit] [autoit]

Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)

[/autoit] [autoit][/autoit] [autoit]

If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account

[/autoit] [autoit][/autoit] [autoit]

Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen

[/autoit] [autoit][/autoit] [autoit]

Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State

[/autoit] [autoit][/autoit] [autoit]

Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions
Func _Passwort_Hide()
;~ IniWrite($inipfad
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$replacer = StringRegExpReplace($Passwort_Input, ".", "*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

Aber da wird immer noch nichts ersetzt...

Chaosmeister

wo kommt denn das "item" in
191 $Split = StringSplit($Item[$i], '|')
her?

button421

Das ist seit Post #10 da. Das gehört zu der "Passwort-Hide" Funktion...
Leider ist Zattoo im Urlaub, daher kann ich ihn nicht fragen...

Chaosmeister

ich bin inzwischen soweit für die hide funktion:

Func _Passwort_Hide()
$count = _GUICtrlListView_GetItemCount($accountlist)
for $i = 1 to $count
$currentitem = _GUICtrlListView_GetItemText($accountlist, 0)
$pw = _GUICtrlListView_GetItemText($accountlist, 0, 1)
$pwnew = StringRegExpReplace($pw,".","*")
_GUICtrlListView_DeleteItem($accountlist, 0)
_GUICtrlListView_InsertItem($accountlist, $currentitem, $count)
_GUICtrlListView_SetItemText($accountlist, $count-1,$pwnew,1)
Next
EndFunc

funktioniert bis jetzt aber nur 1 way
und auch nur für die passwort spalte

und warum der beim unchecken so n mist macht muss ich auch noch rausfinden

Chaosmeister

mal ein leicht abgeänderter gesammt code mit add und edit btns als ersatz für die bilder

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer

[/autoit] [autoit][/autoit] [autoit]

Global $inipfad = @ScriptDir & "\log.ini" ;Damit man bei Pfadänderung nicht immer die Befehle wechseln muss

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================
#region Hauptgui -ANFANG-
$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatebutton("add", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreateButton("edit", 410, 5, 26, 26)
;~ GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreateButton("del", 450, 5, 26, 26)
;~ GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
;~ GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
;~ GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUISetState(@SW_HIDE, $Account_Manager)
#endregion Hauptgui -ENDE-

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

If IniRead(@ScriptDir & "\log.ini", "CHECKBOX", "CHECKED", "0") = "0" Then
;Wenn es nicht gechekt werden soll
Else
GUICtrlSetState($Passwort_Hide, $GUI_CHECKED) ;Geb ihm den State gecheckt!
EndIf

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(250)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore

[/autoit] [autoit][/autoit] [autoit]

Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)

[/autoit] [autoit][/autoit] [autoit]

If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account

[/autoit] [autoit][/autoit] [autoit]

Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen

[/autoit] [autoit][/autoit] [autoit]

Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State

[/autoit] [autoit][/autoit] [autoit]

Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions

[/autoit] [autoit][/autoit] [autoit]

Func _Passwort_Hide()
$count = _GUICtrlListView_GetItemCount($accountlist)
for $i = 1 to $count
$currentitem = _GUICtrlListView_GetItemText($accountlist, 0)
$pw = _GUICtrlListView_GetItemText($accountlist, 0, 1)
$pwnew = StringRegExpReplace($pw,".","*")
$hilf = _GUICtrlListView_DeleteItem($accountlist, 0)
_GUICtrlListView_InsertItem($accountlist, $currentitem, $count-1)
_GUICtrlListView_SetItemText($accountlist, $count-1,$pwnew,1)
;MsgBox(0,$hilf,$currentitem&" currentitem, "&$i &" $i, " & $pw & " pw, " & $count & " count" )
Next
EndFunc

[/autoit]

button421

Hallo, danke erstmal, aber das ist nicht deine Absicht, dass er beim checken den Rest aus der ListView-Spalte entfernt oder?^^
Ich weiß, warum er das mit der Checkbox macht...

[autoit]

If BitAnd(GUICtrlGetState($Checkbox), $GUI_CHECKED) Then
MsgBox(64,"Checkbox","Siehst du!")
EndIf

[/autoit]

Dann muss ich allerding vom GUIEventMode auf GUIGetMsg umschalten... Ich hoffe, das macht ihm nichts^^

Chaosmeister

damit der die anderen spalten nicht löscht musst du noch ein paar

_GUICtrlListView_GetItemText

funktionen hinzufügen

eins für jede spalte und nachher mit

_GUICtrlListView_SetItemText

wieder zusammensetzen
wie die funktionen funktionieren siehst du in der hilfe

komisch ist nur dass der beim zweiten checken der box so n mist damit macht... als würde er die _GUICtrlListView_DeleteItem funktion übersehen -.-

Zattoo

Bis jetzt haben wir das Problem noch nicht gelöst...
hat jemand ne Idee worans liegen könnte?

Hier das komplette Script

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Global $Item, $List

[/autoit] [autoit][/autoit] [autoit]

;====================================================================================================================================
;======================================================| Account Manager - Design |==================================================
;====================================================================================================================================

[/autoit] [autoit][/autoit] [autoit]

$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Edit-Test.jpg", 410, 5, 26, 26)
GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Delete-Test.jpg", 450, 5, 26, 26)
GUICtrlSetOnEvent($Delete_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Import-Test.jpg", 490, 5, 26, 26)
GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Export-Test.jpg", 530, 5, 26, 26)
GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
$Daten_Verschluesseln = GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(250)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerClose()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMinimize()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerMaximize()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Account_ManagerRestore()
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;====================================================================================================================================
;===================================================| Account Manager - Quickleiste |================================================
;====================================================================================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Edit_Account()
MsgBox(1, "Edit", "TestMsgBox zum Editieren")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Delete_Account()
MsgBox(1, "Delete", "TestMsgBox zum Deleten")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Import_Account()
MsgBox(1, "Import", "TestMsgBox zum Importieren")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Export_Account()
MsgBox(1, "Export", "TestMsgBox zum Exportieren")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;====================================================================================================================================
;======================================================| Account Manager - Checks |==================================================
;====================================================================================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $GUI_Disable)
GUICtrlSetState($Passwort_Input, $GUI_Disable)
GUICtrlSetState($EMail_Input, $GUI_Disable)
GUICtrlSetState($Geheimfrage_Input, $GUI_Disable)
GUICtrlSetState($Geheimantwort_Input, $GUI_Disable)
GUICtrlSetState($AddOptions, $GUI_Disable)
GUICtrlSetState($Passwort_Hide, $GUI_Disable)
GUICtrlSetState($Daten_Verschluesseln, $GUI_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)

[/autoit] [autoit][/autoit] [autoit]

If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($ID_Input, $GUI_Enable)
GUICtrlSetState($Passwort_Input, $GUI_Enable)
GUICtrlSetState($EMail_Input, $GUI_Enable)
GUICtrlSetState($Geheimfrage_Input, $GUI_Enable)
GUICtrlSetState($Geheimantwort_Input, $GUI_Enable)
GUICtrlSetState($AddOptions, $GUI_Enable)
GUICtrlSetState($Passwort_Hide, $GUI_Enable)
GUICtrlSetState($Daten_Verschluesseln, $GUI_Enable)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Passwort_Hide()
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|*******|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc

[/autoit]