Visual Basic

Вопрос

Как выполнить перезагрузку или выключение компьютера программно?

Ответ

Разместите в модуле:

  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

А это в коде:

  Dim s As Long

  'Так можно сделать Shut down
   s = ExitWindowsEx(EWX_SHUTDOWN, 0&)

  'Так можно сделать Log off
  s = ExitWindowsEx(EWX_LOGOFF, 0&)

  'А так Reboot
  s = ExitWindowsEx(EWX_REBOOT, 0&

Сергей