How to Check web site

[richard-service]

Hi
How to check or know this web site page live or dead?

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

? HB_PING( "www.google.com" )

EMG

[horacio]

Hello Enrico, is it a function of xHarbour?

Saludos

[Enrico Maria Giordano]

Yes.

EMG

[karinha]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

Function PingFw( URL )

   LOCAL Hosts
   LOCAL wRet := .T.

   InetInit()
 
   If Empty( URL )

      URL := "www.google.com"

   Endif

   Hosts := InetGetHosts( URL )

   IF Hosts = nil .or. len(Hosts) = 0

      wRet := .F.

   Endif

   InetCleanup()

   ?  wRet

Return wRet