none
Efetuar Ping Obtendo O Resultado Como MS RRS feed

  • 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

    quarta-feira, 4 de junho de 2014 01:41

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.

    quarta-feira, 4 de junho de 2014 19:48

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.

    quarta-feira, 4 de junho de 2014 19:48
  • Nossa, legal essa hein Ricardo.
    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

    sexta-feira, 6 de junho de 2014 15:48