Option Compare Database
Option Explicit
' выключение и перезагрузка компьютера
Public Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const EWX_POWEROFF = 8
' Отключает от сети. Аналог - войти в систему под другим
' именем. (Завершение сеанса [name]).
Call ExitWindowsEx(EWX_LOGOFF, 0)
' Завершает работу и выключает питание, записывает все файловые
' буферы на диск, останавливает все работающие системные процессы.
' именем. (Завершение сеанса [name]).
Call ExitWindowsEx(EWX_SHUTDOWN, 0)
' Перезагружает компьютер.
Call ExitWindowsEx(EWX_REBOOT, 0)
' Закрывает все программы без приглашения сохранить файлы.
Call ExitWindowsEx(EWX_FORCE, 0)
' Завершает работу системы и если есть возможность выключает компьютер.
Call ExitWindowsEx(EWX_POWEROFF, 0)
Ссылки по теме