Least expensive way to know whether connected to internet

Board index FiveWin for Harbour/xHarbour Least expensive way to know whether connected to internet

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Least expensive way to know whether connected to internet

Posted: Fri Oct 07, 2011 03:20 AM

Hi guys,
If I want to know whether my pc has access to internet or not, would this be the least expensive but still safe way?

Code (fw): Select all Collapse

   function HasInternetAccess()
      LOCAL pSocket

      INetInit()

      pSocket := INetConnect( "www.google.com", 80 )

      lRet := !empty( INetAddress( pSocket ))

      INetClose( pSocket )
      INetCleanUp()
   RETURN

Thanks for any opinion.

I adapted it from xHarbour's INetAddress() documentation

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

Bayron

Posts: 883