En web funciona perfectamente, solo tienes que hacer el import de "System.Net.NetworkInformation"
Luego creas la función, le pasas la dirección que quieras por parámetro y listo.
Código vb:
Ver originalPublic Shared Function verificar_conexion(ByVal direccion As String) As String
Dim mensaje As String
If My.Computer.Network.IsAvailable() Then
Try
If My.Computer.Network.Ping(direccion, 1000) Then
mensaje = "Conecion a " & direccion & " Exitosa"
Else
mensaje = "Error de conexión con la página" & direccion
End If
Catch ex As PingException
mensaje = "Error de conexión."
End Try
Else
mensaje = "No conectado"
End If
Return mensaje
End Function
La lógica es simple, solo se le hace un ping a la dirección deseada para saber si existe conexión.