Nastavení Off-Line režimu

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 

' Vynucení Off-Line nebo On-Line módu 
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, , _ 
      "Při volání funkce se vyskytla chyba." 

End Sub

Zpět