IsConnectedToInternet – Check whether there is an Internet connection

IsConnectedToInternet – Check whether there is an Internet connection

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _    lpSFlags As Long, ByVal dwReserved As Long) As LongConst INTERNET_CONNECTION_MODEM = 1Const INTERNET_CONNECTION_LAN = 2Const INTERNET_CONNECTION_PROXY = 4Const INTERNET_CONNECTION_MODEM_BUSY = 8' return True if there is an active Internect connection'' optionally returns the connection mode through' its argument (see INTERNET_CONNECTION_* constants)'   1=modem, 2=Lan, 4=proxy'   8=modem busy with a non-internet connectionFunction IsConnectedToInternet(Optional connectMode As Integer) As Boolean    Dim flags As Long    ' this ASPI function does it all    IsConnectedToInternet = InternetGetConnectedState(flags, 0)    ' return the flag through the optional argument    connectMode = flagsEnd Function

See also  Why ChatGPT Is So Important Today

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist