Function InternetOK Lparameters lcmyFastLoadedSite #define FLAG_ICC_FORCE_CONNECTION 0x01 If Pcount()=0 lcmyFastLoadedSite = "http://www.dir.bg" EndIf DECLARE INTEGER InternetCheckConnection IN wininet STRING lpszUrlSTRING, INTEGER dwFlags, INTEGER dwReserved Return InternetCheckConnection(lcmyFastLoadedSite,FLAG_ICC_FORCE_CONNECTION,0)=1