FoxPro/Visual FoxPro - Checar si hay Internet

Hola que tal caballeros, tengo una duda, quiero saber si hay conexion a internet desde fox, vi en post pasados y vi un codigo de mi "Tocayo" el cual funciona perfectamente, lo meti a un PRG y funciona bien, pero el problema es el siguiente:

Como puedo adquirir el resultado de ese prg a mi form?
aqui les mando el codigo:

CheckInternetConnection("http://10.0.3.3") && es la ip de mi servidor
FUNCTION CheckInternetConnection
LPARAMETERS tcWebAddress
local _internet as Character (150)
DECLARE Integer InternetCheckConnection ;
IN WININET.DLL ;
String Url, Long dwFlags, Long Reserved
IF InternetCheckConnection(tcWebAddress,1,0) # 0
_internet="Si"
* MESSAGEBOX("si")
ELSE
_internet="No"
* MESSAGEBOX("no")
ENDIF

Si nos fijamos bien, la variable _internet se guarda el resultado, pero como lo puedo obtener ese resultado desde mi form para hacer comparaciones con un IF desde un form.

Gracias!!!

crea la funcion en tu proyecto y solo quita lo ultimo

IF InternetCheckConnection(tcWebAddress,1,0) # 0
_internet="Si"
* MESSAGEBOX("si")
ELSE
_internet="No"
* MESSAGEBOX("no")
ENDIF

y eso es lo que usaras en tu forma

o solo usa

CheckInternetConnection("http://10.0.3.3")

Suerte

hola que tal tocayo, fijate que le hice de la primera forma de la que mencionas y me sale el error de: Variable tcWebAdrees not found, lo que necesito es obtener el resultado _internet en mi form, gracias por tu ayuda...

ponle una direccion de internet valida

Negativo tocayo, aver deja ver si entendi
en el prg tengo esto:

CheckInternetConnection("http://www.microsoft.com")
FUNCTION CheckInternetConnection
LPARAMETERS tcWebAddress
local _internet as Character (150)
DECLARE Integer InternetCheckConnection ;
IN WININET.DLL ;
String Url, Long dwFlags, Long Reserved

y en mi boton de mi form tengo esto:

SET PROCEDURE TO internet
WITH thisform
IF InternetCheckConnection(tcWebAddress,1,0) # 0
_internet="Si"
ELSE
_internet="No"
ENDIF
ENDWITH

cuando ejecuto mi boton me sale el error mencionado de que la variable tcWebAddress no fue encontrada.

saludos !!!

FUNCTION CheckInternetConnection
LPARAMETERS tcWebAddress
local _internet as Character (150)
DECLARE Integer InternetCheckConnection ; && InternetCheckConnection?? O CheckInternetConnection ??

IN WININET.DLL ;
String Url, Long dwFlags, Long Reserved

SET PROCEDURE TO internet
WITH thisform
IF InternetCheckConnection(tcWebAddress,1,0) # 0 && InternetCheckConnection?? O CheckInternetConnection ??

_internet="Si"
ELSE
_internet="No"
ENDIF
ENDWITH

Nel tocayo, me sige marcando el mismo error,, mira, si pongo la rutina completa en un prg si lo hace perfecto, pero lo que yo ocupo es que el resultado me lo guarde en una variable, y que esa misma variable la pueda usar en cualquer form de mi proyecto.

Gracias por tener paciencia Tocayo!

Puedes ver esta funcion tambien
DECLARE SHORT InternetGetConnectedState IN wininet;
INTEGER @ lpdwFlags,;
INTEGER dwReserved
conectada= InternetGetConnectedState (1,0)

Perfecto Plinio, ya kedo muchas gracias, funciono de maravillas, una duda mas, sabes como hacer para que repare la conexion de internet?

Hay que buscar el API, pero hay algunas cosas que se deben tomar en cuenta
1- Tipo de conexion que usas
2- Ver si el api es accesible
3- Indicar primero la conexcion.