Guest User

Untitled

a guest
Feb 19th, 2018
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 6.17 KB | None | 0 0
  1. #include <Array.au3>
  2. #include <Crypt.au3>
  3. #include <ButtonConstants.au3>
  4. #include <File.au3>
  5. #include <GUIConstants.au3>
  6. #include <GUIConstantsEx.au3>
  7. #include <GUIListBox.au3>
  8. #include <GUIListView.au3>
  9. #include <StaticConstants.au3>
  10. #include <String.au3>
  11. #include <WindowsConstants.au3>
  12.  
  13.  
  14. #include <SQLite.au3>
  15. #include <SQLite.dll.au3>
  16. Opt("GUIOnEventMode", 1)
  17. Global $Item, $List, $OPass, $Hide, $Param = 0, $dbn
  18.  
  19. ;====================================================================================================================================
  20. ;======================================================| Account Manager - Design |==================================================
  21. ;====================================================================================================================================
  22.  
  23. $Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
  24. GUISetBkColor(0xC0C0C0)
  25. GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
  26. GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
  27. GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
  28. GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
  29. $inpID = GUICtrlCreateInput("ID", 8, 8, 170, 21)
  30. $inpPW = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
  31. $checkOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
  32. ;GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
  33. GUICtrlSetTip(-1, "Optionale Daten")
  34. $Add_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Add.jpg", 370, 5, 26, 26)
  35. GUICtrlSetOnEvent($Add_Account, "_AddAccount")
  36. GUICtrlSetTip(-1, "Account hinzufügen")
  37. $Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Edit.jpg", 410, 5, 26, 26)
  38. ;GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
  39. GUICtrlSetTip(-1, "Ausgewählten Account bearbeiten")
  40. $Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Delete.jpg", 450, 5, 26, 26)
  41. ;GUICtrlSetOnEvent($Delete_Account, "_Delete_Account")
  42. GUICtrlSetTip(-1, "Ausgewählten Account löschen")
  43. $Import_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Import.jpg", 490, 5, 26, 26)
  44. ;GUICtrlSetOnEvent($Import_Account, "_Import_Account")
  45. GUICtrlSetTip(-1, "Accountdaten importieren")
  46. $Export_Account = GUICtrlCreatePic(@ScriptDir & "\Media\Export.jpg", 530, 5, 26, 26)
  47. ;GUICtrlSetOnEvent($Export_Account, "_Export_Account")
  48. GUICtrlSetTip(-1, "Accountdaten exportieren")
  49. $Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Media\Einstellungen.jpg", 645, 3, 30, 30)
  50. ;GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
  51. GUICtrlSetTip(-1, "Einstellungen bearbeiten")
  52. $AccountList = GUICtrlCreateListView("Type|ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
  53. _GUICtrlListView_SetColumnWidth($AccountList, 0, 125)
  54. _GUICtrlListView_SetColumnWidth($AccountList, 1, 115)
  55. _GUICtrlListView_SetColumnWidth($AccountList, 2, 150)
  56. _GUICtrlListView_SetColumnWidth($AccountList, 3, 145)
  57. _GUICtrlListView_SetColumnWidth($AccountList, 4, 140)
  58. _GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
  59. $lblEmail = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
  60. $inpEmail = GUICtrlCreateInput("", 110, 40, 200, 21)
  61. $lblFrage = GUICtrlCreateLabel("Geheimfrage", 30, 68)
  62. $inpFrage = GUICtrlCreateInput("", 110, 65, 200, 21)
  63. $lblAntwort = GUICtrlCreateLabel("Geheimantwort", 30, 93)
  64. $inpAntwort = GUICtrlCreateInput("", 110, 90, 200, 21)
  65. $checkHide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
  66. ;GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
  67. $checkCrypt = GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
  68.  
  69. ;_State($GUI_HIDE)
  70. $Dir = IniRead(@ScriptDir & "\config.ini", "Config", "LastDatabase", -1)
  71. If $Dir <> -1 Then
  72.     If MsgBox(4, "Account Manager", "Möchten sie die Letzte Sitzung fortsetzen?" & @CRLF & '("' & $Dir & '")') = 6 Then
  73.         $OPass = InputBox("Account Manager", "Bitte geben sie das Passwort ein", "", "*", 200, 130)
  74.         ;_Open_Database(1)
  75.     EndIf
  76. EndIf
  77. $Hide = IniRead(@ScriptDir & "\config.ini", "Config", "PWHide", 0)
  78. If $Hide = 1 Then GUICtrlSetState($checkHide, 1)
  79. GUISetState(@SW_SHOW)
  80.  
  81.  
  82. _loadDB() ;Lade oder Erstelle die Datenbank "sqlite"
  83. While 1
  84.     Sleep(250)
  85. WEnd
  86.  
  87. Func _Account_ManagerClose()
  88.     Exit
  89. EndFunc   ;==>_Account_ManagerClose
  90.  
  91. Func _Account_ManagerMinimize()
  92. EndFunc   ;==>_Account_ManagerMinimize
  93.  
  94. Func _Account_ManagerMaximize()
  95. EndFunc   ;==>_Account_ManagerMaximize
  96.  
  97. Func _Account_ManagerRestore()
  98. EndFunc   ;==>_Account_ManagerRestore
  99.  
  100.  
  101.  
  102.  
  103. ;=============================== ACCOUNT MAIN - ADD u. DEL -  ====================================
  104.  
  105.  
  106. Func _AddAccount()
  107.  
  108. ;Lese INput felder aus
  109. Local   $ID = GUICtrlRead($inpID)
  110. Local   $pw = GUICtrlRead($inpPW)
  111. If Not _SQLite_Exec($dbn, "INSERT INTO accounts (login, pw) VALUES ( '" & $ID & "','" & $pw & "');") = $SQLITE_OK Then
  112.      ;ES HAT LEIDER NICHT GEKLAPPT
  113.   Else
  114.     ;ALLES HAT GEKLAPPT      
  115.  EndIf
  116.  
  117.  
  118.  
  119.  
  120.     ;,If _CheckData = True Then ; Prüfe ob alle pflichtfelder ausgefülllt wurden
  121.  
  122.     ;,Else
  123.     ;MsgBox(0, "Fail", "Bitte Daten prüfen")
  124.  
  125.     ;EndIf
  126. EndFunc   ;==>_AddAccount
  127.  
  128.  
  129. Func _DelAccount()
  130.  
  131.     ; iF Selected prüfen ob ein Listview eintrag ausgewählt wurde
  132.  
  133.  
  134. EndFunc   ;==>_DelAccount
  135.  
  136.  
  137.  
  138.  
  139. Func _CheckData(); Diese FUnktion prüft ob ein alle Felder ausgefüllt wurden wenn ja gib TRUE wenn nein FALS
  140.  
  141.  
  142.  
  143. EndFunc   ;==>_CheckData
  144.  
  145.  
  146.  
  147. ;========================================================== DATENBANK MANAGER
  148.  
  149.  
  150.  
  151. Func _loadDB() ; Ladet die Datenbank
  152.     If _SQLite_Startup() <> @error Then
  153.         ConsoleWrite("SQLite konnte nicht gestartet werden!" & @CRLF)
  154.         box("Konnte DB nicht öffnen")
  155.         Exit
  156.     Else
  157.     EndIf
  158.     If Not FileExists("accounts.db") Then ; Datenkbanken anlegen falls noch nicht vorhanden
  159.         $dbn = _SQLite_Open("accounts.db")
  160.         _SQLite_Exec($dbn, "CREATE TABLE accounts (ID INTEGER PRIMARY KEY AUTOINCREMENT, login, pw, frage, antwort);")
  161.         box("DB wurde erstellt!")
  162.     Else
  163.         ;DatenbankLaden
  164.         $dbn = _SQLite_Open("accounts.db")
  165.         box("Loaded!")
  166.     EndIf
  167. EndFunc   ;==>_loadDB
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175. Func _Import()
  176.  
  177.  
  178.  
  179. EndFunc   ;==>_Import
  180.  
  181.  
  182.  
  183. Func _Export()
  184.  
  185. EndFunc   ;==>_Export
  186.  
  187.  
  188.  
  189. ; ============================== GUI REFRESHERS
  190.  
  191. Func lw_Refresh() ; Refresht nach jeder Action die Listview
  192.  
  193.  
  194. EndFunc   ;==>lw_Refresh
  195.  
  196.  
  197. Func box($smsg)
  198.     MsgBox(0, "Bla", $smsg)
  199. EndFunc   ;==>box
Add Comment
Please, Sign In to add comment