Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Check for Internet being UP.
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01229275
Message ID:
01229305
Vues:
22
>>>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!
>>
>>Can you somehow emulate a PING command in VFP?
>
>I was wondering that earlier......

From AlexSS in Russian foxclub web-site:
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
  =MESSAGEBOX(m.lcPing)
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform