2. erstelltes Gui Fenster schließt auch 1. erstelltes Gui Fenster

thefreakbpx3

Hallo,

ich hab ein Programm geschrieben, dass wenn jemand auf das Button klickt noch ein Fenster sich öffnet. Dann sind zwei "Guis" offen, aber wenn ich jetzt das Zweite Schließe schließt sich auch das 1. Und wenn ich das 2. nicht schließe reagiert das 1. nicht mehr:

Wie behebe ich das?

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Documents\Downloads\spring-desktop-icons-by-softicons.com\ico\monitor.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
MsgBox(0,"Starten!","Test wird gestartet!",1)
DirCreate(@ScriptDir & "/client")
IniWrite(@ScriptDIr & "/einstellungen.dll", "Info", "Version", "1.0.0.0")
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 305, 199, 481, 357)
GUISetBkColor(0x008080)
$erstellen = GUICtrlCreateButton("Test1", 8, 88, 137, 49, $WS_GROUP)
$speichern = GUICtrlCreateButton("Test2", 8, 144, 137, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Test by Me", 40, 24, 224, 33)
GUICtrlSetFont(-1, 22, 400, 0, "@Dotum")
GUICtrlSetColor(-1,0x000000)
$offnen = GUICtrlCreateButton("Liste öffnen", 152, 88, 137, 49, $WS_GROUP)
$update = GUICtrlCreateButton("Update", 152, 144, 137, 49, $WS_GROUP)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg

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

Case $GUI_EVENT_CLOSE
$namep = "den Test"
$msgbox = Msgbox(36,"Beenden?","Wollen sie " & $namep & " wirklich beenden? Alle bis jetzt nicht gespeicherten Daten gehen verloren!")
If $msgbox = 6 Then
exit
EndIf

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

Case $erstellen
Msgbox(0,"Test","Hi")
Case $speichern

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Speichern ", 443, 60, 590, 550)
GUISetBkColor(0x008080)
$Label1 = GUICtrlCreateLabel("Zweck:", 8, 16, 83, 32)
GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
$passwort = GUICtrlCreateInput("", 96, 16, 209, 28)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Speichern", 312, 8, 129, 41, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "Modern")
GUISetState(@SW_Show)

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

While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit

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

Case $Button1

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

EndSwitch
WEnd

[/autoit]

MFG

**Schnitzel**

Hier mal das Grundgerüst für mehrere Gui's
Versuch doch mal das auf dein Script zu übertragen

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
$gui1 = GUICreate('GUI 1', 500, 300, -1, -1)
$button1 = GUICtrlCreateButton('Aufruf GUI 2', 20, 20, 100, 21)

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

$gui2 = GUICreate('GUI 2', 500, 300, -1, -1)
$button2 = GUICtrlCreateButton('Zurück zu GUI 1', 20, 20, 100, 21)

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

GUISetState(@SW_SHOW, $gui1)

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; window-handle
Case $gui1
Switch $msg[0] ; event/control-handle
Case $button1
GUISetState(@SW_HIDE, $gui1)
GUISetState(@SW_SHOW, $gui2)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $gui2
Switch $msg[0]
Case $button2
GUISetState(@SW_SHOW, $gui1)
GUISetState(@SW_HIDE, $gui2)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $gui1)
GUISetState(@SW_HIDE, $gui2)
EndSwitch
EndSwitch
WEnd

[/autoit]

thefreakbpx3

ich möchte aber gerne das der 1. guifenster offen bleibt wenn das zweite geöffnet wird...
aber danke schonmal

**Schnitzel**

Dann entferne Zeile 16,24 und 27. Also alle Guisetstate für das GUI1

**autoBert**

Hallo thefreakbpx3,

dann verwende statt

[autoit]

GUISetState(@SW_HIDE, $gui1)

[/autoit][autoit]

GUISetState(@SW_DISABLE, $gui1)

[/autoit]

und satt

[autoit]

GUISetState(@SW_SHOW, $gui1)

[/autoit][autoit]

GUISetState(@SW_ENABLE, $gui1)

[/autoit]

mfg autoBert

thefreakbpx3

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Documents\Downloads\spring-desktop-icons-by-softicons.com\ico\monitor.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
MsgBox(0,"Starten!","Passwort Maker wird gestartet!",1)
DirCreate(@ScriptDir & "/Passwörter")
IniWrite(@ScriptDIr & "/einstellungen.dll", "Info", "Version", "1.0.0.0")
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$form1 = GUICreate("Passwort Maker by TheFreakBpx3", 305, 199, 481, 357)
GUISetBkColor(0x008080)
$erstellen = GUICtrlCreateButton("Passwort erstellen", 8, 88, 137, 49, $WS_GROUP)
$speichern = GUICtrlCreateButton("Passwort speichern", 8, 144, 137, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Passwort Maker", 40, 24, 224, 33)
GUICtrlSetFont(-1, 22, 400, 0, "@Dotum")
GUICtrlSetColor(-1,0x000000)
$offnen = GUICtrlCreateButton("Liste öffnen", 152, 88, 137, 49, $WS_GROUP)
$update = GUICtrlCreateButton("Update", 152, 144, 137, 49, $WS_GROUP)

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

#Region ### START Koda GUI section ### Form=
$form2 = GUICreate("Speichern ", 443, 60, 590, 550)
GUISetBkColor(0x008080)
$Label1 = GUICtrlCreateLabel("Zweck:", 8, 16, 83, 32)
GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
$passwort = GUICtrlCreateInput("", 96, 16, 209, 28)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Speichern", 312, 8, 129, 41, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "Modern")

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

GUISetState(@SW_SHOW, $form1)

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1]
Case $form1
Switch $msg
Case $GUI_EVENT_CLOSE
$namep = "Passwort Maker"
$msgbox = Msgbox(36,"Beenden?","Wollen sie " & $namep & " wirklich beenden? Alle bis jetzt nicht gespeicherten Daten gehen verloren!")
If $msgbox = 6 Then
exit
EndIf

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

Case $erstellen
$erstellt = Chr(Random(97, 122)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90))
MsgBox(64,"Passwort!","Erstelltes PW: " & $erstellt)
Case $speichern
Endswitch

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

Case $form2
Switch $msg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_DISABLE, $form1)
GUISetState(@SW_ENABLE, $form2)
Case $Button1

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

$box = MsgBox(36, "Speichern?","Wollen sie das Passwort " & $erstellt & " für den Zweck " & Guictrlread($passwort) & " speichern?")
If $box = 6 Then
IniWrite(@Scriptdir & "/passwörter/passwort.ini",GUIctrlread($passwort), "Passwort",$erstellt)
EndIf

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

Case $offnen
ShellExecute(@ScriptDir & "/passwörter/passwort.ini")
Case $update
FileDelete(@TempDir & "\update.txt")
InetGet("http://www.quizthefreakbpx3.co.de/Pw/update.txt",@TempDir & "\update.txt", 1, 0)
$updatetxt = FileOpen(@TempDir & "\update.txt", 0)
$ver_server = FileReadLine($updatetxt, 1)
$ver_pc = IniRead("einstellungen.dll", "Info", "Version","")
If $ver_server = $ver_pc or $ver_server = "" Then
FileClose($updatetxt)
msgbox(0, "Keine neue Version","Es gibt kein Update!")
Else
$msgbox = MsgBox(36, "Update!", "Es ist ein neues Update verfügbar! Downloaden?")
If $msgbox = 6 Then
Tooltip("Update wird runtergeladen... bitte warten....")
DirCreate(@ScriptDir & "\neue version")
InetGet("http://www.quizthefreakbpx3.co.de/pw/PasswortMaker.exe",@scriptDir & "\neue version\PasswortMaker.exe", 1, 0)
IniWrite("einstellungen.dll", "Info", "Version", $ver_server)
FileClose($updatetxt)
FileDelete(@ScriptDir & "update.txt")
Tooltip("")
msgbox(0,"Update", "Das Programm wurde heruntergeladen! Danke fürs downloaden!")

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

EndIf
EndIf
EndSwitch
EndSwitch
WEnd

[/autoit]

also das ist jetzt mein script,
keine fehlermeldungen, doch ich kann es nicht mit dem X oben rechts schließen und die buttons funktionieren nicht heißt, wenn ich draufklicke passiert nichts...

**autoBert**

Hallo thefreakbpx3,

hier das korrigierte Skript:

Spoiler anzeigen

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Documents\Downloads\spring-desktop-icons-by-softicons.com\ico\monitor.ico
#AutoIt3Wrapper_UseUpx=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
MsgBox(0, "Starten!", "Passwort Maker wird gestartet!", 1)
DirCreate(@ScriptDir & "/Passwörter")
IniWrite(@ScriptDir & "/einstellungen.dll", "Info", "Version", "1.0.0.0")
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Global $erstellt ="Test " ;<==============================

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

