• Welcome to Powerbasic Museum 2020-B.
 

News:

Forum in repository mode. No new members allowed.

Main Menu

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.

Print
Go Down Pages1
User actions

Patrice Terrier

January 14, 2012, 02:58:13 PM Last Edit: January 14, 2012, 03:00:05 PM by Patrice Terrier
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
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com
Print
Go Up Pages1
User actions