| CODE |
Option Explicit Private Const INTERNET_CONNECTION_CONFIGURED = &H40 Private Const INTERNET_CONNECTION_LAN = &H2 Private Const INTERNET_CONNECTION_MODEM = &H1 Private Const INTERNET_CONNECTION_OFFLINE = &H20 Private Const INTERNET_CONNECTION_PROXY = &H4 Private Const INTERNET_RAS_INSTALLED = &H10 Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Private Sub Form_Load() MsgBox IsOnline End Sub Public Function IsOnline() As Boolean Dim lngRet As Long InternetGetConnectedState lngRet, 0& If (lngRet And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then If (lngRet And INTERNET_CONNECTION_OFFLINE) <> INTERNET_CONNECTION_OFFLINE Then IsOnline = True End If End If End Function |
