Condition of the site

[Natter]

Hi,

In the process of work, I turn to a certain site. Sometimes this site may not work or work very slowly. Is it possible to assess the condition of the site ?

[karinha]

Try this,

Code: Select all  Expand view  RUN

FUNCTION Verify_Site()

   LOCAL cIp, cVret := .F.

   WsaStartUp()

   cIp := GETHOSTBYNAME( "yoursite.com" )
   cIp := GETHOSTBYNAME( "yoursite.com" )

   WsaCleanUp()

   // Seguranca caso o provedor da microsoft esteja fora do ar...
   IF ( cIp <= "0.0.0.0" )

      ? "oooops!"

      WsaStartUp()

      cIp := GetHostByName( "otrosite.com" )
      cIp := GetHostByName( "otrosite.com" )

      WsaCleanUp()

   ENDIF

RETURN( cIp<>"0.0.0.0" )
 

Regards, saludos.

[Natter]

Thank you, Karinha, it works!
What are the WSAStartup/Wsacleanup functions for in this case?
Why prescribe 2 times:
cIp := GETHOSTBYNAME( "yoursite.com" )
cIp := GETHOSTBYNAME( "yoursite.com" )

[karinha]

Thank you, Karinha, it works!
What are the WSAStartup/Wsacleanup functions for in this case?
Why prescribe 2 times:
cIp := GETHOSTBYNAME( "yoursite.com" )
cIp := GETHOSTBYNAME( "yoursite.com" )

Good Morning. This was a tip on the FiveWin Brasil forum. Just to be on the safe side, in case the GETHOSTBYNAME() command fails. OK?

Regards, saludos.