Nach dem Aufruf einer Schleife wieder zurück in die GUI

daMeier

Hallo,

ich lese schon seit eingier Zeit in diesem Forum, habe auch bereits einige Hilfe hier gefunden und kleinere Scripte geschrieben. Leider sitze ich aktuell an einem Problem und komme nicht weiter.

Grundsätzlich habe ich eine kleine GUI gebaut, die Text anzeigt und 3 Button zur Verfügung stellt.

Button1 führt weiteren Code mit MSGBoxen und Schleifen usw. aus.
Button2 ebenfalls, aber anderen Code
Button3 Beendet das ganze Programm

Wenn ich Button 1 oder 2 drücke und an einem Punkt des Code dann "Exit" auslöse, endet nicht nur dieser Code sondern auch die GUI.

Ich würde gerne dann wieder in die GUI springen, die sogar bis dahin noch offen im Hintergrund steht. Auch wenn der Code von Button 1 oder 2 fehlerfrei fertig ausgeführt ist, schließt sich alles auch die GUI, die möchte ich aber stehen lassen und nur über ihren Button3 beenden.

Könnt ihr mir weiter helfen?

Gruß

**alpines**

Ohne Code den du uns zeigen kannst, wie du es bisher geskriptet hast, können wir nur ins Blaue hinein raten.
Im Regelfall sind die GUIs ja mit Switch-Cases aufgebaut und da genügt es, den Code der bei der Ausführung eines Buttons läuft "auslaufen" zu lassen.

Wenn du am Ende diesen Codes kein Exit hast, so landest du auch wieder in der While-Schleife für die GUI-Switch-Case-Abfrage.

Zeitriss

Hi,

Vielleicht konnen dir die Befehle Return oder Exitloop etwas helfen (s. Hilfe).
Ansonsten wäre es hilfreich dein Script zu kennen.
[spoiler=Beispiel Return, Exitloop]

AutoIt: Beispiel

#include <GUIConstantsEx.au3>
#include<MsgBoxConstants.au3>
Opt("GUIOnEventMode", 1)
$hGUI_Main = GUICreate("Main GUI", 320, 30)
$idButton_1 = GUICtrlCreateButton("Button1", 5, 4, 100, 22)
$idButton_2 = GUICtrlCreateButton("Button2", 110, 4, 100, 22)
$idButton_3 = GUICtrlCreateButton("Button3", 215, 4, 100, 22)
GUICtrlSetOnEvent($idButton_1, "_Button1")
GUICtrlSetOnEvent($idButton_2, "_Button2")
GUICtrlSetOnEvent($idButton_3, "_Button3")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Button3")
GUISetState(1, $hGUI_Main)
While sleep(1000); Tu nichts
WEnd


Func _Button1(); Mit Exitloop
   While 1
	  MsgBox(BitOR($MB_OK, $MB_TOPMOST), "Würfeln","Zufällige Zahl zwischen 1-6: " & Random(1,6,1))
	  If MsgBox(BitOR($MB_YESNO, $MB_TOPMOST), ,"","Fortfahren?") = $idNO Then exitloop
   Wend
EndFunc


Func _Button2(); Mit Return
   If MsgBox(BitOR($MB_YESNO, $MB_TOPMOST), "Meldung","Meldung 1 von 5" & @crlf & "Fortfahren?") = $idNO Then Return
   If MsgBox(BitOR($MB_YESNO, $MB_TOPMOST), "Meldung","Meldung 2 von 5" & @crlf & "Fortfahren?") = $idNO Then Return
   If MsgBox(BitOR($MB_YESNO, $MB_TOPMOST), "Meldung","Meldung 3 von 5" & @crlf & "Fortfahren?") = $idNO Then Return
   If MsgBox(BitOR($MB_YESNO, $MB_TOPMOST), "Meldung","Meldung 4 von 5" & @crlf & "Fortfahren?") = $idNO Then Return
   If MsgBox(BitOR($MB_YESNO, $MB_TOPMOST), "Meldung","Meldung 5 von 5" & @crlf & "Fortfahren?") = $idNO Then Return
EndFunc


Func _Button3()
   exit
EndFunc

Alles anzeigen

[/spoiler]
Return bricht Funktionen ab.
Exitloop bricht Schleifen ab.

mfg
Zeitriss

daMeier

Hey,

ja, der Code könnte helfen... Hatte ich auch vor. Hab ich aber vergessen.

