Не получить весь вывод CMD

bFree · 3 Дек 2009

Прочел эту тему http://autoit-script.ru/index.php/topic,240.0.html
Решил воспользоваться предложенным решением, однако столкнулся с проблемой: зачастую процесс cmd умирает раньше, чем скрипт прочитывает его вывод, что не совсем хорошо.
ключ "/K" при вызове cmd не помогает. Как можно побороть бяку? (юзаю Sleep(5) в цикле)

Скрипт приложил

kaster · 3 Дек 2009

Код:

#include <Constants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#Region ### START Koda GUI section ### Form=C:\bat\autoit\koda_1.7.0.1\Forms\ping_trace.kxf
Opt("GUIOnEventMode", 1) 
$Form1_1 = GUICreate("Trace & ping", 557, 439, 192, 114)
$p_size = GUICtrlCreateInput("64", 448, 16, 89, 21)
$Label1 = GUICtrlCreateLabel("Packet Size (bytes)", 320, 16, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$host = GUICtrlCreateInput("", 8, 32, 241, 32)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Ping && Trace", 64, 72, 121, 33, $WS_GROUP)
$ping_area = GUICtrlCreateEdit("", 0, 136, 555, 129)
GUICtrlSetColor(-1, 0x000080)
$trace_area = GUICtrlCreateEdit("", 0, 296, 555, 137)
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH)
$Label2 = GUICtrlCreateLabel("Ping", 16, 112, 31, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Trace", 16, 272, 40, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$p_count = GUICtrlCreateInput("30", 448, 40, 89, 21)
$Label4 = GUICtrlCreateLabel("Count of packets", 320, 40, 103, 20)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICtrlSetOnEvent($button1, "go")
$p_timeout = GUICtrlCreateInput("1000", 448, 64, 89, 21)
$Label5 = GUICtrlCreateLabel("Ping timeout (msec)", 320, 64, 121, 20)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$t_timeout = GUICtrlCreateInput("1000", 448, 88, 89, 21)
$Label6 = GUICtrlCreateLabel("Trace timeout (msec)", 312, 88, 130, 20)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Host", 16, 8, 38, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###
$ping = ""
$trace = ""
While 1
	Sleep(10)
WEnd

Func go()
	$irun_ping = Run(@ComSpec & ' /c ping ' & GUICtrlRead($host) & ' -n ' & GUICtrlRead($p_count) & ' -l ' & GUICtrlRead($p_size) & ' -w ' & GUICtrlRead($p_timeout), '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
	$irun_trace = Run(@ComSpec & ' /c tracert ' & GUICtrlRead($host) & ' -w ' & GUICtrlRead($t_timeout), '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
	$timer = TimerInit()
	$ok = 0
	While 1
		$ping = StdoutRead($irun_ping)
		if $ping <> "" Then
			GUICtrlSetData($ping_area, GUICtrlRead($ping_area) & _StringOEM2ANSI($ping))
			_GUICtrlEdit_LineScroll($ping_area, 0, _GUICtrlEdit_GetLineCount($ping_area))
		EndIf
		if StringInStr($ping, 'Average') Then $ok += 1
		$trace = StdoutRead($irun_trace)
		if $trace <> "" Then
			GUICtrlSetData($trace_area, GUICtrlRead($trace_area) & _StringOEM2ANSI($trace))
			_GUICtrlEdit_LineScroll($trace_area, 0, _GUICtrlEdit_GetLineCount($trace_area))
		EndIf
		if StringInStr($trace, 'complete') Then $ok += 1
		Sleep(100)
		If $ok = 2 Then ExitLoop
	WEnd
EndFunc

Func _exit()
	Exit
EndFunc

Func _StringOEM2ANSI($strText)
    Local $sBuffer = DllStructCreate("char[" & StringLen($strText)+1 & "]")
    Local $aRet = DllCall("User32.dll", "int", "OemToChar", "str", $strText, "ptr", DllStructGetPtr($sBuffer))
    
    If Not IsArray($aRet) Then Return SetError(1, 0, '') ; ошибка DLL
    If $aRet[0] = 0 Then Return SetError(2, $aRet[0], '') ; ошибка функции
    
    Return StringRegExpReplace(DllStructGetData($sBuffer, 1), "\r\n", @CRLF)
EndFunc

Func bar_start()
	
EndFunc

bFree · 3 Дек 2009

Kaster, вы должны понимать, что это не решение проблемы.
Стоит только запустить скрипт на русской Win.

kaster · 3 Дек 2009

bFree [?]

Стоит только запустить скрипт на русской Win.

какое-то неоконченное предложение. стоит только запустить, и? :smile:

ничего не сработает? так поставь такие условия чтобы сработало, например "среднее", "завершено" и т.д. точно подсказать не могу, т.к. у меня англ. винда.
или ты хочешь чтобы скрипт отрабатывал на всех языках мира? ;D

bFree · 3 Дек 2009

Kaster, в данном случае да, скрипт же с процессами работает, а не с заголовками GUI и привязка к языку тут совсем не нужна, но спасибо вам, вы меня натолкнули на мысль.

Код:

#include <Constants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#Region ### START Koda GUI section ### Form=C:\bat\autoit\koda_1.7.0.1\Forms\ping_trace.kxf
Opt("GUIOnEventMode", 1) 
$Form1_1 = GUICreate("Trace & ping", 557, 439, 192, 114)
$p_size = GUICtrlCreateInput("64", 448, 16, 89, 21)
$Label1 = GUICtrlCreateLabel("Packet Size (bytes)", 320, 16, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$host = GUICtrlCreateInput("", 8, 32, 241, 32)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Ping && Trace", 64, 72, 121, 33, $WS_GROUP)
$ping_area = GUICtrlCreateEdit("", 0, 136, 555, 129)
GUICtrlSetColor(-1, 0x000080)
$trace_area = GUICtrlCreateEdit("", 0, 296, 555, 137)
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH)
$Label2 = GUICtrlCreateLabel("Ping", 16, 112, 31, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Trace", 16, 272, 40, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$p_count = GUICtrlCreateInput("30", 448, 40, 89, 21)
$Label4 = GUICtrlCreateLabel("Count of packets", 320, 40, 103, 20)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICtrlSetOnEvent($button1, "go")
$p_timeout = GUICtrlCreateInput("1000", 448, 64, 89, 21)
$Label5 = GUICtrlCreateLabel("Ping timeout (msec)", 320, 64, 121, 20)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$t_timeout = GUICtrlCreateInput("1000", 448, 88, 89, 21)
$Label6 = GUICtrlCreateLabel("Trace timeout (msec)", 312, 88, 130, 20)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Host", 16, 8, 38, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###
$ping = ""
$trace = ""
While 1
    Sleep(10)
WEnd

Func go()
    $irun_ping = Run(@ComSpec & ' /c ping ' & GUICtrlRead($host) & ' -n ' & GUICtrlRead($p_count) & ' -l ' & GUICtrlRead($p_size) & ' -w ' & GUICtrlRead($p_timeout), '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    $irun_trace = Run(@ComSpec & ' /c tracert ' & GUICtrlRead($host) & ' -w ' & GUICtrlRead($t_timeout), '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    $timer = TimerInit()
    $ok_ping = 0
	$ok_trace = 0
    While 1
        $ping = StdoutRead($irun_ping)
		if @error Then $ok_ping = 1
        if $ping <> "" Then
            GUICtrlSetData($ping_area, GUICtrlRead($ping_area) & _StringOEM2ANSI($ping))
            _GUICtrlEdit_LineScroll($ping_area, 0, _GUICtrlEdit_GetLineCount($ping_area))
        EndIf
        $trace = StdoutRead($irun_trace)
		if @error Then $ok_trace = 1
        if $trace <> "" Then
            GUICtrlSetData($trace_area, GUICtrlRead($trace_area) & _StringOEM2ANSI($trace))
            _GUICtrlEdit_LineScroll($trace_area, 0, _GUICtrlEdit_GetLineCount($trace_area))
        EndIf
        Sleep(100)
        If $ok_ping = 1 AND $ok_trace = 1 Then ExitLoop
    WEnd
EndFunc

Func _exit()
    Exit
EndFunc

Func _StringOEM2ANSI($strText)
    Local $sBuffer = DllStructCreate("char[" & StringLen($strText)+1 & "]")
    Local $aRet = DllCall("User32.dll", "int", "OemToChar", "str", $strText, "ptr", DllStructGetPtr($sBuffer))
    
    If Not IsArray($aRet) Then Return SetError(1, 0, '') ; ошибка DLL
    If $aRet[0] = 0 Then Return SetError(2, $aRet[0], '') ; ошибка функции
    
    Return StringRegExpReplace(DllStructGetData($sBuffer, 1), "\r\n", @CRLF)
EndFunc

Func bar_start()
    
EndFunc

kaster · 3 Дек 2009

Тема решена? ;)

Автор темы	Похожие темы	Форум	Ответы	Дата
F	Получить массив из Json c фильтром по условию	Общие вопросы по AutoIt	6	22 Ноя 2024
L	Получить цифры из txt	Общие вопросы по AutoIt	1	31 Авг 2024
G	Получить полный вывод после выполнения _GUICtrlListView_EditLabel	Общие вопросы по AutoIt	1	18 Апр 2024
A	Из ресурсов исполняемых файлов получить данные в виде строки-структуры	Общие вопросы по AutoIt	4	12 Апр 2024
A	Из бинарной строки получить число с плавающей точкой	Общие вопросы по AutoIt	0	12 Апр 2024

Поиск

Поиск

Не получить весь вывод CMD

bFree

Новичок

kaster

Мой Аватар, он лучший самый

bFree

Новичок

kaster

Мой Аватар, он лучший самый

bFree

Новичок

kaster

Мой Аватар, он лучший самый