Binaryworld - Setting the off-line mode ... [ VB -> Internet ]

You can programmatically set the Internet Explorer off-line mode with the InternetSetOption API, as this code snippet demonstrates:

Const INTERNET_OPTION_CONNECTED_STATE = 50
Const INTERNET_STATE_CONNECTED = 1
Const INTERNET_STATE_DISCONNECTED = 2
Const INTERNET_STATE_DISCONNECTED_BY_USER = &H10
Const INTERNET_STATE_IDLE = &H100
Const INTERNET_STATE_BUSY = &H200
Const ISO_FORCE_DISCONNECTED = 1

Private Declare Function InternetSetOption Lib "wininet.dll" Alias _
  "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, _
  lpBuffer As INTERNET_CONNECTED_INFO, ByVal dwBufferLength As Long) As _
  Boolean

' Force the OffLine or OnLine mode

Sub SetOffLineMode(ByVal offLineMode As Boolean)
  Dim ci As INTERNET_CONNECTED_INFO
  Dim retValue As Boolean

  If offLineMode Then
    ci.dwConnectedState = INTERNET_STATE_DISCONNECTED_BY_USER
    ci.dwFlags = ISO_FORCE_DISCONNECTED
  Else
    ci.dwConnectedState = INTERNET_STATE_CONNECTED
  End If

  retValue = InternetSetOption(0&, INTERNET_OPTION_CONNECTED_STATE, ci, _
    LenB(ci))
  If retValue = False Then Err.Raise vbObjectError + 1000, , _
    "An error occurred calling SetOffLineMode function"
End Sub