Option Explicit
' ----------------------------
' Constants & API Declarations
' ----------------------------
Public Declare Function InternetGetConnectedState _Lib "wininet.dll"(ByRef lpdwFlags As Long, _
ByVal dwReserved As Long) As Long
Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Public Const INTERNET_RAS_INSTALLED As Long = &H10
Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
' ---------------
' Function
' ---------------
Public Function IsNetConnectOnline() As Boolean
IsNetConnectOnline = InternetGetConnectedState(0&, 0&)
End Function
Share:
These icons link to social bookmarking sites where readers can share and discover new web pages.
