如何用VB调用XP下的关机,重起和注销命令.急用!!谢谢了!!

来源：百度知道 编辑：UC知道 时间：2024/05/24 07:53:00
我想用VB做一个定时关机的小程序,但不知道怎么在XP下调用关机,重起和注销的命令.哪位高手教教我啊 谢谢了!!
请问mingyu92这句是做什么用的啊RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0 谢谢了!!

shell "shutdown -s -t 5" '5秒后关机
shell "shutdown -r -t 5" '5秒后重启
shell "shutdown -l -t 5" '注销

你可以用NT内核函数，非正常切断电源，是超快速的哦，5秒内黑屏：
Private Const SE_SHUTDOWN_PRIVILEGE = 19
Private Const SHUTDOWN = 0
Private Const RESTART = 1
Private Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal Privilege As Long, ByVal NewValue As Long, ByVal NewThread As Long, OldValue As Long) As Long
Private Declare Function NtShutdownSystem Lib "ntdll.dll" (ByVal ShutdownAction As Long) As Long

使用方法：
先执行
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
然后
NtShutdownSystem SHUTDOWN 切断电源
NtShutdownSystem RESTART 复位（切断电源然后重启)