#region ### START Koda GUI section ### Form=
$form1 = GUICreate("Passwort Maker by TheFreakBpx3", 305, 199, 481, 357)
GUISetBkColor(0x008080)
$erstellen = GUICtrlCreateButton("Passwort erstellen", 8, 88, 137, 49, $WS_GROUP)
$speichern = GUICtrlCreateButton("Passwort speichern", 8, 144, 137, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Passwort Maker", 40, 24, 224, 33)
GUICtrlSetFont(-1, 22, 400, 0, "@Dotum")
GUICtrlSetColor(-1, 0x000000)
$offnen = GUICtrlCreateButton("Liste öffnen", 152, 88, 137, 49, $WS_GROUP)
$update = GUICtrlCreateButton("Update", 152, 144, 137, 49, $WS_GROUP)

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

#region ### START Koda GUI section ### Form=
$form2 = GUICreate("Speichern ", 443, 60, 590, 550)
GUISetBkColor(0x008080)
$Label1 = GUICtrlCreateLabel("Zweck:", 8, 16, 83, 32)
GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
$passwort = GUICtrlCreateInput("", 96, 16, 209, 28)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Speichern", 312, 8, 129, 41, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "Modern")

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

GUISetState(@SW_SHOW, $form1)

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1]
Case $form1
Switch $msg[0] ;<===========================
Case $GUI_EVENT_CLOSE
$namep = "Passwort Maker"
$msgbox = MsgBox(36, "Beenden?", "Wollen sie " & $namep & " wirklich beenden? Alle bis jetzt nicht gespeicherten Daten gehen verloren!")
If $msgbox = 6 Then
Exit
EndIf

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

Case $erstellen
$erstellt = Chr(Random(97, 122)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90))
MsgBox(64, "Passwort!", "Erstelltes PW: " & $erstellt)
Case $speichern
Case $offnen ;==================================
GUISetState(@SW_DISABLE, $form1)
GUISetState(@SW_SHOW, $form2)

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

EndSwitch

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

Case $form2
Switch $msg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_ENABLE, $form1) ;==================================
GUISetState(@SW_HIDE, $form2) ;==================================
Case $Button1

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

$box = MsgBox(36, "Speichern?", "Wollen sie das Passwort " & $erstellt & " für den Zweck " & GUICtrlRead($passwort) & " speichern?")
If $box = 6 Then
IniWrite(@ScriptDir & "/passwörter/passwort.ini", GUICtrlRead($passwort), "Passwort", $erstellt)
EndIf
;evtl. hier ach beenden
GUISetState(@SW_ENABLE, $form1) ;==================================
GUISetState(@SW_HIDE, $form2) ;==================================

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

Case $offnen
ShellExecute(@ScriptDir & "/passwörter/passwort.ini")
Case $update
FileDelete(@TempDir & "\update.txt")
InetGet("http://www.quizthefreakbpx3.co.de/Pw/update.txt", @TempDir & "\update.txt", 1, 0)
$updatetxt = FileOpen(@TempDir & "\update.txt", 0)
$ver_server = FileReadLine($updatetxt, 1)
$ver_pc = IniRead("einstellungen.dll", "Info", "Version", "")
If $ver_server = $ver_pc Or $ver_server = "" Then
FileClose($updatetxt)
MsgBox(0, "Keine neue Version", "Es gibt kein Update!")
Else
$msgbox = MsgBox(36, "Update!", "Es ist ein neues Update verfügbar! Downloaden?")
If $msgbox = 6 Then
ToolTip("Update wird runtergeladen... bitte warten....")
DirCreate(@ScriptDir & "\neue version")
InetGet("http://www.quizthefreakbpx3.co.de/pw/PasswortMaker.exe", @ScriptDir & "\neue version\PasswortMaker.exe", 1, 0)
IniWrite("einstellungen.dll", "Info", "Version", $ver_server)
FileClose($updatetxt)
FileDelete(@ScriptDir & "update.txt")
ToolTip("")
MsgBox(0, "Update", "Das Programm wurde heruntergeladen! Danke fürs downloaden!")

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

EndIf
EndIf
EndSwitch
EndSwitch
WEnd

[/autoit]

Änderungen habe ich mit ;<========== gekennzeichnet

mfg autoBert

thefreakbpx3

aber wenn ich das starte ist die Funktion Speichern bei den Button Liste öffnen und mit Passwort Speichern passiert nichts bei Update auch nicht hmm...
DANKE ABR!

**autoBert**

nochmal gendert:

Spoiler anzeigen

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Documents\Downloads\spring-desktop-icons-by-softicons.com\ico\monitor.ico
#AutoIt3Wrapper_UseUpx=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
MsgBox(0, "Starten!", "Passwort Maker wird gestartet!", 1)
DirCreate(@ScriptDir & "/Passwörter")
IniWrite(@ScriptDir & "/einstellungen.dll", "Info", "Version", "1.0.0.0")
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Global $erstellt = "Test " ;<==============================

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

