Практическое руководство. Определение доступности удаленного компьютера в Visual Basic

Статья
11/05/2008

Обновлен: Ноябрь 2007

Метод My.Computer.Network.Ping можно использовать для определения доступности удаленного компьютера или узла. Для указания сервера можно использовать URL-адрес, имя компьютера или IP-адрес. При указании URL-адреса не следует включать префикс http://.

Метод Ping не является надежным методом для определения доступности удаленного компьютера: проверяемый порт удаленного компьютера может быть выключен или же запрос проверки связи может блокироваться межсетевым экраном или маршрутизатором.

Примечание.
Параметры, доступные в диалоговых окнах, а также названия и расположение команд меню могут отличаться от описанных в справке в зависимости от текущих настроек или версии. При написании этой страницы справки имелось в виду окно Обычные параметры разработки. Чтобы изменить настройки, в меню Сервисвыберите командуИмпорт и экспорт параметров. Дополнительные сведения см. в разделе Параметры Visual Studio.

Параметры, доступные в диалоговых окнах, а также названия и расположение команд меню могут отличаться от описанных в справке в зависимости от текущих настроек или версии. При написании этой страницы справки имелось в виду окно Обычные параметры разработки. Чтобы изменить настройки, в меню Сервисвыберите командуИмпорт и экспорт параметров. Дополнительные сведения см. в разделе Параметры Visual Studio.

Чтобы проверить связь с сервером

Проверьте, возвращает ли метод Ping значение True. В этом примере определяется, можно ли опросить сервер, сравнивая возвращаемое значение метода Ping со значением True. Замените адрес 198.01.01.01 на IP-адрес, URL-адрес или имя сервера для проверки связи.
```
If My.Computer.Network.Ping("198.01.01.01") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If
```

Чтобы проверить связь с сервером и указать тайм-аут

Проверьте, возвращает ли метод Ping значение True, указав интервал ожидания в миллисекундах. Если тайм-аут не указан, по умолчанию будет использоваться значение 500. В этом примере определяется, можно ли осуществить проверку связи с сервером, сравнивая значение, возвращаемое методом Ping, со значением True, при этом указывается интервал ожидания 1000 миллисекунд. Замените адрес www.cohowinery.com на IP-адрес, URL-адрес или имя сервера для проверки связи.
```
If My.Computer.Network.Ping("www.cohowinery.com", 1000) Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If
```

См. также

Задачи

Практическое руководство. Проверка состояния подключения в Visual Basic

Ссылки

Объект My.Computer.Network

Члены объекта My.Computer.Network

Метод My.Computer.Network.Ping

Поделиться через