论坛 › 已解决问题区 › （已解决）Ping 批量IP地址，对延时的IP弹出提示。

lamant 发表于 2014-6-19 14:13:43

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

本帖最后由 lamant 于 2014-6-20 16:48 编辑

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

light_he 发表于 2014-6-19 17:00:17

如下：
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 发表于 2014-6-20 16:48:01

感谢light兄！

查看完整版本: （已解决）Ping 批量IP地址，对延时的IP弹出提示。