DevFly, das löschen/öffnen wollte ich umgehen, wollte entweder ändern oder öffnen/verstecken und zu dem filereadtoarray, schau ich mir gleich ma an, poste dann mein ergebnis
name22, Ja, mach ich auch sonst in scipts, aber wie setz ich das um? so wies bei mir ist, gehts nicht..
Beiträge von Zattoo
-
-
ich bin doch blöd!, löschen/neu machen xD, das is doch kla... xD
Ja ok danke, ist es auch möglich die Gui in zu verändern, das man das ListView nach unten verschiebt und und oben checkboxen erscheinen, schlecht erklärt.. aber es geht grad nicht besser
PS: das #cs/#ce'te ist das 2. guiSpoiler anzeigen
[autoit]#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit];====================================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================$Account_Manager = GUICreate("Account Manager", 600, 340, -1, -1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 160, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 176, 8, 140, 21)
$AddOptions = GUICtrlCreateCheckbox("", 322, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
$Add_Account = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Add.jpg", 345, 8, 56, 21)
GUICtrlSetOnEvent($Add_Account, "_Add_Account")
$Einstellungen = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Einstellungen.jpg", 567, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 600, 280, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 110)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 110)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 125)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 125)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 125)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
;$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
GUICtrlCreateCheckbox("Passwörter anzeigen", 480, 317)
GUICtrlCreateCheckbox("Daten verschlüsseln", 360, 317)
GUISetState(@SW_SHOW, $Account_Manager)#cs
[/autoit] [autoit][/autoit] [autoit]
;====================================================================================================================================
;===================================================| Account Manager - 2 Design |===================================================
;====================================================================================================================================$Account_Manager2 = GUICreate("Account Manager", 600, 440, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
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")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 160, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 176, 8, 140, 21)
$AddOptions = GUICtrlCreateCheckbox("", 322, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
$Add_Account = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Add.jpg", 345, 8, 56, 21)
GUICtrlSetOnEvent($Add_Account, "_Add_Account")
$Einstellungen = GUICtrlCreatePic(@DesktopDir & "\Account Manager\Einstellungen.jpg", 567, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 135, 600, 280, -1)
GUICtrlCreateListViewItem("testid|testpasswort|testemail|testgeheimfrage|testgeheimantwort", $AccountList)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 110)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 110)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 125)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 125)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 125)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
;$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötigGUICtrlCreateCheckbox("", 16, 53, 17, 17) ;Add E-Mail
[/autoit] [autoit][/autoit] [autoit]
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 40, 55, 78, 17)
$EMail_Input = GUICtrlCreateInput("", 120, 53, 201, 21)
GUICtrlCreateCheckbox("", 16, 81, 17, 17) ;Add Geheimfrage
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 40, 83, 64, 17)
$Geheimfrage_Input = GUICtrlCreateInput("", 120, 80, 201, 21)
GUICtrlCreateCheckbox("", 16, 109, 17, 17) ;Add Geheimantwort
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 40, 109, 75, 17)
$Geheimantwort_Input = GUICtrlCreateInput("", 120, 107, 201, 21)
GUISetState(@SW_HIDE, $Account_Manager2)
#ce
While 1
Sleep(250)
WEndFunc _Account_ManagerClose()
[/autoit] [autoit][/autoit] [autoit]
ConsoleWrite("KeyGen Close" & @CRLF)
Exit
EndFuncFunc _Account_ManagerMinimize()
[/autoit] [autoit][/autoit] [autoit]
EndFuncFunc _Account_ManagerMaximize()
[/autoit] [autoit][/autoit] [autoit]
EndFuncFunc _Account_ManagerRestore()
[/autoit] [autoit][/autoit] [autoit]
EndFuncFunc _Add_Account()
[/autoit] [autoit][/autoit] [autoit]
$Datei = FileOpen("3hD29sWpOe9mNd7.kgj", 1)
$String = GUICtrlRead($ID_Input) & ":" & GUICtrlRead($Passwort_Input) ;& ":" & GUICtrlRead($EMail_Input) & ":" & GUICtrlRead($Geheimfrage_Input) & ":" & GUICtrlRead($Geheimantwort_Input)$Text = _StringEncrypt(1, $String, "y#h0O", 3)
[/autoit] [autoit][/autoit] [autoit]If $Datei = -1 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Account Manager - Fehler", "Fehler: Account hinzufügung ist fehlgeschlagen")
EndIfFileWrite(@ScriptDir & "\3hD29sWpOe9mNd7.kgj", $Text & @CRLF)
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account wurde erfolgreich hinzugefügt")FileClose($Datei)
[/autoit] [autoit][/autoit] [autoit]
EndFuncFunc _Einstellungen()
[/autoit] [autoit][/autoit] [autoit]
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFuncFunc _Check_AddOptions()
[/autoit]
If GUICtrlRead($AddOptions) = 1 Then
GUISetState(@SW_HIDE, $Account_Manager)
GUISetState(@SW_SHOW, $Account_Manager2)
msgbox(1,"Mit Optionen","anscheinend gings net")
ElseIf GUICtrlRead($AddOptions) = 4 Then
GUISetState(@SW_SHOW, $Account_Manager)
GUISetState(@SW_HIDE, $Account_Manager2)
msgbox(1,"Ohne Optionen","anscheinend gings net")
EndIf
EndFunc -
N'abend,
ich bin grad an meinem neuen Projekt und bekomme es einfach nicht hin, das 1 Gui geschlossen wird und gleichzeitig eine andere öffnet (oder das die 1 GUI zur anderen wird.... (per Checkbox, was ich aber schon umgesetztz habe)
und wie bekomme ich es hin zb ein Textdokument auszulesen und in ein ListView (Tabelle [die Autoit Tabelle -> ListView]) eingetragen wird
MFG und DANKE