Fehlerbehandlung

**Gun-Food**

Jetzt brauch ich doch auch mal Hilfe:
Ich will je nach Erfolg ne Meldung hinter den Befehl schreiben.
Aber leider scheint er den Fehler zu übergehen.
Jedenfalls sagt mit die MsgBox immer 0 (also kein Fehler).
Im $arraycom stehen die Befehle zum verbinden die gut funtionieren.
Ich habe folgendes gemacht:

Code

#include <GUIConstants.au3>
opt("RunErrorsFatal",0)
$Form1 = GUICreate("Netzlaufwerke verbinden", 450, 3 * $ybasis + (32 *UBound($arraycom)), 2 * $ybasis, 10)


For $i = 0 to Ubound($arraycom) -1
	$y = $ybasis + (32 * $i)
	$arrayhandle[$i] = GUICtrlCreateLabel($arraycom[$i], 2 * $ybasis, $y, 350, 17)
Next


GUISetState(@SW_SHOW)


For $r = 0 to UBound($arraycom) - 1
	$comspec = $arraycom[$r]
	RunWait(@ComSpec & " /c " & $arraycom[$r], "", @SW_HIDE)
	MsgBox(1, "Fehler", @error)
	if Not @error Then
		$y = $ybasis + (32 * $r)
		$handle = GUICtrlCreateLabel("Erfolgreich", 2 * $ybasis + 350, $y, 90)
	Else
		$arrayerror[$i] = 1
		$y = $ybasis + (32 * $r)
		$handle = GUICtrlCreateLabel("Fehlgeschlagen!", 2 * $ybasis + 350, $y, 90)
		GUICtrlSetFont($handle, 8, 800, 0, "MS Sans Serif")
		GUICtrlSetColor($handle, 0xFF0000)
	EndIf
Next

Alles anzeigen

jonk

Zitat

Jetzt brauch ich doch auch mal Hilfe

aber dafür sind wir doch da

folgendes funktioniert bei mir:

Code

#include <GUIConstants.au3>
opt("RunErrorsFatal",0)
Dim $arraycom[2]
Dim $arrayhandle[2]


$arraycom[0] = "ping localhorst"
$arraycom[1] = "dir /w"
$ybasis = 0




$Form1 = GUICreate("Netzlaufwerke verbinden", 450, 3 * $ybasis + (32 *UBound($arraycom)), 2 * $ybasis, 10)


For $i = 0 to Ubound($arraycom) -1
	$y = $ybasis + (32 * $i)
	$arrayhandle[$i] = GUICtrlCreateLabel($arraycom[$i], 2 * $ybasis, $y, 350, 17)
Next


GUISetState(@SW_SHOW)


For $r = 0 to UBound($arraycom) - 1
	;~ $comspec = $arraycom[$r]
	$state = RunWait(@ComSpec & " /c " & $arraycom[$r], "", @SW_SHOWDEFAULT)
	MsgBox(1, "Fehler", $state)
	if Not $state Then
		$y = $ybasis + (32 * $r)
		$handle = GUICtrlCreateLabel("Erfolgreich", 2 * $ybasis + 350, $y, 90)
	Else
;~ 		$arrayerror[$i] = 1
		$y = $ybasis + (32 * $r)
		$handle = GUICtrlCreateLabel("Fehlgeschlagen!", 2 * $ybasis + 350, $y, 90)
		GUICtrlSetFont($handle, 8, 800, 0, "MS Sans Serif")
		GUICtrlSetColor($handle, 0xFF0000)
	EndIf
Next
sleep(5000)

Alles anzeigen

**Gun-Food**

Danke. Hätte ich tatsächlich auch selbst rausfinden können.
Übrigens für die Dokumentation hier die fehlende Unterscheidung ob erfolgreich oder nicht:

Code

$status = 0
for $i = 0 to UBound ($arrayerror) - 1
	if $arrayerror[$i] = 1 then 
		$handle = GUICtrlCreateLabel("Es sind Fehler aufgetreten", 32, 2 * $ybasis * UBound($arraycom) + $ybasis, 350, 17)
		GUICtrlSetFont($handle, 8, 800, 0, "MS Sans Serif")
		GUICtrlSetColor($handle, 0xFF0000)
		if not $status = 1 Then
			$state = 1
		endif
	EndIf
