不解释内容，自己试验即可新建一个模块，不要窗体，启动者设定为SubMain
然后拷贝进去点F5运行。

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

Sub Main()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
NtShutdownSystem SHUTDOWN
End Sub

alg是在Ring3下就能结束的么？
你们讨论的真没意义

再问一遍，R3下能结束核心进程么?

你去看看获取进程pid的代码再说话好不好！

执行外部程序不算能杀吧。