the flwg code (not my own) should help you -
>#define FLAG_ICC_FORCE_CONNECTION 0x01
>
>DECLARE INTEGER InternetCheckConnection IN wininet STRING lpszUrlSTRING, INTEGER dwFlags, INTEGER dwReserved
>myFastLoadedSite = "
http://www.dir.bg"
>? InternetCheckConnection(myFastLoadedSite,FLAG_ICC_FORCE_CONNECTION,0)