AutoIt

; Übergreifende Variablen erstellen
Local $IPAdresse
Local $PfadtxtDatei
Local $PfadLogDatei
Local $CMD
Local $var
Local $msg
Local $Ping
Local Const $varFileSelectFolder = ""


; Hier beginnt das Programm
GUICreate("Windows Update Stand prüfen", 400, 500)
$Label = GUICtrlCreateLabel("Dieses Programm, prüft einen oder mehrere Arbeitsplätze (aufgelistet in einer txt-Datei) über das Netzwerk auf ihren Windows Update stand." &@CRLF& "" &@CRLF& "***************************************************************************************" &@CRLF& "Dazu wird das Tool Microsoft Baseline Security Analyzer (MBSA) verwendet und muss vorab auf dem ausführenden Arbeitsplatz installiert werden." &@CRLF& "" &@CRLF& "- Auf den zu prüfenden Arbeitsplätzen muss der Dienst RemoteRegistry (Remoteregistrierung) auf Automatisch gestellt und gestartet sein." &@CRLF& "- Der Benutzer (Administrator) muss mit einem bekannten Kennwort anglegt und aktiviert sein." &@CRLF& "" &@CRLF& "***************************************************************************************" &@CRLF& "" &@CRLF& "Wählen Sie nun, ob Sie einen geziehlten Arbeitsplatz prüfen oder anhand einer txt-Datei mehrere Arbeitsplätze prüfen wollen." &@CRLF& "" &@CRLF& "" &@CRLF& "WICHTIG !!! Diese Programm muss als Administrator ausgeführt werden!!!", 25, 25, 350, 300)
$Button1 = GUICtrlCreateButton("Einen Arbeitsplatz prüfen", 25, 320, 130, 30)
$Button2 = GUICtrlCreateButton("Mehrere Arbeitsplätze prüfen", 25, 360, 150, 30)
$Button3 = GUICtrlCreateButton("Beenden", 285, 445, 90, 30)


GUISetState()
   while 1
	  $msg = GUIGetMsg()
	  Select
		 Case $msg = -3
			Exit
; Drücken des Button "Einen Arbeitsplatz prüfen"
		 Case $msg = $Button1
; Zu überprüfende IP-Adresse abfragen und Info für das weitere vorgehen
			$IPAdresse = inputbox("Windows Update Stand prüfen - Abfrage der IP-Adresse und Info für das weitere vorgehen", "" &@CRLF& "Bitte geben Sie die IP-Adresse des zu prüfende Arbeitsplatzes an." &@CRLF& "" &@CRLF& "Als nächstes wählen Sie den Speicherort für das Protokoll." &@CRLF& "" &@CRLF& "" &@CRLF& "" &@CRLF& "z.B. 192.168.178.1", "", "", 500, 215)
			if @error = 1 Then
			   Exit
			Else
			   EndIf
; Prüfen ob die IP-Adresse über das Netzwerk erreichbar ist
			$Ping = Ping($IPAdresse, 250)
			If $Ping Not Then
			   MsgBox(0, "Windows Update Stand prüfen - Arbeitsplatz nicht erreichbar.", "Der Arbeitsplatz mit der IP-Adresse " &$IPAdresse &" ist nicht über das Netzwerk zu erreichen." &@CRLF& "" &@CRLF& "Bitte prüfen Sie ob der Arbeitsplatz eingeschaltet ist.")
			   Exit
			Else
			   EndIf
; Pfad für Log Dateien auswählen
			$PfadLogDatei = FileSelectFolder($varFileSelectFolder, "")
			if @error = 1 Then
			   Exit
			Else
			   EndIf
; Ausführen des MBSA Scripts für eingegebene IP-Adresse.
			$CMD = "C:\PROGRA~1\MICROS~3\mbsacli /target "&$IPAdresse& " /u USERNAME /p PASSWORD /rd "&$PfadLogDatei& " /n OS+SQL+IIS+Password /qt /ia"
			RunWait(@ComSpec & " /c " & $CMD)
			MsgBox(0, "Windows Update Stand prüfen - Arbeitsplatz erfolgreich geprüft.", "Der Arbeitsplatz mit der IP-Adresse "&$IPAdresse &" wurde erfoglreich geprüft." &@CRLF& "" &@CRLF& "Die Protokolldatei zu diesem Vorgang finden Sie unter: "&$PfadLogDatei&"")
			Exit
