Fala, galera!!
Segue um código para executar uma operação de ping em um endereço remoto.
Essa funcionalidade é útil para testar a disponibilidade de um determinado serviço.
Dim Ping As Ping = New Ping()
Dim PingReply As PingReply = Ping.Send("127.0.0.1")
If PingReply.Status <> IPStatus.Success Then
Response.Write("Serviço fora do ar")
End If
É necessário importar os seguintes Namespaces:
Imports System.net
Imports System.net.NetworkInformation
Um abraço e até próxima!!
Assinar:
Postar comentários (Atom)
Broder ele não reconhece o tipo ping
ResponderExcluirDim pingSender As ping = New ping
type expected
o que eu faço ?
por favor me ajude
neocan8@Hotmail.com
Olá Felipe,
ResponderExcluirimporte as classes System.Net e system.net.NetworkInformation
Abraços!
Simples e funcional gostei do artigo
ResponderExcluirOi
ResponderExcluirSimples e funcional gostei do artigo.
Me ajudou bastante.
Abraço
Response.write("Serviço fora do ar")
ResponderExcluircara essa linha no response não está aceitando
Olá Lucas,
ExcluirColoque o "W" em maiúsculo. O correto é "Response.Write"
Estou editando o artigo.
Abraços,
Rafael