Passwort Manager | Einige Probleme.

  • Danke, Billie.

    Ich finde die Hilfe hier wirklich super. :thumbup:

    ~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
    [autoit]

    #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>

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

    $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)

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

    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

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

    $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)

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

    ;----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)

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

    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)

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

    ;----Passwort löschen----;
    $PASSWORD_DELETE = GUICtrlCreateGroup("Passwort löschen", 8, 368, 249, 113)

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

    $PW_DEL = GUICtrlCreateButton("Löschen", 64, 432, 121, 33, $WS_GROUP)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    ;----Kategorie löschen----;
    $KAT_DELETE = GUICtrlCreateGroup("Kategorie löschen", 272, 296, 265, 113)

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

    $KAT_DEL = GUICtrlCreateButton("Löschen", 344, 373, 121, 33, $WS_GROUP)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

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

    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()

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

    EndSwitch
    WEnd

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

    Func _PWadd()
    $readpw = GUICtrlRead($PASSWORD)
    $readlog = GUICtrlRead($LOGIN)
    $readkat = GUICtrlRead($KAT_CHO)
    IniWrite(@ScriptDir & "\passwords.ini", $readkat, $readlog, $readpw)
    EndFunc ;==>_PWadd

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

    Func _KATadd()
    If GUICtrlRead($KAT_NAME) <> "" Then
    IniWrite(@ScriptDir & "\passwords.ini", GUICtrlRead($KAT_NAME), "", "")
    $sectionnames = IniReadSectionNames(@ScriptDir & "\passwords.ini")

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

    For $i = 1 To $sectionnames[0]
    GUICtrlSetData($KAT_CH, $sectionnames[$i], 0)
    GUICtrlSetData($KAT_CHO, $sectionnames[$i], 0)
    GUICtrlSetData($KAT, $sectionnames[$i], 0)
    Next

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

    EndIf
    EndFunc ;==>_KATadd

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

    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

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

    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

    [/autoit]

    Einmal editiert, zuletzt von Kazuto (4. März 2011 um 16:28)

  • [autoit]

    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]
    $sectionpairs= Inireadsection(@scriptdir&"\passwords.ini", $sectionnames[$i])
    for $i= 1 to $sectionpairs[0]
    GUICtrlSetData($KAT_CH, $sectionpairs[$i][1], 0)
    next
    Next
    EndFunc ;==>_PWdelete

    [/autoit]


    So sollte es funktionieren, habs aber noch nicht getestet
    Gruß, Billie

    [align=center]Meine Werke mit der Irrlicht Engine
    AutoIt Picture Viewer Dreidimensionaler Bildbetrachter
    Mr Bubble 3D Neue Interpretation des Flashklassikers Bubble trouble