Checar si hay Internet
Publicado por Ernesto Ruiz (134 intervenciones) el 06/08/2007 19:59:02
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!!!
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!!!
Valora esta pregunta
0