vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Windows/System09.05.01
ExitWindowsEx-Funktion

Mit Hilfe dieser Funktion kann man den Computer "Neu starten", "Herunterfahren" oder sich "aus dem Netzwerk abmelden".

Betriebssystem:  Win95, Win98, WinNT, Win2000, WinMEViews:  20.182 

Beschreibung:
Mit Hilfe dieser Funktion kann man den Computer "Neu starten", "Herunterfahren" oder sich "aus dem Netzwerk abmelden".

Deklaration:

Declare Function ExitWindowsEx Lib "user32" ( _
  ByVal uFlags As Long, _
  ByVal dwReserved As Long) As Long

Parameter:
uFlagsLegt fest, wie Windows beendet werden soll. Möglich sind die folgenden Konstanten.

uFlags Konstanten:

Const EWX_FORCE = 4 ' Beendet alle Programme ohne zusätzliche Aufforderung
Const EWX_LOGOFF = 0 ' Meldet sich neu am Netzwerk an
Const EWX_REBOOT = 2 ' Startet den Computer neu
Const EWX_SHUTDOWN = 1 ' Fährt den Computer herunter
Const EWX_POWEROFF = 8 ' Fährt den Computer herunter und schaltet ihn ab

Rückgabewert:
War der Funktionsaufruf erfolgreich, wird ein Wert ungleich "0" zurückgegeben. Tritt ein Fehler auf, so ist der Rückgabewert "0".

Beispiel:

Private Declare Function ExitWindowsEx Lib "user32" ( _
  ByVal uFlags As Long, _
  dwReserved As Long) As Long 
 
Private Const EWX_FORCE = 4
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1
Private Const EWX_POWEROFF = 8
Private Sub Command1_Click () 
  Dim Retval As Long, MsgResult As Long 
 
  MsgResult = MsgBox("Wollen Sie den Computer jetzt neu starten?", _
  vbQuestion + vbYesNo, "Neu starten") 
 
  If MsgResult = vbYes Then 
    Retval = ExitWindowsEx( EWX_REBOOT, 0&) 
    If Retval = 0 Then MsgBox "Der Computer kann nicht " & _
    "heruntergefahren werden.", vbInformation 
  End If 
End Sub

Diese Seite wurde bereits 20.182 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel