Classe PING

sabato 08 aprile 2006 - 10.41

Marc1982 Profilo | Newbie

BUongiorno a tutti,
il mio problemino è il seguente:
Ho fatto un piccolo programma che esegue una serie di ping su alcune macchine esterne e alcuni siti, tutto funziona perfettamente fino a quando inserisco un sito vero, cioè se inserisco un sito:"www.lkiopjnbhgui.com" invece di tornarmi host non riconosciuto o roba del genere mi generaun eccezione che ho cercato di intercettare, come posso ovviare a questo...subito sotto posto la funzine che utilizzo:

Function EseguiPing(ByVal Host As String) As Boolean
Dim Flag As Boolean = True
Dim PI As New Ping
Try
Dim Replay As PingReply = PI.Send(Host)
If Replay.Status <> IPStatus.Success Then
Flag = False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return Flag
End Function

DIMENTICAVO la scessa cosa la fa se scollego il cavo di rete del mio PC e quindi non può eseguire i ping verso l'esterno ma penso che mi avrebbe dovuto sempre riportare HOST sconosciuto.

Aiutatemi
Grazi
Marco

Brainkiller Profilo | Guru

>BUongiorno a tutti,
>il mio problemino è il seguente:
>Ho fatto un piccolo programma che esegue una serie di ping su
>alcune macchine esterne e alcuni siti, tutto funziona perfettamente
>fino a quando inserisco un sito vero, cioè se inserisco un sito:"www.lkiopjnbhgui.com"
>invece di tornarmi host non riconosciuto o roba del genere mi
>generaun eccezione che ho cercato di intercettare, come posso
>ovviare a questo...subito sotto posto la funzine che utilizzo:

Non capisco dov'è il problema ? Tutto ciò che non va correttamente all'interno del Try Catch viene protetto. Io fossi in te prima di fare il Ping farei un Dns.GetHostByName che fa una risoluzione DNS.
Se l'host non esiste ti da' un'eccezione più specifica. In questo modo blocchi l'esecuzione senza eseguire il ping.
ciao

David De Giacomi
Microsoft MVP
http://blogs.dotnethell.it/david/
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5