Danke, Billie.
Ich finde die Hilfe hier wirklich super.
~EDIT~
Billie, ich hatte es nun schon so weit, dass mir die Kategorien in der Passwort löschen Combobox angezeigt wurden,
wie stelle ich es nun ein, dass mir dort die Passwörter angezeigt werden?
Spoiler anzeigen
#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include<array.au3>
$PM_GUI = GUICreate("Passwort Manager", 545, 493, 192, 124)
[/autoit] [autoit][/autoit] [autoit];----Kategorien & Passwort auslesen----;
$Group1 = GUICtrlCreateGroup("Passwort Auswahl", 8, 8, 529, 161)
$PW = GUICtrlCreateLabel("Passwort:", 16, 112, 50, 17)
$PW_OUT = GUICtrlCreateLabel("", 80, 112, 4, 4)
If Not FileExists(@ScriptDir & "\passwords.ini") Then
$KAT = GUICtrlCreateCombo("Kategorie", 72, 32, 185, 25, $cbs_dropdownlist)
$KAT_CH = GUICtrlCreateCombo("Kategorie ", 304, 352, 201, 25)
$PW_CH = GUICtrlCreateCombo("Passwort auswählen", 32, 392, 201, 25)
Else
$sectionnames = IniReadSectionNames(@ScriptDir & "\passwords.ini")
$KAT = GUICtrlCreateCombo("", 72, 32, 185, 25, $cbs_dropdownlist)
$KAT_CH = GUICtrlCreateCombo(" ", 304, 352, 201, 25)
$KAT_CHO = GUICtrlCreateCombo("", 24, 200, 217, 25)
$PW_CH = GUICtrlCreateCombo("", 32, 392, 201, 25)
_ArrayDisplay($sectionnames)
For $i = 1 To $sectionnames[0]
GUICtrlSetData($KAT, $sectionnames[$i], 0)
GUICtrlSetData($KAT_CH, $sectionnames[$i], 0)
GUICtrlSetData($PW_CH, $sectionnames[$i], 0)
GUICtrlSetData($KAT_CHO, $sectionnames[$i], 0)
Next
EndIf
$LOG = GUICtrlCreateLabel("Login:", 16, 72, 33, 17)
$LOG_OUT = GUICtrlCreateLabel("", 80, 72, 4, 4)
$PW_LIST = GUICtrlCreateList("", 264, 24, 265, 123)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;----Passwort hinzufügen----;
$Group2 = GUICtrlCreateGroup("Passwort hinzufügen", 8, 176, 249, 177)
$LOGIN = GUICtrlCreateInput("", 80, 240, 161, 21)
$PASSWORD = GUICtrlCreateInput("", 80, 272, 161, 21)
$PW_ADD = GUICtrlCreateButton("Hinzufügen", 64, 304, 121, 33, $WS_GROUP)
$LOGIN_LAB = GUICtrlCreateLabel("Login:", 16, 242, 33, 17)
$PASSWORD_LAB = GUICtrlCreateLabel("Passwort:", 16, 274, 50, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
[/autoit] [autoit][/autoit] [autoit];----Kategorie hinzufügen----;
$KAT_ADDEN = GUICtrlCreateGroup("Kategorie hinzufügen", 272, 176, 265, 113)
$KAT_NAME = GUICtrlCreateInput("", 288, 200, 233, 21)
$KAT_ADD = GUICtrlCreateButton("Hinzufügen", 344, 240, 121, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;----Passwort löschen----;
$PASSWORD_DELETE = GUICtrlCreateGroup("Passwort löschen", 8, 368, 249, 113)
$PW_DEL = GUICtrlCreateButton("Löschen", 64, 432, 121, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;----Kategorie löschen----;
$KAT_DELETE = GUICtrlCreateGroup("Kategorie löschen", 272, 296, 265, 113)
$KAT_DEL = GUICtrlCreateButton("Löschen", 344, 373, 121, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $PW_ADD
_PWadd()
Case $KAT_ADD
_KATadd()
Case $KAT_DEL
_katdelete()
Case $KAT
$keysvalues = IniReadSection(@ScriptDir & "\passwords.ini", GUICtrlRead($KAT))
_ArrayDisplay($keysvalues)
For $i = 1 To $keysvalues[0][0]
GUICtrlSetData($PW_LIST, $keysvalues[$i][0] & " " & $keysvalues[$i][1])
Next
Case $PW_DEL
_pwdelete()
EndSwitch
WEnd
Func _PWadd()
$readpw = GUICtrlRead($PASSWORD)
$readlog = GUICtrlRead($LOGIN)
$readkat = GUICtrlRead($KAT_CHO)
IniWrite(@ScriptDir & "\passwords.ini", $readkat, $readlog, $readpw)
EndFunc ;==>_PWadd
Func _KATadd()
If GUICtrlRead($KAT_NAME) <> "" Then
IniWrite(@ScriptDir & "\passwords.ini", GUICtrlRead($KAT_NAME), "", "")
$sectionnames = IniReadSectionNames(@ScriptDir & "\passwords.ini")
For $i = 1 To $sectionnames[0]
GUICtrlSetData($KAT_CH, $sectionnames[$i], 0)
GUICtrlSetData($KAT_CHO, $sectionnames[$i], 0)
GUICtrlSetData($KAT, $sectionnames[$i], 0)
Next
EndIf
EndFunc ;==>_KATadd
Func _PWdelete()
IniDelete(@ScriptDir & "\passwords.ini", GUICtrlRead($PW_CH))
MsgBox(0, "", GUICtrlRead($PW_CH))
$sectionnames = IniReadSectionNames(@ScriptDir & "\passwords.ini")
_ArrayDisplay($sectionnames)
GUICtrlSetData($PW_CH, "")
For $i = 1 To $sectionnames[0]
GUICtrlSetData($KAT_CH, $sectionnames[$i], 0)
Next
EndFunc ;==>_PWdelete
Func _KATdelete()
[/autoit] [autoit][/autoit] [autoit]IniDelete(@ScriptDir & "\passwords.ini", GUICtrlRead($KAT_CH))
MsgBox(0, "", GUICtrlRead($KAT_CH))
$sectionnames = IniReadSectionNames(@ScriptDir & "\passwords.ini")
_ArrayDisplay($sectionnames)
GUICtrlSetData($KAT, "")
GUICtrlSetData($KAT_CHO, "")
GUICtrlSetData($KAT_CH, "")
For $i = 1 To $sectionnames[0]
GUICtrlSetData($KAT_CH, $sectionnames[$i], 0)
GUICtrlSetData($KAT_CHO, $sectionnames[$i], 0)
GUICtrlSetData($KAT, $sectionnames[$i], 0)
Next
EndFunc ;==>_KATdelete