Método My.Computer.Network.Ping

Artigo
08/25/2010

Pinga o servidor específico

' 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

Parâmetros

hostNameOrAddress
String.A URL, nome do computador ou número de IP do servidor ping.Obrigatório.
address
Uri.O URI do servidor ping.Obrigatório.
timeout
Int32.time limite em milissegundos para entrar em contato com o destino.O padrão é 500.Obrigatório.

Valor de retorno

Boolean indicando se a operação foi bem sucedida ou não.

Exceções

As seguintes condições podem causar uma exceção:

Nenhuma conexão de rede disponível ()InvalidOperationException.
URL não fio válida ()PingException.

Comentários

The Ping método não é um método sem falhas para determinar a disponibilidade de um computador remoto: a porta ping no computador de destino pode ser desativada ou a solicitação de ping pode ser bloqueada por um firewall ou roteador.

O endereço passado ao método Ping tem que ser compatível com DNS e não pode ser precedido por "http://".

Tarefas

A tabela a seguir lista exemplos de tarefas envolvendo o método My.Computer.Network.Ping.

Para	Consulte
Determinar se um computador ou host remoto está disponível	Como: Determinar se um computador remoto está disponível no Visual Basic

Exemplo

Este exemplo reporta se o servidor pode ou não ser pingado determinando se o método Pingretorna True.

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

Substitua "198.01.01.01" pelo endereço de IP, URL, ou nome do computador do servidor onde se quer fazer o ping.

Este exemplo informa se o servidor pode ser pingado ou não determinando se o método Ping retornou True e especifica um intervalo limite de 1000 milisegundos.

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

Substitua "www.cohowinery.com" pelo endereço de IP, URL, ou nome do computador do servidor onde se quer fazer o ping.

Requisitos

Namespace:Microsoft.VisualBasic.Devices

Classe:Network

Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

Disponibilidade por Tipo de Projeto

Tipo de Projeto	Disponível
Aplicativo do Windows	Sim
Biblioteca de Classe	Sim
Aplicativo de Console	Sim
Biblioteca de Controle do Windows	Sim
Biblioteca de Controle da Web	Sim
Serviço do Windows	Sim
Site	Sim

Permissões

As seguintes permissões podem ser necessárias:

Permissão	Descrição
FileIOPermission	Controla a habilidade de acesso a arquivos e pastas.Enumeração associada: Unrestricted.
SecurityPermission	Descreve uma série de permissões de seguranças aplicadas ao código.Enumeração associada: ControlPrincipal.
WebPermission	Controla os direitos de acesso aos recursos de internet HTTP.Enumeração associada: Unrestricted.
SocketPermission	Controla os direitos de fazer ou aceitar conexões num endereço de transporte.Enumeração associada: Unrestricted.
PerformanceCounterPermission	Controla o acesso ao componente de medição de performance do Windows NT.Enumeração associada: Unrestricted.
NetworkInformationPermission	Controla o acesso a informações da rede e estatísticas de tráfego para o computador local.Enumeração associada: Ping.