Usuário com melhor resposta
Efetuar Ping Obtendo O Resultado Como MS

Pergunta
-
Bem, tentei varios códigos para tentar pelo menos obter sucesso em um ping, só que meu computador não consegue fazer o ping mesmo em modo administrador.
Meu programa tem de fazer um ping, e obter o resultado sendo quando demora para o servidor responder ate você (ms)
Tentei códigos aqui do forum mais sempre não da o ping .-.
Código que tentei:
If My.Computer.Network.IsAvailable Then 'Verifica se a rede está disponivel Try If My.Computer.Network.Ping(http://www.msdn.com.br) Then MsgBox("OK.") Else MsgBox("Fora do Ar") End If Catch ex As Exception MsgBox(ex.Message) End Try Else MsgBox(" Rede Indisponível") End If
Jpdante - Iniciante em VB.NET
Respostas
-
Dim Ip As String = "www.google.com." If My.Computer.Network.IsAvailable Then Dim ping As New System.Net.NetworkInformation.Ping Dim ms = ping.Send(Ip).RoundtripTime() Else 'Add code End If End Sub
Veja se te ajuda,
Até mais,
TP.
- Sugerido como Resposta Ricardo Barbosa Cortes quinta-feira, 5 de junho de 2014 12:47
- Marcado como Resposta Ricardo Barbosa Cortes sexta-feira, 6 de junho de 2014 13:07
Todas as Respostas
-
Dim Ip As String = "www.google.com." If My.Computer.Network.IsAvailable Then Dim ping As New System.Net.NetworkInformation.Ping Dim ms = ping.Send(Ip).RoundtripTime() Else 'Add code End If End Sub
Veja se te ajuda,
Até mais,
TP.
- Sugerido como Resposta Ricardo Barbosa Cortes quinta-feira, 5 de junho de 2014 12:47
- Marcado como Resposta Ricardo Barbosa Cortes sexta-feira, 6 de junho de 2014 13:07
-
Nossa, legal essa hein Ricardo.
- Editado SammuelMiranda quinta-feira, 5 de junho de 2014 19:02
-
Pronto meu código ficou assim:
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim Ip As String = "192.198.92.222" If My.Computer.Network.IsAvailable Then Dim ping As New System.Net.NetworkInformation.Ping Dim ms = ping.Send(Ip).RoundtripTime() Label1.Text = ms Else MessageBox.Show("Erro: Sem Conecxão com a internet!") Timer1.Stop() End If End Sub
Obrigado :D
Jpdante - Iniciante em VB.NET