Print Page - TIP - Check for a valid internet connection

Title: TIP - Check for a valid internet connection
Post by: Patrice Terrier on January 14, 2012, 02:58:13 PM

Code Select

#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

Powerbasic Museum 2020-B

IT-Consultant: Patrice Terrier => Useful TIPS => Topic started by: Patrice Terrier on January 14, 2012, 02:58:13 PM