Umschalten zwischen Online- und Offlinebetrieb Dieser Code verrät, wie man systemweit vom Online- in Offlinebetrieb wechselt und umgekehrt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  13.791
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 11 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Vor ein paar Tagen haben wir Ihnen verraten, wie sich ermitteln lässt, ob sich das System im globalen Offlinemodus befindet. Siehe hierzu:
 Prüfen, ob System global offline ist

Und diesmal verraten wir Ihnen, wie man vom Online- in den Offlinebetrieb wechselt und umgekehrt.

' zunächst die benötigten Deklarationen
Private Declare Function InternetSetOption Lib "wininet" _
  Alias "InternetSetOptionA" ( _
  ByVal hInternet As Long, _
  ByVal dwOption As Long, _
  ByVal lpBuffer As Long, _
  ByVal dwBufferLength As Long) As Long
 
Private Type INTERNET_CONNECTED_INFO
  dwConnectedState  As Long
  dwFlags As Long
End Type
 
Private Const INTERNET_OPTION_CONNECTED_STATE = 50
Private Const INTERNET_STATE_CONNECTED = &H1
Private Const INTERNET_STATE_DISCONNECTED_BY_USER = &H10
Private Const ISO_FORCE_DISCONNECTED = &H1

In den Offlinebetrieb wechseln
Nachfolgende Prozedur setzt das System in den Offlinebetrieb.

' System in den Offlinebetrieb setzen
Public Sub System_SetOffline()
  Dim uINFO As INTERNET_CONNECTED_INFO
  Dim lResult As Long
 
  With uINFO
    .dwConnectedState = INTERNET_STATE_DISCONNECTED_BY_USER
    .dwFlags = ISO_FORCE_DISCONNECTED
  End With
 
  lResult = InternetSetOption(0, _
    INTERNET_OPTION_CONNECTED_STATE, _
    VarPtr(uINFO), Len(uINFO))
End Sub

Zurück in den Onlinebetrieb wechseln
Nachfolgende Prozedur setzt das System wieder in den Onlinebetrieb.

' System in Onlinemodus setzen
Public Sub System_SetOnline()
  Dim uINFO As INTERNET_CONNECTED_INFO
  Dim lResult As Long
 
  With uINFO
    .dwConnectedState = INTERNET_STATE_CONNECTED
  End With
 
  lResult = InternetSetOption(0, _
    INTERNET_OPTION_CONNECTED_STATE, _
    VarPtr(uINFO), Len(uINFO))
End Sub