>declare integer InternetAttemptConnect in wininet.dll integer > >Connected = empty(InternetAttemptConnect(0)) >>
DECLARE INTEGER InternetAttemptConnect IN WinInet.dll STRING >>if InternetAttemptConnect("")<1 >> * You're connected! >>endif>>
>>>FUNCTION CheckInternetConnection >>>LPARAMETERS tcWebAddress >>>DECLARE Integer InternetCheckConnection; >>> IN WININET.DLL; >>> String Url, Long dwFlags, Long Reserved >>> RETURN (InternetCheckConnection(tcWebAddress,1,0)<>0) >>>ENDFUNC >>> >>>>>>
>>>? 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