My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Henk

By: a guest | Feb 5th, 2010 | Syntax: AutoIt | Size: 4.17 KB | Hits: 224 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. Global $ueberschrift = "Passwortsave v1.0"
  2.  
  3.  
  4.  
  5.  
  6. #include <ButtonConstants.au3>
  7. #include <EditConstants.au3>
  8. #include <GUIConstantsEx.au3>
  9. #include <StaticConstants.au3>
  10. #include <WindowsConstants.au3>
  11. #Region ### START Koda GUI section ### Form=C:\Users\user\Desktop\AutoIT\Koda\Forms\Passworttresor.kxf
  12. $Form1 = GUICreate("Form1", 625, 443, 192, 124)
  13. $Label1 = GUICtrlCreateLabel("Label1", 144, 24, 284, 25)
  14. $Input1 = GUICtrlCreateInput("Input1", 56, 104, 249, 21)
  15. $Input2 = GUICtrlCreateInput("Input2", 56, 144, 249, 21)
  16. $Input3 = GUICtrlCreateInput("Input3", 56, 184, 249, 21)
  17. $Input4 = GUICtrlCreateInput("Input4", 56, 224, 249, 21)
  18. $Input5 = GUICtrlCreateInput("Input5", 56, 264, 249, 21)
  19. $Input6 = GUICtrlCreateInput("Input6", 56, 304, 249, 21)
  20. $Input7 = GUICtrlCreateInput("Input7", 56, 344, 249, 21)
  21. $Input8 = GUICtrlCreateInput("Input8", 56, 384, 249, 21)
  22. $Button2 = GUICtrlCreateButton("Speichern", 368, 144, 75, 25, $WS_GROUP)
  23. $Button1 = GUICtrlCreateButton("Speichern", 368, 104, 75, 25, $WS_GROUP)
  24. $Button3 = GUICtrlCreateButton("Speichern", 368, 184, 75, 25, $WS_GROUP)
  25. $Button4 = GUICtrlCreateButton("Speichern", 368, 224, 75, 25, $WS_GROUP)
  26. $Button5 = GUICtrlCreateButton("Speichern", 368, 264, 75, 25, $WS_GROUP)
  27. $Button6 = GUICtrlCreateButton("Speichern", 368, 304, 75, 25, $WS_GROUP)
  28. $Button7 = GUICtrlCreateButton("Speichern", 368, 344, 75, 25, $WS_GROUP)
  29. $Button8 = GUICtrlCreateButton("Speichern", 368, 384, 75, 25, $WS_GROUP)
  30. $Group1= GUICtrlCreateGroup("Passwörter", 48, 80, 273, 337)
  31. GUICtrlCreateGroup("", -99, -99, 1, 1)
  32. $Group2 = GUICtrlCreateGroup("Speichern", 360, 80, 89, 337)
  33. GUICtrlCreateGroup("", -99, -99, 1, 1)
  34. $Button9 = GUICtrlCreateButton("Infos", 504, 200, 75, 25, $WS_GROUP)
  35. $Button10 = GUICtrlCreateButton("Sicherheit des Scriptes", 504, 240, 75, 25, $WS_GROUP)
  36. $Button11 = GUICtrlCreateButton("Beenden", 504, 280, 75, 25, $WS_GROUP)
  37. $Group3 = GUICtrlCreateGroup("Einstellungen", 488, 176, 105, 145)
  38. GUICtrlCreateGroup("", -99, -99, 1, 1)
  39. GUISetState(@SW_SHOW)
  40. #EndRegion ### END Koda GUI section ###
  41.  
  42. While 1
  43.         $nMsg = GUIGetMsg()
  44.         Switch $nMsg
  45.                 Case $GUI_EVENT_CLOSE
  46.                 Exit
  47.                
  48.                 Case $Button11
  49.                         Exit
  50.                        
  51.                 Case $Button10
  52.                         Sleep (100)
  53.                         MsgBox (0, $ueberschrift , "Die Sicherheit deiner Passwörter steht natürlich an erster Stelle. Die Passwörter sind in der Registry in einem verschlüsselten Ordner gespeichert, den man nicht sehen kann. Außerdem werden deine Passwörter verschlüsselt gespeichert. Du musst dir keine Sorgen deswegen machen :) ")
  54.                        
  55.                        
  56.                        
  57.                        
  58.  
  59.         EndSwitch
  60. WEnd
  61.  
  62.  
  63. Exit
  64.  
  65.  
  66.  
  67.  
  68.  
  69. #include <GUIConstants.au3>
  70. $1 = RegRead("HKEY_CURRENT_USER\Software\PWSafe", "alreadyrunned")
  71. $Masterpw = RegRead("HKEY_CURRENT_USER\Software\PWSafe", "Passwort")
  72. If $1 = "" Then
  73.         MsgBox (0, "Willkommen", "Willkommen bei Henks Passwort Safe!")
  74.         $abc = InputBox ("Master Pw", "Bitte geben sie das Master passwort ein,"& @LF &"welches sie bei jedem Start des Safes eingeben müssen.")
  75.         regwrite("HKEY_CURRENT_USER\Software\PWSafe", "Passwort", "REG_SZ", $abc)
  76.         regwrite("HKEY_CURRENT_USER\Software\PWSafe", "alreadyrunned", "REG_SZ","1")
  77. ElseIf $1 = "1" Then
  78.     $Passwort = InputBox ("Passwort abfrage", "Geben sie bitte ihr Master Passwort ein.")
  79.         If $Masterpw = $Passwort Then
  80.         Sleep(1)
  81. Else
  82.         MsgBox (48, "Falsches Passwort!", "Das eingegebene Passwort ist nicht korrekt. Der Safe wird beendet!")
  83.         Exit
  84. EndIf
  85. EndIf
  86.  
  87.  
  88.  
  89.  
  90.  
  91. #Region ### START Koda GUI section ### Form=
  92. $Form1 = GUICreate("Form1", 625, 443, 613, 300);------------mach hier dein gui rein
  93. GUISetState(@SW_SHOW)                          ;------------mach hier dein gui rein
  94. #EndRegion ### END Koda GUI section ###
  95.  
  96.  
  97. While 1
  98.         $nMsg = GUIGetMsg()
  99.         Switch $nMsg
  100.                 Case $GUI_EVENT_CLOSE
  101.                         Exit
  102.  
  103.         EndSwitch
  104. WEnd
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128. #include <GUIConstantsEx.au3>
  129. #include <StaticConstants.au3>
  130. #include <WindowsConstants.au3>
  131. #Region ### START Koda GUI section ### Form=
  132. $Form1 = GUICreate("Form1", 399, 226, 308, 225)
  133. $Label1 = GUICtrlCreateLabel("Label1", 48, 40, 300, 153)
  134. GUISetState(@SW_SHOW)
  135. #EndRegion ### END Koda GUI section ###
  136.  
  137. While 1
  138.         $nMsg = GUIGetMsg()
  139.         Switch $nMsg
  140.                 Case $GUI_EVENT_CLOSE
  141.                         Exit
  142.  
  143.         EndSwitch
  144. WEnd
create new paste | create new version of this paste RAW Paste Data