[VB.net] Verifica accesso internet

[Vendaval]

Ciao a tutti,

sono convinto che il mio problema sia banele, ma ugualmente mi sta facendo spaccare la testa!!!

Al caricamento di una form io devo verificare che il PC abbia l'opportunità di uscire nella rete Internet sia direttamente che tramite rete interna. In caso affermativo abilito un pulsante, altrimenti lo disabilito.

Come posso fare? :master:

[r1cky`]

 
Public Function GotInternet() As Boolean
        Dim req As System.Net.HttpWebRequest
        Dim res As System.Net.HttpWebResponse
        GotInternet = False
        Try
            req = CType(System.Net.HttpWebRequest.Create("http://www.google.com"), System.Net.HttpWebRequest)
            res = CType(req.GetResponse(), System.Net.HttpWebResponse)
            req.Abort()
            If res.StatusCode = System.Net.HttpStatusCode.OK Then
                GotInternet = True
            End If
        Catch weberrt As System.Net.WebException
            GotInternet = False
        Catch except As Exception
            GotInternet = False
        End Try
    End Function

Questo è il modo semplice ed efficace che consiste nel fare un ping a un sito e valutarne la risposta. C'era poi un modo per verificarlo tramite le api di windows, ma purtroppo non lo trovo più... con una ricerca non dovrebbe essere difficile trovarlo.

[Vendaval]

Non potevi darmi di più!!!!

è meglio di ciò che speravo perchè così posso testare anche la raggiungibilità di un sito!

Grazie 1000