Функция выключения компьютера - VB

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

Какая функция выключет компьютер. точно есть такая но не помню синтаксис. Если можно примерчик..

Решение задачи: «Функция выключения компьютера»

textual
                            Листинг программы 
                        

                            Public Declare Function RtlAdjustPrivilege& Lib "ntdll" _
        (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
    Public Const SE_SHUTDOWN_PRIVILEGE& = 19
    ' // The Shutdown Actions
    Public Const SHUTDOWN& = 0
    Public Const RESTART& = 1
    Public Const POWEROFF& = 2
Sub Main()
    RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
    NtShutdownSystem SHUTDOWN 
End Sub
                        

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

14 голосов , оценка 4.143 из 5

Похожие ответы