Chequear si una conexión a internet esta activa

La mejor manera para chequear si una conexión a Internet se encuentra disponible es beneficiarse de un acceso PING. He aquí una función pequeña que recibe una dirección de servidor como parámetro para chequear si una conexión a Internet se encuentra disponible. Nótese que puede ser que usted quiera especificar otra dirección de servidor y así asegurarse probando con otro servidor

? CheckInternetConnection("http://www.google.com")

FUNCTION CheckInternetConnection
LPARAMETERS tcWebAddress
DECLARE Integer InternetCheckConnection ;
   IN WININET.DLL ;
   String Url, Long dwFlags, Long Reserved
IF InternetCheckConnection(tcWebAddress,1,0) # 0
   RETURN .T.
ELSE
   RETURN .F.
ENDIF