FUNCTION ConnectedToInternet(pcProxy) LOCAL xnAccessType, xlConnected, xnH, xnConnState *** pcProxy has to be [PROXY] or empty *** requires >= IE4 (wininet.dll) *** returns .T. for connected or .F. offline or failed #define INTERNET_OPEN_TYPE_DIRECT 1 #define INTERNET_OPEN_TYPE_PROXY 3 declare Integer InternetOpen IN "WinInet.dll"; string sAgent, long lAccessType, string sProxyName, string sProxyBypass, long lFlags declare Integer InternetGetConnectedState IN WinInet Integer @nContext, Integer nFlags declare Integer InternetCloseHandle IN WinInet Integer nHandle IF PCount() = 0 pcProxy=[DIRECT] ELSE pcProxy=Upper(Transform(pcProxy)) ENDIF xnAccessType=iif( ([PROXY] $ pcProxy), INTERNET_OPEN_TYPE_PROXY, INTERNET_OPEN_TYPE_DIRECT ) xlConnected=.F. xnH=InternetOpen(Program(0), xnAccessType, [], [], 0) IF xnH > 0 && Inet open succeeded xnConnState=0 xlConnected=(InternetGetConnectedState(@xnConnState, 0) <> 0) InternetCloseHandle(xnH) ENDIF RETURN xlConnected
او
FUNCTION IsInternet (cURL as String) DECLARE INTEGER InternetCheckConnection IN wininet STRING lpszUrl, INTEGER dwFlags, INTEGER dwReserved #DEFINE FLAG_ICC_FORCE_CONNECTION 1 ANSWER = InternetCheckConnection(cURL,FLAG_ICC_FORCE_CONNECTION, 0) && answer = 0 NO Internet, 1 = Yes Internet IF answer = 1 then answer = .t. ELSE answer = .f. endif RETURN answer ENDFUNC
