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

Узнай цену своей работы

Формулировка задачи:

Скажите, если не сложно, как выключить{Перезагрузить} Комп из VBA Желательно пример и возможность найти подобную Info самому. Thank for All

Решение задачи: «Как выключить{Перезагрузить} Комп из VBA?»

textual
Листинг программы 
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
 
Public Sub ShutDown(Force As Boolean)
    Dim Flags As Long
    Flags = EWX_SHUTDOWN
    If Force Then Flags = Flags + EWX_FORCE
    ExitWindowsEx Flags, 0
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы