Programación General > Visual Basic 6.0 e inferiores

 Controlar Conexion A Internet

(1/1)

pizkunov:
Hola Gente

Estoy haciendo una aplicacion que se conecta a un servidor remoto, por medio del control Inet de Vb6.

¿Existe alguna maner  de saber si la computadora está o no conectada a Internet?.

Desde ya muchas gracias.

Cyclop:
Esto encontre en ALLAPI


--- Código: Text ---Private Const INTERNET_CONNECTION_CONFIGURED = &H40Private Const INTERNET_CONNECTION_LAN = &H2Private Const INTERNET_CONNECTION_MODEM = &H1Private Const INTERNET_CONNECTION_OFFLINE = &H20Private Const INTERNET_CONNECTION_PROXY = &H4Private Const INTERNET_RAS_INSTALLED = &H10Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Form_Load()    'KPD-Team 2001    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    Dim Ret As Long    Me.AutoRedraw = True    'retrieve the connection status    InternetGetConnectedState Ret, 0&    'show the result    If (Ret And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then Me.Print "Local system has a valid connection to the Internet, but it may or may not be currently connected."    If (Ret And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then Me.Print "Local system uses a local area network to connect to the Internet."    If (Ret And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then Me.Print "Local system uses a modem to connect to the Internet."    If (Ret And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then Me.Print "Local system is in offline mode."    If (Ret And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then Me.Print "Local system uses a proxy server to connect to the Internet."    If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then Me.Print "Local system has RAS installed."End Sub  
Salu2

Navegación

[0] Índice de Mensajes