Hi
How to check or know this web site page live or dead?
#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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 39 guests