VB-Homepage Tipp 170

Reboot, Shotdown und NewUser Anmeldung unter 32Bit Windows

Eine der am meisten gestellten Anfragen von VB-Einsteigern ist "Wie kann ich Windows autom. beenden bzw. neustarten ?". Nicht umsonst war dies eines der ersten Tipps und ein entsprechender Tipp findet sich auch auf jeder Page die sich mit der Thematik Programmierung befaßt. Da der Tipp aber ausschließlich für 16Bit (also VB3 und VB4/16) verfaßt war, soll es nun hier die Ergänzung für 32Bit geben. Erstellen Sie sich dazu ein neues Projekt und fügen Sie drei CommandButton hinzu. Command1.Caption= "Reboot" Command2.Caption= "Shutdown" Command3.Caption= "New User" Reboot steht für Windowsneustart, Shutdown für Windowsende und New User für die Anmeldung unter anderem Usernamen. Gleich vorweg, es gibt noch eine vierte Angabe = Force, die mir beim Test aber als unsauber bzw. Sicherheitsrisiko aufgefallen ist, deshalb will ich hier nicht weiter darauf eingehen. Zur Definition (Allgemein/Deklarationen) Private Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long Const EWX_LOGOFF = 0 Const EWX_REBOOT = 2 Const EWX_SHUTDOWN = 1 Command1_Click ExitWindows EWX_REBOOT, &HFFFF Command2_Click ExitWindows EWX_SHUTDOWN, &HFFFF Command3_Click ExitWindows EWX_LOGOFF, &HFFFF Speichern Sie Ihr Projekt erst ab und testen Sie dann.

Tipp-Download

Quelle :