分享到新浪微博 分享到QQ空间 打印

[vb6]暴力代码

[vb6]暴力代码

不解释内容,自己试验即可新建一个模块,不要窗体,启动者设定为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   
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP

这个……强制关机么……

TOP

感觉麻烦,直接结束alg.exe进程,我想计算机应该会自动关机。
本帖最近评分记录
  • 最美我中文 PT币 +1 会变蓝,很纯的蓝,有一些白色的斑点存在 2009-12-19 14:21


想死你们了!

TOP

结束进程其实……似乎比这个麻烦吧……

TOP

-。-是么,还以为VB会让它简单起来呢……


想死你们了!

TOP

似乎得枚举进程然后比较吧

这段代码用过
当时同学让我写一个定时关机的程序
本帖最近评分记录
  • liuyanghejerry 热度 +1 定时关机为啥不用shutdown -s -t 2009-12-12 21:16

TOP

alg是在Ring3下就能结束的么?
你们讨论的真没意义
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP

是么,那就结束winlogon吧。


想死你们了!

TOP

再问一遍,R3下能结束核心进程么?
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP

……你还认死理啊,本来以为只有System,csrss和smss可以不能被搞死,没想到alg也不行。
但我相信winlogon可以被这样玩死:
ntsd -c q -p winlogon's_PID
我的虚拟机都蓝屏重启了。


想死你们了!

TOP

你去看看获取进程pid的代码再说话好不好!
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP

………………这两个人在干什么呢……

TOP

好吧你赢了,vb获得pid的代码真【哔--】长。
但是ring3下确实能搞死winlogon。
本帖最近评分记录


想死你们了!

TOP

反正我只知道对于进程的操作不是那么的容易呐……

就两个api还嫌什么麻烦啊……

TOP

执行外部程序不算能杀吧。
本帖最近评分记录
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP