Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Aug 7, 2000

Setting the off-line mode

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

Alberto Falossi
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date