Office中国论坛/Access中国论坛

标题: NT内核下最快关机代码! [打印本页]

作者: stanleypan 时间: 2008-3-12 11:19
标题: NT内核下最快关机代码!
Ring3(User-Mode) 和Ring0(Kernel-Mode) 的关系使我们了解到为什么NT内核要稳定,少蓝屏.也使我们认识到Native API的强大作用.
使用Native API可以跳过而直接进入NTDLL并且非常Power,以下是代码.
可以实现秒关机,(记得它不会对打开的文件进行保存就会直接关机)
Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
' // Native API 关机
Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
' // *************
' // API常数
' // *************
' // 关机权限
Public Const SE_SHUTDOWN_PRIVILEGE& = 19
' // The Shutdown Actions
Public Const SHUTDOWN& = 0
Public Const RESTART& = 1
Public Const POWEROFF& = 2
' // 立即关机
Sub InstantlyShutDownPC()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0 ' // 取得关机权限
NtShutdownSystem SHUTDOWN ' // 关机
End Sub

作者: tanhong 时间: 2008-3-13 20:20
又淘到好东西了，谢谢stanleypan兄的分享

作者: tmtony 时间: 2008-3-13 20:21
好久没有看到　stanleypan　兄了，久违的好贴！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)