Visual-Foxpro-VFP-Check-Internet-Connection

Dear Reader,

In this blog you will get source code for check internet connection in visual foxpro.

https://docs.microsoft.com/en-us/windows/win32/wininet/about-wininet

https://docs.microsoft.com/en-us/windows/win32/api/wininet/nf-wininet-internetcheckconnectiona#syntax

Testing2.prg -- This method is more reliable for check internet connection in VFP - Visual foxpro

DECLARE INTEGER InternetCheckConnection in wininet;

    STRING lpszUrl,;

    INTEGER dwFlags,;

    INTEGER dwReserved

IF InternetCheckConnection("http://www.google.com/", 1, 0) = 1

   WAIT WINDOW 'There is an internet connection' 

ELSE

   WAIT WINDOW 'There is no internet connection' 

ENDIF

abc= InternetCheckConnection("http://www.google2222.com/",11,0)

WAIT WINDOW abc

Testing.prg -- Less Reliable code

DECLARE INTEGER InternetAttemptConnect IN wininet;

    INTEGER dwReserved

IF InternetAttemptConnect(0) = 0  

   WAIT WINDOW 'There is an internet connection' NOWAIT

ELSE

   WAIT WINDOW 'There is no internet connection' NOWAIT

ENDIF