Nice and pretty short !! :-)
>How about:>DECLARE INTEGER InternetAttemptConnect IN WinInet.dll STRING
>if InternetAttemptConnect("")<1
> * You're connected!
>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
