Verificar Conexion Internet con VB.NET

Muchas veces nuestra aplicacion .NET debe verificar si tiene una conexión a internet activa, la siguiente función nos devuelve True si hay conexión o False si no hay conexión.

Código VB.NET

Public Function isOnline() As Boolean
Dim Url As New System.Uri(“http://www.google.com/”)
Dim oWebReq As System.Net.WebRequest
oWebReq = System.Net.WebRequest.Create(Url)
Dim oResp As System.Net.WebResponse
Try
oResp = oWebReq.GetResponse
oResp.Close()
oWebReq = Nothing
Return True
Catch ex As Exception
oResp.Close()
oWebReq = Nothing
Return False
End Try
End sub

1. Public Function IsConnectionAvailable() As Boolean
3. Dim objUrl As New System.Uri(“http://www.yoursite.com/”)
4. Dim objWebReq As System.Net.WebRequest
5. objWebReq = System.Net.WebRequest.Create(objUrl)
6. Dim objResp As System.Net.WebResponse
7. Try
8. objResp = objWebReq.GetResponse
9. objResp.Close()
10. objWebReq = Nothing
11. Return True
12. Catch ex As Exception
13. objResp.Close()
14. objWebReq = Nothing
15. Return False
16. End Try
17. End sub