PINGAR SERVIDOR IP

DELPALMIS 21/07/2012 11:33:45
#406387
Bom pessoal sou novo no fórum e estou começando agora em VB.NET, Estou desenvolvendo uma aplicação e me surgiu uma dúvida.
Consegui obter a informação se um determinado IP ou site está ou não fora do ar.

Mais o que eu preciso mesmo seria verificar se está online e depois mostra o Ping desse servidor. Alguém poderia me da uma ideia de como fazer isso?!
OCELOT 21/07/2012 12:57:30
#406389 Resposta escolhida
Se você estiver usando o .Net 4.0 existe uma classe no framework para isso: http://msdn.microsoft.com/en-us/library/system.net.networkinformation.ping.aspx
RODRIGOBAHIA3 22/07/2012 03:33:35
#406417
Boa noite amigo

Pode fazer assim:

Public VPING As Boolean = My.Computer.Network.Ping([Ô]192.168.1.1[Ô]) [Ô]AQUI VOCE COLOCA O IP PARA DAR O PING[Ô]
if VPING = true then
messagebox.show([Ô]OK[Ô])
else
messagebox.show([Ô]A conexão falhou[Ô])
endif


Abraços espero ter ajudado
DELPALMIS 22/07/2012 12:23:37
#406420
Eu acho que a função que estou procurando e a OCELOT disse. Mais ainda não consigui faz-la imprimir numa label o ping.

Preciso que ela exiba:

IP: 192.168.1.101 Ping: 80 ms
PEGUDO 23/07/2012 08:34:09
#406432
para saber se o site está fora do ar ou não, você pode fazer como mostra este tópico:
Tópico: Saber se o site está fora do ar

Para tentar o ping, tente:

Imports System.Net
Imports System.Net.NetworkInformation

No click do botão:

        Dim Ping As Ping = New Ping()
        Dim PingReply As PingReply = Ping.Send([txt-color=#e80000][Ô]www.vbmania.com.br[Ô][/txt-color])
        If PingReply.Status <> IPStatus.Success Then
            Console.Write([txt-color=#e80000][Ô]Serviço fora do ar[Ô][/txt-color])
        End If
        MsgBox(PingReply.Address.ToString)
DELPALMIS 23/07/2012 17:12:01
#406469
Obrigado Amigos. Consegui o que queria.

Usei a seguinte maneira.

  Dim pingar As Ping = New Ping()
Dim rping As Ping = pingar.Send([Ô]192.168.1.10[Ô])
        If rping.Status <> IPStatus.Sucess Then
               MsgBox([Ô]Servidor fora do ar[Ô])
        Else
               MsgBox([Ô]Tempor de Resposta: [Ô] & rping.RoundtripTime.ToString & [Ô] ms[Ô])
        End If
PEGUDO 24/07/2012 08:48:27
#406495
Ok.
Que bom que conseguiu resolver.
Não esqueça de fechar o tópico para que o mesmo não fique constando como não resolvido.
Tópico encerrado , respostas não são mais permitidas
Voltar