console ausgabe in input feld umleiten

Hi Leutz,

von der Sache her ganz einfach: ein ping cmd oder ein anderes Programm in eine Input Box in einer Gui umleiten.
Ist soweit auch fertig, aber es flackert.
es gab ein Beispiel von Autoit direkt, aber ich finde es nicht mehr.
Die GUI laeuft im OnEventMode, kann es darum so flackern?

Hier mal das Script:

#include <GUIConstants.au3>
#include <Array.au3>
#include <File.au3>
#Include <Date.au3>

; ##### Gui Control ##################################################################

$Form1 = GUICreate("Inputfiels",800, 600) ; Macht eine GUI mit 800x600
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")

$output = GUICtrlCreateInput( "", 50, 100, 500, 400)

GUISetState(@SW_SHOW)

; ##### Programm Ablauf #############################################################################




While 1

; Path exist in InputField Funktion?
$hPID = Run( "ping heise.de","",@SW_HIDE,6)
While ProcessExists($hPID)
GuiCtrlSEtDAta($output,STDOutread($hPID,1) )
Wend

Sleep(100)

WEnd


; ##### Funktionen #######################################

; ##### GUI Funktionen ###################################

Func AForm1Close()
;MsgBox( 4 , "Beenden", "Möchten Sie wirklich abbrechen?")
;If True Then
Exit
;EndIf

EndFunc


Func AForm1Maximize()

EndFunc


Func AForm1Minimize()

EndFunc


Func AForm1Restore()

EndFunc

Danke

CAT

Danke.

ok das habe ich sogar gerafft,

nun muss nur noch bei neuen Daten eine neue Zeile kommen.
Geht das denn mit @CRLF?

CAT

Habe mir das ein bisschen umgebaut, funtioniert aber auf jeden Fall.

Vielen Danke.

#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <Date.au3>
Opt("GUIOnEventMode", 1) ; OnEvent-Mode einschalten

; ##### Gui Control ##################################################################

$Form1 = GUICreate("Inputfiels", 800, 600) ; Macht eine GUI mit 800x600
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")

$output = GUICtrlCreateEdit("", 50, 100, 500, 400, BitOr($GUI_SS_DEFAULT_EDIT,$ES_MULTILINE))

GUISetState(@SW_SHOW)

; ##### Programm Ablauf #############################################################################

$oldData = ""

While 1

; Path exist in InputField Funktion?
$hPID = Run("ping heise.de", "", @SW_HIDE, 6)
While ProcessExists($hPID)
$readData = StdoutRead($hPID, 1)
If $readData <> $oldData Then
GUICtrlSetData($output, $output & @CRLF & $readData)
$oldData = $readData
EndIf
WEnd

Sleep(10000)

WEnd

; ##### Funktionen #######################################

; ##### GUI Funktionen ###################################

Func AForm1Close()
;MsgBox( 4 , "Beenden", "Möchten Sie wirklich abbrechen?")
;If True Then
Exit
;EndIf

EndFunc ;==>AForm1Close

Func AForm1Maximize()

EndFunc ;==>AForm1Maximize

Func AForm1Minimize()

EndFunc ;==>AForm1Minimize

Bei allen input und edit feldern scrollt die Ausgabe leider nicht zu den aktuellen Daten, sondern bleibt in der ersten Zeile stehen.
Mit welchem Ex-style kann ich das denn einstellen? Habe das nicht verstanden in der Hilfe, autoscrollv geht nicht.

Danke

CAT

Ich habe nun endlich die Loesung gefunden!!! :o)

Die Funktion heisst: _GUICtrlEdit_Scroll
und braucht unbedingt: #Include <GuiEdit.au3>
#include <ScrollBarConstants.au3>

Schon irgendwie bloed, dass GuiCTRLEdit das nicht von allein kann...

CAT