我以前在百度问过这样的问题
电脑公司和深度等有些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 编辑 ] |