VB快速注销/重启/关闭计算机

快速关闭/重启计算机，核心代码：
Public Declare Function RtlAdjustPrivilege& Lib “ntdll” (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
Public Declare Function NtShutdownSystem& Lib “ntdll” (ByVal ShutdownAction&)
Private Declare Function ExitWindowsEx Lib “user32” (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer
Const SE_SHUTDOWN_PRIVILEGE& = 19
Const shutdown& = 0
Const RESTART& = 1
Const EWX_FORCE& = 4

'过程
Public Sub TurboShutdown(Rbt As Long)
If Rbt > 0 Then RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
Select Case Rbt
Case 0
Call ExitWindowsEx(EWX_FORCE, 0) '注销
Case 1
NtShutdownSystem RESTART '重启动
Case 2
NtShutdownSystem shutdown '关机
End Select
End Sub

下载地址：https://download.youkuaiyun.com/download/ty5858/20722290