>>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>