vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
DTA-Dateien erstellen inkl. BLZ-/Kontonummernpr?fung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
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:  12.260 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    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 12.260 mal aufgerufen.

    nach obenzurück
     
       

    Druckansicht Druckansicht Copyright ©2000-2015 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