Efetuar Ping Obtendo O Resultado Como MS

Question

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

Answer 1

     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.

Answer 2

Nossa, legal essa hein Ricardo.

Answer 3

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