$hostname = "192.168.0.1"
$timeout = 1000
While 1
$iPing = Ping($hostname, $timeout)
If Not $iPing Then
ToolTip("Нет пинга с " & $hostname, -1, -1, "Ошибка связи", 2)
While Not Ping($hostname, $timeout)
Sleep(200)
WEnd
ToolTip("")
EndIf
Sleep(500)
WEnd