调用ZwShutdownSystem，快速关机

Private Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal p1 As Long, ByVal p2 As Byte, ByVal p3 As Byte, p4 As Long) As Long
Private Declare Function ZwShutdownSystem Lib "ntdll.dll" (ByVal p1 As Long) As Long

Private Sub Form_Load()
    Call DoShutDown
End Sub

Private Sub DoShutDown()
    Dim p4 As Long, ret As Long
    ret = RtlAdjustPrivilege(&H13, 1, 1, p4)
    If ret = &HC000007C Then
        ret = RtlAdjustPrivilege(&H13, 1, 0, p4)
    End If
   
    ret = ZwShutdownSystem(2)
End Sub