Hi,
teste mal diese hier:
Spoiler anzeigen
[autoit][/autoit]
[autoit][/autoit]
[autoit]
$ip = "127.0.0.1"
[/autoit] [autoit][/autoit] [autoit]MsgBox(0,"",_ping($ip))
[/autoit] [autoit][/autoit] [autoit]Func _ping($f_ip= "127.0.0.1")
Local $f_out_read
Local $f_err_read
$pid = Run(@ComSpec & " /c " & 'ping '&$f_ip, "", @SW_HIDE,6)
While 1
$f_out_read &= StdOutRead($pid)
If @error = 2 then ExitLoop
sleep(100)
Wend
While 1
$f_err_read &= StderrRead($pid)
If @error = 2 then ExitLoop
sleep(100)
Wend
Return "Output " &$f_out_read &@CRLF&"Error "&@CRLF& $f_err_read
StdioClose($pid)
EndFunc
MfG
Der_Doc