; Drücken des Button "Mehrere Arbeitsplätze prüfen"
		 Case $msg = $Button2
; Infos zum weiteren vorgehen
			$var = MsgBox(1, "Windows Update Stand prüfen - mehrere Arbeitsplätze prüfen", "Erstellen Sie bitte eine txt-Datei (Dateiname ohne Leerzeichen) in welcher Sie die zu überprüfenden IP-Adressen der Arbeitsplätze unter einander auflisten z.B." &@CRLF& "192.168.178.1" &@CRLF& "192.168.178.2" &@CRLF& "usw." &@CRLF& "" &@CRLF& "Wählen Sie im nächsten Fenster wo die Logdateien abgespeichert werden sollen." &@CRLF& "" &@CRLF& "Im darauf folgenden Fenster wählen Sie die txt-Datei in der die IP-Adressen der zu prüfenden Arbeitsplätze hinterlegt sind." &@CRLF& "" &@CRLF& "Alle Arbeitsplätze in der txt-Datei werden auf Verfügbarkeit über das Netzwerk (Ping) geprüft. Sollte ein Arbeitsplatz nicht erreichbar sein wird dieser nicht geprüft.")
			if $var = 2 Then
			   Exit
			Else
			   EndIf
; Pfad für Log Dateien auswählen
			$PfadLogDatei = FileSelectFolder($varFileSelectFolder, "")
			if @error = 1 Then
			   Exit
			Else
			   EndIf
