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 de Víctor Arturo Mercado Fernández
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...
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...