Next


if not $status = 1 Then
	$handle = GUICtrlCreateLabel("Laufwerke erfolgreich verbunden", 32, 2 * $ybasis * UBound($arraycom) + $ybasis, 350, 17)
	GUICtrlSetFont($handle, 8, 800, 0, "MS Sans Serif")
	GUICtrlSetColor($handle, 0x00FF00)
EndIf

Alles anzeigen

**Gun-Food**

Alte Themen sind doch die Besten.
Mal ne Frage, wie schließe ich eine GUI nach 10 Sekunden am liebsten gleich mit einblenden eines Counters, der, so meine Idee bisher, vermutlich einfach ein Label ist, dessen Inhaltstext durch eine Variable definiert ist, die ich dann einfach runter zähle.

Nuffilein805

kannst es ja ganz edel mit ner progressbar machen

Code

for $i = 10 to 0 step 1
guictrlsetdata ($label, $i)
guictrlsetdata ($progress, $i*10)
sleep (999); es dauert auch ein bisschen das obere zu verarbeiten :) - kleine spielerei
next

wolkenloser

Hi,

einen Progressbar zu machen ist ja easy, aber wie stellt er es an, damit Gleichzeitig noch ein GUIFester funktionen abarbeiten kann ?

Code

#include <GUIConstants.au3>


dim $progressbar1




$Form1 = GUICreate("AForm1", 622, 441, 192, 125)
$progressbar1 = GUICtrlCreateProgress(64, 376, 489, 33)
GUICtrlSetColor(-1, 0x4E4E4E)
$Button1 = GUICtrlCreateButton("AButton1", 56, 136, 75, 25, 0)
$Button2 = GUICtrlCreateButton("AButton2", 152, 136, 75, 25, 0)
GUISetState()


Progress_10sek()




While 1
		$msg = GuiGetMsg()
		Select
		Case $msg = $GUI_EVENT_CLOSE
			MsgBox(0,"",$GUI_EVENT_CLOSE)
			ExitLoop

		Case $msg = $Button1 
			MsgBox(0,"","AButton1 gedrückt")	
		Case $msg = $Button2 
			MsgBox(0,"","AButton2 gedrückt")	

		Case Else
		;;;;;;;
		EndSelect

	WEnd


func Progress_10sek()
For $i = 0 To 10
	GUIGetMsg ()
	GUICtrlSetData ($progressbar1,$i*10)
	 Sleep(999)
 Next
 Exit
 EndFunc

Alles anzeigen

wolkenloser

Was auf jeden Fall geht ist das hier, allerdings ohne Progressbar:
Nenne dein Programm z.B. test.exe

Code

Run("C:\test.exe","c:"); das eigendliche Programm, z.B. GUI
sleep(10000);solange soll es daueren
$PID = ProcessExists("test.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)

wolkenloser

Ich habe noch was gefunden
Achtung - verursacht hohe CPU Last

Code

AdlibEnable("start",1000)


dim $progressbar1, $GUI_EVENT_CLOSE




$Form1 = GUICreate("AForm1", 622, 441, 192, 125)
$progressbar1 = GUICtrlCreateProgress(64, 376, 489, 33)
GUICtrlSetColor(-1, 0x4E4E4E)
$Button1 = GUICtrlCreateButton("AButton1", 56, 136, 75, 25, 0)
$Button2 = GUICtrlCreateButton("AButton2", 152, 136, 75, 25, 0)
GUISetState()


Progress_10sek()




func start()
While 1
		$msg = GuiGetMsg()
		Select
		Case $msg = $GUI_EVENT_CLOSE
;~ 			MsgBox(0,"",$GUI_EVENT_CLOSE)
			ExitLoop

		Case $msg = $Button1 
			MsgBox(0,"","AButton1 gedrückt")	
		Case $msg = $Button2 
			MsgBox(0,"","AButton2 gedrückt")	

		Case Else
		;;;;;;;
		EndSelect

	WEnd


EndFunc






;...
Exit


func Progress_10sek()
For $i = 0 To 10
	GUIGetMsg ()
	GUICtrlSetData ($progressbar1,$i*10)
	 Sleep(999)
 Next
 Exit
 EndFunc

Alles anzeigen

**Gun-Food**

Zitat
Original von wolkenloser
Was auf jeden Fall geht ist das hier, allerdings ohne Progressbar:
Nenne dein Programm z.B. test.exe
Code
Run("C:\test.exe","c:"); das eigendliche Programm, z.B. GUI
sleep(10000);solange soll es daueren
$PID = ProcessExists("test.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)

Hmm, das kann ich ja wieder nur lokal verwenden.
Ich will ja unsere Loginscripte ersetzen und die liegen auf dem Server. Also geht das über den Aufruf leider nicht.
Ich will das Script nach Abschluss noch 10 sek offen halten und dann schließen. Werde wohl ein Alt+F4 nach 10 Sekunden senden.

wolkenloser

Du kannst den RUN Befehl doch auc mit UNC Pfaden verwenden:

RUN("\\server\netlogon\test.exe", "c:\")

oder Du nimmst gleich die zweite Variante mit ADLIB

**Gun-Food**

hmm, hast recht, aber der Counter gefällt mir schon recht gut.
Die Frge ist natürlich nun, wie ich, wenn ich nicht auf den Counter warten möchte, das Fenster vorher zu kriege.
Hier der Code vom Counter:

Code

for $i = 1 to 10
	$handle = GUICtrlCreateLabel("Schließe in: "&$i&" sek", 32, 2 * $ybasis * UBound($arraycom) + $ybasis + 15, 350, 17)
	GUICtrlSetFont($handle, 8, 800, 0, "MS Sans Serif")
	GUICtrlSetColor($handle, 0x000000)
	sleep(1000)
	$handle = GUICtrlCreateLabel("Schließe in: "&$i&" sek", 32, 2 * $ybasis * UBound($arraycom) + $ybasis + 15, 350, 17)
	GUICtrlSetFont($handle, 8, 800, 0, "MS Sans Serif")
	GUICtrlSetColor($handle, 0xEBE9ED)
Next

send("{ALT}{F4}")

ScriptKiddy

Hi,

so auf die schnelle fällt mir da ein nen Button zu machen, der das ganze dann sofort abbricht. sollte doch möglich sein oder?!

sorry hab grad keine zeit des zu testen.

Gruß Markus

wolkenloser

HOTKEY ?
Abbruch mit ESC ?
funzt bei mir zumindest....

Code

AdlibEnable("start",1000)


dim $progressbar1, $GUI_EVENT_CLOSE, $exitmarke
HotKeySet("{ESC}","abbruch")


$Form1 = GUICreate("AForm1", 622, 441, 192, 125)
$progressbar1 = GUICtrlCreateProgress(64, 376, 489, 33)
GUICtrlSetColor(-1, 0x4E4E4E)
$Button1 = GUICtrlCreateButton("EXIT", 56, 136, 75, 25, 0)
$Button2 = GUICtrlCreateButton("AButton2", 152, 136, 75, 25, 0)
GUISetState()


Progress_10sek()










Func abbruch()
	$exitmarke=1
EndFunc	






func start()
While 1
                $msg = GuiGetMsg()
                Select
;~                 Case $msg = $GUI_EVENT_CLOSE
;~ 						 ExitLoop

                Case $msg = $Button1
                        MsgBox(0,"","EXIT gedrückt",1)
						$exitmarke=1
                Case $msg = $Button2
                        MsgBox(0,"","AButton2 gedrückt")       

                Case Else
                ;;;;;;;
                EndSelect

        WEnd


EndFunc






;...
Exit


func Progress_10sek()
For $i = 0 To 10
        GUIGetMsg ()
        GUICtrlSetData ($progressbar1,$i*10)
         Sleep(999)
		if $exitmarke=1 Then Exit 
 Next
 Exit
 EndFunc

Alles anzeigen

wolkenloser

Hi GUN,..da ist wohl ein Fehler in der Darstellung der Syntax in Zeile 5 (HOTKEYSET).
Die Klammern werden nicht richtig dargestellt.

Ich lade das Script mal hoch