Registrado: Sep 21, 2004 Mensajes: 42 Ubicación: Lima
Publicado: 20/05/2005 04:04:14 pmAsunto:
Hola. Una forma sencilla es llamar a la función API InternetGetConnectedState, que devuelve 1 si hay conexión y 0 si no la hay.
Código:
'Declaración
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
'Ejemplo.
Private Sub CompruebaConexión()
If InternetGetConnectedState(0&, 0&) = 0 Then
MsgBox "No hay conexión"
Else
MsgBox "Hay conexión"
End If
End Sub
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro