ExitWindowsEx-Funktion Mit Hilfe dieser Funktion kann man den Computer "Neu starten", "Herunterfahren" oder sich "aus dem Netzwerk abmelden".
Betriebssystem:  Win95, Win98, WinNT, Win2000, WinME	Views:  883

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:

uFlags

Legt 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