Сам скрипт огромен, и лишён GUI. Он и врядли что-то прояснит. Он компилируется в exe. Для управления, и настройки используется отдельный ехе-шник, в котором собственно GUI. Если убрать всё лишнее, то пробовал делать так:Kaster сказал(а):
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$StatWindow = GUICreate($titl, 271, 711, 287, 127)
$Edit1 = GUICtrlCreateList("", 8, 400, 257, 273, $ES_READONLY)
GUICtrlSetData(-1, "")
GUICtrlSetState(-1, $GUI_DISABLE)
$prog_id = Run("batle.exe")
AdlibRegister('_getStat', 1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _getStat()
$read = StdoutRead($prog_id, 100)
GUICtrlSetData($Edit1, $read, 'edit')
EndFunc
$prog_id = Run("batle.exe")
;на
#include <Constants.au3>
;...
$prog_id = Run("batle.exe", '', @SW_HIDE, $STDOUT_CHILD)For $i = 1 To 10
ConsoleWrite($i & ' Message ' & Random(10, 100, 1) & @LF)
Sleep(1000)
Next
ConsoleWrite(@LF & 'Все.')#include <Constants.au3>
$fWork = True
$Pid = Run(@ScriptDir & '\2.exe', '', @SW_HIDE, $STDOUT_CHILD)
AdlibRegister('_getStat', 1000)
While $fWork
Sleep(10)
WEnd
MsgBox(64, 'Info', 'Все.')
Func _getStat()
Local $sLog = StdoutRead($Pid, True)
ToolTip($sLog, 0, 0)
If Not ProcessExists('2.exe') Then
$fWork = False
EndIf
EndFunc ;==>_getStat
