Binaryworld - Check whether the user is working off-line ... [ VB -> Internet Programming ]

Internet Explorer offers the possibility to simulate an Internet connection with the off-line mode. If you want to know if off-line mode is on or off you can use InternetQueryOption API.

Click here to copy the following block

Const INTERNET_OPTION_CONNECTED_STATE = 50
Const INTERNET_STATE_DISCONNECTED_BY_USER = &H10

Private Type INTERNET_CONNECTED_INFO
  dwConnectedState As Long
  dwFlags As Long
End Type
Private Declare Function InternetQueryOption Lib "wininet.dll" Alias _
  "InternetQueryOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, _
  lpBuffer As INTERNET_CONNECTED_INFO, lpdwBufferLength As Long) As Boolean

' Return True if the user is working off-line

Function IsWorkingOffLine() As Boolean
  Dim dwState As Long, dwSize As Long
  Dim ci As INTERNET_CONNECTED_INFO

  dwState = 0
  dwSize = LenB(dwState)

  If InternetQueryOption(0&, INTERNET_OPTION_CONNECTED_STATE, ci, dwSize) Then
    IsWorkingOffLine = (ci.dwConnectedState And _
      INTERNET_STATE_DISCONNECTED_BY_USER)
  End If
End Function