VB关机解决方法

VB关机
我记得有段代码可以实现突然关机(突然停电的感觉)

        哪位知道啊     知道的   请告诉小弟一声     在线等

      还有就是重启     也是突然

[解决办法]
Private Declare Function RtlAdjustPrivilege& Lib "ntdll " (ByVal Privilege&, ByVal Newvalue&, ByVal NewThread&, Oldvalue&)
Private Declare Function NtShutdownSystem& Lib "ntdll " (ByVal ShutdownAction&)
Private Const SE_SHUTDOWN_PRIVILEGE& = 19
Private Const SHUTDOWN& = 0
Private Const RESTART& = 1
Private Const POWEROFF& = 2

Private Sub Command1_Click()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
NtShutdownSystem SHUTDOWN '关机
' NtShutdownSystem RESTART 重启
End Sub