#region ### START Koda GUI section ### Form=
$form1 = GUICreate("Passwort Maker by TheFreakBpx3", 305, 199, 481, 357)
GUISetBkColor(0x008080)
$erstellen = GUICtrlCreateButton("Passwort erstellen", 8, 88, 137, 49, $WS_GROUP)
$speichern = GUICtrlCreateButton("Passwort speichern", 8, 144, 137, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Passwort Maker", 40, 24, 224, 33)
GUICtrlSetFont(-1, 22, 400, 0, "@Dotum")
GUICtrlSetColor(-1, 0x000000)
$offnen = GUICtrlCreateButton("Liste öffnen", 152, 88, 137, 49, $WS_GROUP)
$update = GUICtrlCreateButton("Update", 152, 144, 137, 49, $WS_GROUP)

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

#region ### START Koda GUI section ### Form=
$form2 = GUICreate("Speichern ", 443, 60, 590, 550)
GUISetBkColor(0x008080)
$Label1 = GUICtrlCreateLabel("Zweck:", 8, 16, 83, 32)
GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
$passwort = GUICtrlCreateInput("", 96, 16, 209, 28)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Speichern", 312, 8, 129, 41, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "Modern")

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

GUISetState(@SW_SHOW, $form1)

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1]
Case $form1
Switch $msg[0] ;<===========================
Case $GUI_EVENT_CLOSE
$namep = "Passwort Maker"
$msgbox = MsgBox(36, "Beenden?", "Wollen sie " & $namep & " wirklich beenden? Alle bis jetzt nicht gespeicherten Daten gehen verloren!")
If $msgbox = 6 Then
Exit
EndIf

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

Case $erstellen
$erstellt = Chr(Random(97, 122)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90))
MsgBox(64, "Passwort!", "Erstelltes PW: " & $erstellt)
Case $speichern ;<===============================
GUISetState(@SW_DISABLE, $form1)
GUISetState(@SW_SHOW, $form2)
Case $offnen ;<=============================== verschoben ab hier
ShellExecute(@ScriptDir & "/passwörter/passwort.ini")
Case $update
FileDelete(@TempDir & "\update.txt")
InetGet("http://www.quizthefreakbpx3.co.de/Pw/update.txt", @TempDir & "\update.txt", 1, 0)
$updatetxt = FileOpen(@TempDir & "\update.txt", 0)
$ver_server = FileReadLine($updatetxt, 1)
$ver_pc = IniRead("einstellungen.dll", "Info", "Version", "")
If $ver_server = $ver_pc Or $ver_server = "" Then
FileClose($updatetxt)
MsgBox(0, "Keine neue Version", "Es gibt kein Update!")
Else
$msgbox = MsgBox(36, "Update!", "Es ist ein neues Update verfügbar! Downloaden?")
If $msgbox = 6 Then
ToolTip("Update wird runtergeladen... bitte warten....")
DirCreate(@ScriptDir & "\neue version")
InetGet("http://www.quizthefreakbpx3.co.de/pw/PasswortMaker.exe", @ScriptDir & "\neue version\PasswortMaker.exe", 1, 0)
IniWrite("einstellungen.dll", "Info", "Version", $ver_server)
FileClose($updatetxt)
FileDelete(@ScriptDir & "update.txt")
ToolTip("")
MsgBox(0, "Update", "Das Programm wurde heruntergeladen! Danke fürs downloaden!")
EndIf
EndIf ;<=============================== bis hier war der falschen Form zugeordnet
EndSwitch
Case $form2
Switch $msg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_ENABLE, $form1) ;==================================
GUISetState(@SW_HIDE, $form2) ;==================================
Case $Button1

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

$box = MsgBox(36, "Speichern?", "Wollen sie das Passwort " & $erstellt & " für den Zweck " & GUICtrlRead($passwort) & " speichern?")
If $box = 6 Then
IniWrite(@ScriptDir & "/passwörter/passwort.ini", GUICtrlRead($passwort), "Passwort", $erstellt)
EndIf
;evtl. hier ach beenden
GUISetState(@SW_ENABLE, $form1) ;==================================
GUISetState(@SW_HIDE, $form2) ;==================================
EndSwitch
EndSwitch
WEnd

[/autoit]

mfg autoBert

thefreakbpx3

Danke hast mir sehr geholfen, finde es schön,dass es solch engagierte und hilfsbereite leute gibt.