lzwudi

我以前在百度问过这样的问题
电脑公司和深度等有些GHOST系统有这个小软件
批处理估计做不到
用VB就能做到了,源码如下:

Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal Newvalue&, ByVal NewThread&, Oldvalue&) 
Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&) 
Const SE_SHUTDOWN_PRIVILEGE& = 19 
Const SHUTDOWN& = 0 
Const RESTART& = 1 
Const POWEROFF& = 2 

Private Sub Form_Load() 
Me.Hide 
RtlAdjustPrivilege& SE_SHUTDOWN_PRIVILEGE&, 1, 0, 0 '提升权限 
NtShutdownSystem& SHUTDOWN& Or POWEROFF& '关机 
End Sub
复制代码

[ 本帖最后由 lzwudi 于 2008-10-12 00:29 编辑 ]