【VB】直接重启/强制重启/相当于按下重启键

VB 中直接重启/强制重启，VB 直接强制重启，相当于按下机箱的重启键：

警告：谨慎使用，运行后直接重启的！！！

Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal Newvalue&, ByVal NewThread&, Oldvalue&)
Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)

警告：谨慎使用，运行后直接重启的！！！

Private Sub Form_Load()
    RtlAdjustPrivilege& 19, 1, 0, 0
    NtShutdownSystem& 0 Or 2
End Sub

警告：谨慎使用，运行后直接重启的！！！