Partilhar via


Como: Determinar se um computador remoto está disponível no Visual Basic

Você pode usar o Método My.Computer.Network.Ping para determinar se um computador remoto ou host está disponível.O servidor pode ser especificado pela URL, nome do computador, ou endereço de IP.Não inclua http:// ao especificar uma URL.

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

Observação:

As opções disponíveis nas caixas de diálogo, e os nomes e localizações dos comandos de menu que você vê, podem diferir do que é descrito na ajuda, dependendo das suas configurações ativas ou edição.Esta página Ajuda foi escrita com Configurações Geral de desenvolvimento em mente.Para alterar as configurações, escolher Importar e exportar configurações on the Ferramentas menu.Para obter mais informações, consulte Configurações do Visual Studio.

Efetuando ping em um servidor

  • Determine se o método Ping retorna True.Este exemplo reporta se o servidor pode ou não ser pingado, determinando se o método Pingretorna True.Substitua 198.01.01.01 pelo endereço de IP, URL, ou nome do computador do servidor onde se quer fazer o ping.

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

Para efetuar um ping em um servidor e especificar um tempo limite

  • Determine se o método Ping returna True, especificando o intervalo de tempo limite em milissegundos.Se nenhum tempo limite é especificado, 500 é usado como padrão.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.Substitua www.cohowinery.com pelo endereço de IP, URL, ou nome do computador do servidor onde se quer fazer o ping.

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

Consulte também

Tarefas

Como: Verifique o status de conexão no Visual Basic

Referência

Objeto My.Computer.Network

Meu.Computador.Membros Objeto da Rede

Método My.Computer.Network.Ping