Usando de ping em um aplicativo de rede ajuda a falhas de conexão limite e erros. Ping é um processo no qual o computador envia um sinal para um outro computador . Este computador pode ser um servidor de um domínio inteiramente separada , ou pode ser um computador na rede local . O uso da classe de ping no Microsoft Visual Basic permite que o aplicativo para saber se o computador está presente. Se o ping não é capaz de encontrar o computador especificado, o programador pode usar códigos de erro para exibir um aviso para o usuário. Instruções
1
Abra um novo arquivo de formulário. Em sua área de trabalho do Visual Studio, clique com o botão direito do mouse no nome do projeto na caixa de ferramentas Solution Explorer. Selecione Adicionar formulário . Uma nova forma aparece na sua área de trabalho.
2
Defina o endereço IP ou nome de domínio do computador que você deseja executar ping . O código a seguir atribui uma variável com um endereço de IP set. A variável tempo de espera informa ao computador quando parar de procurar por uma resposta da máquina remota .
Dim myip As String = " 192.168.0.1" Dim TimeOutValue As Integer = 120
3
Alocar memória para a classe ping. Antes de usar a classe de ping , ele precisa ser chamado e salvo em uma variável .
Dim PingComputer Como Ping = Novo Ping ( )
4
Ping do computador. O código a seguir usa o método de envio para o ping do endereço IP designado no passo 2.
Dim theReply Como PingReply = pingComputer.Send ( myip )
5
Verifique se o comando foi bem sucedido . Uma resposta bem sucedida é devolvido para a propriedade Status na variável theReply . O código abaixo é enrolado em torno do código que diz ao aplicativo o que fazer se o computador na rede respondeu .
Se theReply.Status = IPStatus.Success
End If
< br > 6
Mostrar a resposta . O código abaixo mostra a resposta para o console somente se o ping foi bem sucedido
Se theReply.Status = IPStatus.Success
Console.WriteLine (" IP: {0}" . , TheReply . Address.ToString ()) Console.WriteLine (" tempo de viagem: {0}" , theReply.RoundtripTime )
End If
