[vb6]暴力代码
不解释内容,自己试验即可新建一个模块,不要窗体,启动者设定为SubMain然后拷贝进去点F5运行。
[font=����, Tahoma][size=12px]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 [/size][/font] 这个……强制关机么…… 感觉麻烦,直接结束alg.exe进程,我想计算机应该会自动关机。 结束进程其实……似乎比这个麻烦吧…… -。-是么,还以为VB会让它简单起来呢…… 似乎得枚举进程然后比较吧
这段代码用过
当时同学让我写一个定时关机的程序 alg是在Ring3下就能结束的么?
你们讨论的真没意义 是么,那就结束winlogon吧。 再问一遍,R3下能结束核心进程么? ……你还认死理啊,本来以为只有System,csrss和smss可以不能被搞死,没想到alg也不行。
但我相信winlogon可以被这样玩死:
ntsd -c q -p winlogon's_PID
我的虚拟机都蓝屏重启了。 你去看看获取进程pid的代码再说话好不好! ………………这两个人在干什么呢…… 好吧你赢了,vb获得pid的代码真【哔--】长。
但是ring3下确实能搞死winlogon。 反正我只知道对于进程的操作不是那么的容易呐……
就两个api还嫌什么麻烦啊…… 执行外部程序不算能杀吧。
页:
[1]