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