• Welcome to Theos PowerBasic Museum 2017.

TIP - Check for a valid internet connection

Started by Patrice Terrier, January 14, 2012, 02:58:13 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Patrice Terrier

#COMPILE EXE

DECLARE FUNCTION InetIsOffline LIB "URL.DLL" ALIAS "InetIsOffline" (BYVAL dwFlags AS DWORD) AS LONG

FUNCTION PBMAIN()

IF NOT InetIsOffline(0) THEN
   MsgBox "Internet connection is available",,"Internet status"
ELSE
   MsgBox "Internet connection is NOT available",,"Internet status"
END IF

END FUNCTION
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com