Vor ein paar Tagen haben wir Ihnen verraten, wie sich ermitteln lässt, ob sich das System im globalen Offlinemodus befindet. Siehe hierzu: 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 ' 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 ' 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 Dieser Tipp wurde bereits 13.338 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |