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

Статья
11/05/2008

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

Проверяет связь с указанным сервером.

' Usage
Dim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress)
Dim value As Boolean = My.Computer.Network.Ping(address)
Dim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress ,timeout)
Dim value As Boolean = My.Computer.Network.Ping(address ,timeout)
' Declaration
Public Function Ping( _
   ByVal hostNameOrAddress As String _
) As Boolean
' -or-
Public Function Ping( _
   ByVal address As System.Uri _
) As Boolean
' -or-
Public Function Ping( _
   ByVal hostNameOrAddress As String, _
   ByVal timeout As Integer _
) As Boolean
' -or-
Public Function Ping( _
   ByVal address As System.Uri, _
   ByVal timeout As Integer _
) As Boolean

Параметры

hostNameOrAddress
String. URL-адрес, имя компьютера или IP-номер сервера, связь с которым необходимо проверить. Обязательно.
address
Uri. Универсальный код ресурса (URI) сервера, связь с которым необходимо проверить. Обязательно.
timeout
Int32. Пороговое значение времени в миллисекундах, отведенное на установление связи с удаленным компьютером. Значение по умолчанию — 500. Обязательно.

Возвращаемое значение

Boolean, показывающее, была ли операция выполнена успешно.

Исключения

Следующие условия могут вызвать исключение.

Отсутствует сетевое подключение (InvalidOperationException).
Недопустимый URL-адрес (PingException).

Заметки

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

Адрес, переданный методу Ping, должен быть разрешен DNS и в начале его не может быть указано "http://".

Задачи

В приведенной ниже таблице показаны примеры задач, в которых используется метод My.Computer.Network.Ping.

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

Пример

В этом примере определяется, можно ли проверить связь с сервером при помощи сравнения возвращаемого значения метода Ping с True.

If My.Computer.Network.Ping("198.01.01.01") Then
   MsgBox("Server pinged successfully.")
Else
   MsgBox("Ping request timed out.")
End If

Замените адрес "198.01.01.01" на IP-адрес, URL-адрес или имя сервера для проверки связи.

В этом примере определяется, можно ли проверить связь с сервером при помощи сравнения возвращаемого значения метода Ping с True, также указывается интервал времени ожидания 1000 миллисекунд.

If My.Computer.Network.Ping("www.cohowinery.com",1000) Then
   MsgBox("Server pinged successfully.")
Else
   MsgBox("Ping request timed out.")
End If

Замените адрес "www.cohowinery.com" на IP-адрес, URL-адрес или имя сервера для проверки связи.

Требования

Пространство имен:Microsoft.VisualBasic.Devices

Класс:Network

Сборка: библиотека времени выполнения Visual Basic (в Microsoft.VisualBasic.dll)

Доступность по типу проекта

Тип проекта	Доступность
Приложение Windows	Да
Библиотека классов	Да
Консольное приложение	Да
Библиотека элементов управления Windows	Да
Библиотека веб-элементов управления	Да
Служба Windows	Да
Веб-узел	Да

Разрешения

Могут потребоваться следующие разрешения.

Разрешение	Описание
FileIOPermission	Определяет возможность доступа к файлам и папкам. Связанное перечисление: Unrestricted.
SecurityPermission	Описывает набор разрешений безопасности, примененных к коду. Связанное перечисление: ControlPrincipal.
WebPermission	Управляет правами доступа к Интернет-ресурсам HTTP. Связанное перечисление: Unrestricted.
SocketPermission	Управляет правами на установление или принятие соединений для транспортного адреса. Связанное перечисление: Unrestricted.
PerformanceCounterPermission	Управляет доступом к компоненту счетчика производительности Windows NT. Связанное перечисление: Unrestricted.
NetworkInformationPermission	Управляет доступом к информации о сети и статистике трафика для локального компьютера. Связанное перечисление: Ping.