How about:
DECLARE INTEGER InternetAttemptConnect IN WinInet.dll STRING
if InternetAttemptConnect("")<1
endif>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
Imagination is more important than knowledge
