口袋社区-Poke The BBS » ┾Pc-数码┽ » 编程乐园 » [vb6]暴力代码

最美我中文 发表于 2009-12-12 00:06

[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]

roywillow 发表于 2009-12-12 17:20

这个……强制关机么……

liuyanghejerry 发表于 2009-12-12 18:15

感觉麻烦，直接结束alg.exe进程，我想计算机应该会自动关机。

roywillow 发表于 2009-12-12 18:26

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

liuyanghejerry 发表于 2009-12-12 19:02

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

roywillow 发表于 2009-12-12 19:06

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

这段代码用过
当时同学让我写一个定时关机的程序

最美我中文 发表于 2009-12-12 19:17

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

liuyanghejerry 发表于 2009-12-12 21:14

是么，那就结束winlogon吧。

最美我中文 发表于 2009-12-12 23:26

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

liuyanghejerry 发表于 2009-12-13 00:16

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

最美我中文 发表于 2009-12-13 08:06

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

roywillow 发表于 2009-12-13 10:22

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

liuyanghejerry 发表于 2009-12-13 11:14

好吧你赢了，vb获得pid的代码真【哔--】长。
但是ring3下确实能搞死winlogon。

roywillow 发表于 2009-12-14 07:16

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

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

最美我中文 发表于 2009-12-14 07:37

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

查看完整版本: [vb6]暴力代码