VB-Homepage Tipp 023
Systemneustart per Tastendruck
Mit diesem kleinem Programm läßt sich sowohl Windows beenden, als auch neustarten und auch der PC neu booten. Und das alles mit einer API-Funktion.
Legen Sie ein neues Projekt an und tragen in den Abschnitt

General/Declarations 'der Form folgende API-Funktion ein.
Declare Function ExitWindows Lib "User" (ByVal RestartCode As Long, ByVal DOSReturnCode As Integer) As Integer

'Dann in die Form drei Commandbutton integrieren

'als Command1.Caption - PC-Neustart (REBOOT)
Command1/Click
Result = ExitWindows(67, 0)

'als Command2.Caption - Windows-Neustart (NEW USER)
Command2/Click
Result = ExitWindows(66, 0)

als Command3.Caption - Windows beenden (SHUTDOWN)
Command3/Click
Result = ExitWindows(0, 0)

Speichern Sie bitte erst alles ab, bevor Sie testen. !!!
Das 16Bit Programm tut seinen Dienst auch auch unter Windows 95/98

######################################################
Die 32Bit Version

Private Declare Function ExitWindows Lib "user32" Alias "ExitWindows" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long
Const EWX_FORCE = 4
Const EWX_LOGOFF = 0
Const EWX_REBOOT = 2
Const EWX_SHUTDOWN = 1

Result = ExitWindows(EWX_REBOOT)
Result = ExitWindows(EWX_LOGOFF)
Result = ExitWindows(EWX_SHUTDOWN)

Nur für Windows95/98 - nicht für NT4
Tipp-Download
Quelle :
Zurück zur Übersichtsseite