como detecto conexion?

[Nahuel]

Como hago para saber si la maquica esta conectada a internet. Solo eso.

gracias :)

[Pskrysto]

Fijate que tenga en el Tray (al lado del reloj) en la barra de inicio, DOS COMPUTADORAS.

If Flag = True then
Msgbox "ESTAS CONECTADO.", vbinformation
else
Msgbox "ESTAS OUT.",vbCritical
End If

Saludos!

[sdnsdlm]

De Microsoft:

'Function Name: InternetGetConnectedState
'Goal: Retrieves the connected state of the local system.
'Returns: Returns TRUE if there is an Internet connection, FALSE otherwise.
'Arguments
'lpdwFlags: Address of a double-word variable where the connection
' description should be returned. Can be a combination of
' the following values:
' INTERNET_CONNECTION_MODEM Local system uses a modem
' to connect to the Internet.
' INTERNET_CONNECTION_LAN Local system uses a local
' area network to connect to
' the Internet.
' INTERNET_CONNECTION_PROXY Local system uses a proxy
' server to connect to the Internet.
' INTERNET_CONNECTION_MODEM_BUSY Local system's modem is busy
' with a non-Internet connection.

'dwReserved: Reserved. Must be set to zero.

Así que:

Public Declare Function _
InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Long