>>>Hi Gang!
>>>
>>>Do you have guys have any suggestions for code or utilities to use in VFP to check if the Internet is UP to a certain URL (able to connect to the site) and return this info to VFP?
>>>
>>>Thanks!
>>
>>Check Re: How to check the DSL Internet connectivity Thread #1072195
>>
>>You can also just try to instantiate IE and see the document response if you need to check for a specific site.
>
>Cetin had this code in the thread...
>
>*********************************************
>Declare integer InternetCheckConnection in wininet.dll ;
> string lpszUrl, integer dwFlags, integer dwReserved
>return ( InternetCheckConnection("http://www.microsoft.com",1,0) != 0) && use a fast&near host
>Cetin
>Çetin Basöz
>MS Foxpro MVP, MCP
>*********************************************
>
>Does anyone know if this works if you substitute the Internet Address for the URL???
>
>e.g.
>return ( InternetCheckConnection("http://208.237.158.79",1,0) != 0) && use a fast&near
>
>Thanks!

Yes, it does work. I re-tested.

CLEAR
#define FLAG_ICC_FORCE_CONNECTION 0x01

DECLARE INTEGER InternetCheckConnection IN wininet STRING lpszUrlSTRING, INTEGER dwFlags, INTEGER dwReserved
myFastLoadedSite = "http://www.levelextreme.com"
* google.com
myFastLoadedSite = [http://64.233.169.99]
? InternetCheckConnection(myFastLoadedSite,FLAG_ICC_FORCE_CONNECTION,0)

myFastLoadedSite = "http://www.universalthread_error.com"
? InternetCheckConnection(myFastLoadedSite,FLAG_ICC_FORCE_CONNECTION,0)

lcHostName = "www.google.com"    

  lcCommand = "%comspec% /c ping " + lcHostName + " -n 1 > ping.log"      
  loWshShell = CREATEOBJECT("WScript.Shell")        
  loWshShell.RUN(lcCommand, 0, .T.)         

  lcPing = filetostr("ping.log")

** To view the result
  _cliptext = m.lcPing
  =MESSAGEBOX(m.lcPing)