Author Topic: TIP - Check for a valid internet connection  (Read 1670 times)

0 Members and 1 Guest are viewing this topic.

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2399
  • Gender: Male
    • www.zapsolution.com
TIP - Check for a valid internet connection
« 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
« Last Edit: January 14, 2012, 03:00:05 PM by Patrice Terrier »
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com