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