|
发表于 2010-5-1 00:37:47
|
显示全部楼层
本帖最后由 HoviDelphic 于 2010-5-1 00:39 编辑
Sub Main()
Declare Function RtlAdjustPrivilege Lib "ntdll" (ByVal Privilege As Long, ByVal Newvalue As Long, ByVal NewThread As Long, ByRef Oldvalue As Long) As Long
Declare Function NtShutdownSystem Lib "ntdll" (ByVal ShutdownAction As Long) As Long
RtlAdjustPrivilege 19, 1, 0, 0
NtShutdownSystem 0
End Sub |
|