; txt-Datei mit den zu überprüfenden IP-Adressen auswählen
			$PfadtxtDatei = FileOpenDialog("txt-Datei auswählen", @WindowsDir & "\", "Textdatei (*.txt)", 1 + 2)
			If @error Then
			   MsgBox(0, "Windows Update Stand prüfen - keine txt-Datei ausgewählt", "Sie haben keine txt-Datei ausgewählt. Bitte wählen Sie die txt-Datei in der die IP-Adressen der zu überprüfenden Arbeitsplätze hinterlegt sind.")
			   Exit
			Else
			EndIf
			Local $file = FileOpen("" &$PfadtxtDatei& "", 0)
			While 1
			   Local $line = FileReadLine($file)
			   If @error = -1 Then ExitLoop
; Prüfen ob die IP-Adressen über das Netzwerk erreichbar ist
			   $Ping = Ping($line, 250)
			   If $Ping Not Then
				  $CMD = "echo " &$line& " - offline >> "&$PfadLogDatei& "\Netzwerkstatus_Arbeitsplaetze.log"
				  RunWait(@ComSpec & " /c " & $CMD)
			   Else
				  $CMD = "echo " &$line& " - online >> "&$PfadLogDatei& "\Netzwerkstatus_Arbeitsplaetze.log"
				  RunWait(@ComSpec & " /c " & $CMD)
			   EndIf
			WEnd
			FileClose($file)
			MsgBox(0, "Windows Update Stand prüfen - Netzwerkstatus Arbeitsplätze.", "Der Netzwerkstatus der zu prüfenden Arbeitsplätze wurde überprüft und in eine Logdatei unter "&$PfadLogDatei& "\Netzwerkstatus_Arbeitsplaetze.log geschrieben.")
; Ausführen des MBSA Scripts für eingegebene IP-Adresse.
			$CMD = "C:\PROGRA~1\MICROS~3\mbsacli /listfile " &$PfadtxtDatei& " /u USERNAME /p PASSWORD /rd "&$PfadLogDatei& " /n OS+SQL+IIS+Password /qt /ia"
			RunWait(@ComSpec & " /c " & $CMD)
			MsgBox(0, "Windows Update Stand prüfen - Die Arbeitsplätze wurden erfolgreich geprüft.", "Die Arbeitsplätze mit den IP-Adressen aus der txt-Datei unter ("&$PfadtxtDatei&") wurden erfoglreich geprüft." &@CRLF& "" &@CRLF& "Die Log Dateien zu diesem Vorgang finden Sie unter: "&$PfadLogDatei&"")
			Exit
		 Case $msg = $Button3
			Exit
	  EndSelect
   WEnd

Alles anzeigen

Zeitriss

Hi,

Du könntest Exit durch ContinueLoop ersetzen.

Der übersichtlichkeits halber würde ich den Code allerdings in Funktionen verpacken und dann mit Return zur Hauptschleife zurückkehren (s. beispiel oben).
Select-Case würde ich durch Switch-Case ersetzten (s. Hilfe)
Die "Else-Abzweigung" beim "If" ist optional, wenn sie keinen Inhalt hat sollte sie weggelassen werden.

Beispiel GUIMsg-Schleife mit Switch-Case und Funktionsaufrufen

AutoIt

While 1
   $msg = GUIGetMsg()
   Switch $msg
   Case $Button1
	  _Button1()
   Case $Button2
	  _Button2()
   Case $Button3
	  _Button3()
   Case $GUI_EVENT_CLOSE
	  exit
   EndSwitch
WEnd


; Funktionen (s. mein Beispiel oben)

Alles anzeigen

mfg
Zeitriss

daMeier

Hallo,

vielen Dank, ContinueLoop war der Befehl der Befehle!

Ich gebe dir recht, Funktionen wären schicker, aber so hab ich es hin bekommen.

Else-Abzweigungen habe ich entfernt, unnötiges kann/soll/muss raus.

Select/Switch werde ich mir mal anschauen, aber so funktioniert es jetzt wie ich möchte.

Danke dir!

**alpines**

Beim nächsten Mal den grünen Haken setzen nicht vergessen (1. Beitrag bearbeiten, Threadstatus anpassen).

Zu deinem Script hätte ich aber mehrere Fragen:

1. Warum Selectst du statt zu Switchen? Dann kannst du dir die Abfragen Case $msg = $button1 sparen und nur noch Case $button1 schreiben.
2. Wieso prüfst du @error = 1, bei der InputBox gibt alles @error > 0 an, dass es gefailed ist also könntest du einfach If @error Then Exit schreiben und dir das Else + EndIf klemmen.
3. Wieso schreibst du FileOpen("" &$PfadtxtDatei& "", 0)? Du kannst die Gänsefüßchen weglassen, AutoIt kommt damit hervorragend zurecht, das ist nicht die CMD.
4. Wieso speicherst du die Returnwerte der MsgBoxen ab? Variablen die du nur einmal verwendest kannst du direkt in die If-Abfrage einbauen, sieht nicht nur schicker aus, sondern
spart auch Platz und du brauchst weniger Variablen.
5. If $Ping Not Then ist falsch, der Negierung muss vor der Ping-Variable.
6. Wieso deklarierst du alle Variablen am Anfang? Deklariere sie doch erst wenn du sie brauchst.
7. Du solltest deine Variablen sowie Buttons besser beschriften, $button1, $button2, $button3 sind nicht aussagekräftig. Wenn du in 2 Jahren in das Script reinguckst weißte nicht mehr was los ist.

BLinz

Zitat von alpines

6. Wieso deklarierst du alle Variablen am Anfang? Deklariere sie doch erst wenn du sie brauchst.

Ist bestimmt eine Philosophie-Frage - aber ich habe mir das extra angewöhnt. Da muss ich zwar bei jeden neuen Variablen wieder ganz an den Anfang scrollen (SciTE Jump sei Dank nicht so schlimm), habe dann aber alle Variablen die Global sind auf einem Blick.
Die Variablen sortiere ich dann noch nach Aufgaben / Themen - bzw. Ich schreibe diese in entsprechenden Blöcken zusammen.

Dann fällt mir auch das ich gerade die 5. Temp-Variable erstellen will etc.

Und beim Kompilieren meckert die Funktion auch nicht das die Globale Variable eventuell noch gar nicht angelegt ist.

Dann lieber der Hinweis den Variablennamen ggf. den gedachten Typ mitzugeben, also ob Text oder Zahl etc: https://www.autoitscript.com/wiki/Best_coding_practices

**alpines**

Zitat von BLinz

Ist bestimmt eine Philosophie-Frage - aber ich habe mir das extra angewöhnt.

Ist meiner Meinung nach kein guter Stil, man sollte Variablen so lokal wie möglich deklarieren.
Wenn ich die $sIPAddresse nur in dem $Button1 Case nutze, dann kann ich sie dort auch Lokal erstellen und nutzen, dazu muss ich sie nicht an oberster Stelle global hinschreiben.

Wenn man später eine Funktion schreibt die Ausversehen auf die globale Variable mit dem selben Namen zugreift, dann sucht man sich dumm und dämlich bis man rausgefunden hat, welche Variable sie aus welchem Scope genommen hat.