Function InternetOK Lparameters lcmyFastLoadedSite #define FLAG_ICC_FORCE_CONNECTION 0x01 If Pcount()=0 lcmyFastLoadedSite = "192.168.0.131" && Replace with the IP of the server. EndIf DECLARE INTEGER InternetCheckConnection IN wininet STRING lpszUrlSTRING, INTEGER dwFlags, INTEGER dwReserved Return InternetCheckConnection(lcmyFastLoadedSite,FLAG_ICC_FORCE_CONNECTION,0)=1