21 de agosto de 2002

¿Cómo saber si el equipo está conectado a Internet?

Una simple llamada a esta función puede resolverlo.

Tomado del news de microsoft en ingles;

? IsInternetActive()

***********************************
Function IsInterNetActive (tcURL)
***********************************
* PARAMETERS: URL, no olvidar pasar la URL completa, con http:// al inicio
* Retorna .T. si hay una conexion a internet activa
*Tekno
*Wireless Toyz
*Ypsilanti, Michigan
***********************************
tcURL = IIF(TYPE("tcURL")="C" AND !EMPTY(tcURL),tcURL,"http://www.yahoo.com")

  DECLARE INTEGER InternetCheckConnection in wininet;
                    STRING lpszUrl,;
                    INTEGER dwFlags,;
                    INTEGER dwReserved

    RETURN ( InternetCheckConnection(tcURL, 1, 0) == 1)
ENDFUNC
***********************************
Esparta Palma

No hay comentarios. :

Publicar un comentario