Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <Array.au3>
- #include <Crypt.au3>
- #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 <SQLite.au3>
- #include <SQLite.dll.au3>
- Opt("GUIOnEventMode", 1)
- Global $Item, $List, $OPass, $Hide, $Param = 0, $dbn
- ;====================================================================================================================================
- ;======================================================| Account Manager - Design |==================================================
- ;====================================================================================================================================
- $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")
- $inpID = GUICtrlCreateInput("ID", 8, 8, 170, 21)
- $inpPW = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
- $checkOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
- ;GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
- GUICtrlSetTip(-1, "Optionale Daten")
- $Add_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Add.jpg", 370, 5, 26, 26)
- GUICtrlSetOnEvent($Add_Account, "_AddAccount")
- GUICtrlSetTip(-1, "Account hinzufügen")
- $Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Edit.jpg", 410, 5, 26, 26)
- ;GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
- GUICtrlSetTip(-1, "Ausgewählten Account bearbeiten")
- $Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Delete.jpg", 450, 5, 26, 26)
- ;GUICtrlSetOnEvent($Delete_Account, "_Delete_Account")
- GUICtrlSetTip(-1, "Ausgewählten Account löschen")
- $Import_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Import.jpg", 490, 5, 26, 26)
- ;GUICtrlSetOnEvent($Import_Account, "_Import_Account")
- GUICtrlSetTip(-1, "Accountdaten importieren")
- $Export_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Export.jpg", 530, 5, 26, 26)
- ;GUICtrlSetOnEvent($Export_Account, "_Export_Account")
- GUICtrlSetTip(-1, "Accountdaten exportieren")
- $Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Media\Einstellungen.jpg", 645, 3, 30, 30)
- ;GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
- GUICtrlSetTip(-1, "Einstellungen bearbeiten")
- $AccountList = GUICtrlCreateListView("Type|ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
- _GUICtrlListView_SetColumnWidth($AccountList, 0, 125)
- _GUICtrlListView_SetColumnWidth($AccountList, 1, 115)
- _GUICtrlListView_SetColumnWidth($AccountList, 2, 150)
- _GUICtrlListView_SetColumnWidth($AccountList, 3, 145)
- _GUICtrlListView_SetColumnWidth($AccountList, 4, 140)
- _GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
- $lblEmail = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
- $inpEmail = GUICtrlCreateInput("", 110, 40, 200, 21)
- $lblFrage = GUICtrlCreateLabel("Geheimfrage", 30, 68)
- $inpFrage = GUICtrlCreateInput("", 110, 65, 200, 21)
- $lblAntwort = GUICtrlCreateLabel("Geheimantwort", 30, 93)
- $inpAntwort = GUICtrlCreateInput("", 110, 90, 200, 21)
- $checkHide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
- ;GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
- $checkCrypt = GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
- ;_State($GUI_HIDE)
- $Dir = IniRead(@ScriptDir & "\config.ini", "Config", "LastDatabase", -1)
- If $Dir <> -1 Then
- If MsgBox(4, "Account Manager", "Möchten sie die Letzte Sitzung fortsetzen?" & @CRLF & '("' & $Dir & '")') = 6 Then
- $OPass = InputBox("Account Manager", "Bitte geben sie das Passwort ein", "", "*", 200, 130)
- ;_Open_Database(1)
- EndIf
- EndIf
- $Hide = IniRead(@ScriptDir & "\config.ini", "Config", "PWHide", 0)
- If $Hide = 1 Then GUICtrlSetState($checkHide, 1)
- GUISetState(@SW_SHOW)
- _loadDB() ;Lade oder Erstelle die Datenbank "sqlite"
- While 1
- Sleep(250)
- WEnd
- Func _Account_ManagerClose()
- Exit
- EndFunc ;==>_Account_ManagerClose
- Func _Account_ManagerMinimize()
- EndFunc ;==>_Account_ManagerMinimize
- Func _Account_ManagerMaximize()
- EndFunc ;==>_Account_ManagerMaximize
- Func _Account_ManagerRestore()
- EndFunc ;==>_Account_ManagerRestore
- ;=============================== ACCOUNT MAIN - ADD u. DEL - ====================================
- Func _AddAccount()
- ;Lese INput felder aus
- Local $ID = GUICtrlRead($inpID)
- Local $pw = GUICtrlRead($inpPW)
- If Not _SQLite_Exec($dbn, "INSERT INTO accounts (login, pw) VALUES ( '" & $ID & "','" & $pw & "');") = $SQLITE_OK Then
- ;ES HAT LEIDER NICHT GEKLAPPT
- Else
- ;ALLES HAT GEKLAPPT
- EndIf
- ;,If _CheckData = True Then ; Prüfe ob alle pflichtfelder ausgefülllt wurden
- ;,Else
- ;MsgBox(0, "Fail", "Bitte Daten prüfen")
- ;EndIf
- EndFunc ;==>_AddAccount
- Func _DelAccount()
- ; iF Selected prüfen ob ein Listview eintrag ausgewählt wurde
- EndFunc ;==>_DelAccount
- Func _CheckData(); Diese FUnktion prüft ob ein alle Felder ausgefüllt wurden wenn ja gib TRUE wenn nein FALS
- EndFunc ;==>_CheckData
- ;========================================================== DATENBANK MANAGER
- Func _loadDB() ; Ladet die Datenbank
- If _SQLite_Startup() <> @error Then
- ConsoleWrite("SQLite konnte nicht gestartet werden!" & @CRLF)
- box("Konnte DB nicht öffnen")
- Exit
- Else
- EndIf
- If Not FileExists("accounts.db") Then ; Datenkbanken anlegen falls noch nicht vorhanden
- $dbn = _SQLite_Open("accounts.db")
- _SQLite_Exec($dbn, "CREATE TABLE accounts (ID INTEGER PRIMARY KEY AUTOINCREMENT, login, pw, frage, antwort);")
- box("DB wurde erstellt!")
- Else
- ;DatenbankLaden
- $dbn = _SQLite_Open("accounts.db")
- box("Loaded!")
- EndIf
- EndFunc ;==>_loadDB
- Func _Import()
- EndFunc ;==>_Import
- Func _Export()
- EndFunc ;==>_Export
- ; ============================== GUI REFRESHERS
- Func lw_Refresh() ; Refresht nach jeder Action die Listview
- EndFunc ;==>lw_Refresh
- Func box($smsg)
- MsgBox(0, "Bla", $smsg)
- EndFunc ;==>box
Add Comment
Please, Sign In to add comment