>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)=1thank you