Saber si estas conectado a Internet o no?

[rjh71]

hola amigos del foxeros,

hay alguna forma de comprobar si la pc esta haciendo uso de conexion al internet?,

se puede hacer algo al respecto?,

saludos,

rudolf heiner.

[Luis Maria Guayan]

Mira si esto te ayuda:

DECLARE LONG InternetAttemptConnect IN "wininet" LONG dwReserved

IF InternetAttemptConnect(0) = 0
  ? "El Equipo puede Conectarse a Internet"
ELSE
  ? "El equipo no puede conectarse a internet"
ENDIF

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 
 

[Hugo]

DECLARE LONG InternetGetConnectedState IN "wininet.dll" LONG lpdwFlags, LONG dwReserved
IF     InternetGetConnectedState(0, 0) = 1 THEN
    * El equipo está conectado a Internet
    RETURN .T.
ELSE
    * El equipo NO está conectado a Internet
    RETURN .F.
ENDIF

[Rudolf Johann Heiner]

saludos luis maria,

el codigo que me enviastes no funciono en windows 7,

pero,

el codigo de hugo si,

ya se puede detectar si estas con internet o no,

muchas gracias amigos,

saludos y bendiciones,

rudolf heiner.

[Hector Kuhn]

* Retorna .T. si hay una conexion a internet activa
  DECLARE INTEGER InternetCheckConnection in wininet;
                    STRING lpszUrl,;
                    INTEGER dwFlags,;
                    INTEGER dwReserved


Function IsInterNetActive
PARAMETERS tcURL
* PARAMETERS: URL, no olvidar pasar la URL completa, con http:// al inicio
* Retorna .T. si hay una conexion a internet activa

tcURL = IIF(TYPE("tcURL")="C" AND !EMPTY(tcURL),tcURL,"http://www.yahoo.com")

RETURN ( InternetCheckConnection(tcURL, 1, 0) == 1)
ENDFUNC

Creo que lo saque de portalfox

--
 
 
 

[Adrian Foros]

Disculpen, pero si aplico este codigo y tenngo conexion a internet trabaja correctamente, pero si la apago y corro el programa de nuevo, me sigue diciendo que estoy conectado a internet, que puedo hacer para que me de el status correcto?

 

 

Saludos

--