Detectar conexión

Como puedo hacer que en VB6 un programa detecte cuando la maquina este conectada a internet y cuando no lo este gracias de antemano

1 Respuesta

Respuesta
1
Este es el código que yo uso:
Private Declare Function Connection Lib "Wininet" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Integer, dwReserved As Integer) As Integer
Function IsInterNetActive()
IsInterNetActive = (Connection("http://www.yahoo.com", 1, 0) = 1)
End Function
Bueno, eso digo yo...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas