Как организовать пинг

Mr.Power

нужно организовать пинг до сервера, чтобы проверить готов ли он.(клиент серверная технология)есть пример, но он плохо работает, например использую 81 порт, и если он открыт, независимо от ip почемуто возвращается True типа пинг произведён, хотя я полностью отрублен от инета, а ip внешний!Как быть? может, както доработать примерчик? Заранее благодарен cкачать
1 ответ

Mr.Power

Mr.Power,может такой модуль покатит?использование на VB:
Dim MyPing
Dim ECHO As ICMP_ECHO_REPLY
Dim pingMsg As String

MyPing = Ping("ya.ru", "Test", ECHO)
pingMsg = GetStatusText(val(MyPing))

 If MyPing <> <b>0</b> Then
 'не пингуется
 'почему = pingMsg
 ElseIf MyPing = <b>0</b> Then
 'пингуется
 
 End If
cкачать