（已解决）Ping 批量IP地址，对延时的IP弹出提示。

lamant

有没有这样功能的代码，可以Ping批量的IP，如果某IP延时则弹出提示？
求之 。多谢！

light_he

如下：

Local $file = FileOpen("ping.txt", 0)

If $file = -1 Then
    MsgBox(4096, "错误", "不能打开文件.")
    Exit
EndIf


While 1
    Local $line = FileReadLine($file)
    If @error = -1 Then ExitLoop

          Local $iPing = Ping($line, 50)           
        If Not $iPing Then
            MsgBox(4096, "", 'ping '&$line&'  时发生了一个错误, @error 值为: ' & @error)
        EndIf
WEnd

FileClose($file)

lamant

感谢light兄！