Nice code, let's save a couple of lines:
FUNCTION CheckInternetConnection
LPARAMETERS tcWebAddress
DECLARE Integer InternetCheckConnection;
IN WININET.DLL;
String Url, Long dwFlags, Long Reserved
RETURN (InternetCheckConnection(tcWebAddress,1,0)<>0)
ENDFUNC
>How does one check for Internet Connectivity from within a Visual FoxPro 8 Application. - Some sample code would be most helpful.
>>
>Hello Mahmud
>Here is one:? CheckInternetConnection('http://www.microsoft.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>Hope this helps
>Claudio
