Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE | VB-Versionen: VB4, VB5, VB6 | 08.04.02 |
Umschalten zwischen Online- und Offlinebetrieb Dieser Code verrät, wie man systemweit vom Online- in Offlinebetrieb wechselt und umgekehrt. | ||
Autor: Dieter Otter | Bewertung: | Views: 13.310 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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