>>local m.url,m.Result >>m.url="https://www.levelextreme.com/ViewPageGenericLogin.aspx" >> >>DECLARE INTEGER InternetCheckConnection IN wininet STRING lpszUrl, INTEGER dwFlags, INTEGER dwReserved >>#DEFINE FLAG_ICC_FORCE_CONNECTION 1 >> >>LOCAL llResult >>m.lResult = (InternetCheckConnection(m.URL, FLAG_ICC_FORCE_CONNECTION, 0) = 1) >>if m.lResult=.t. >>messagebox("Valid URL",0+32+4096,'',1000) >>else >>messagebox("inValid URL",0+32+4096,'',1000) >>endi >>>>