很多朋友对于qq整人软件和恶搞神器软件不太懂，今天就由小编来为大家分享，希望可以帮助到大家，下面一起来看看吧！
QQ整人软件(要狠一点的)
1、上八目妖有。2、自制一点击就出现无数个计算器，直到死机为止。在记事本里输入，最后把扩展名改成VBS得那种。
Dim objws
Set objws=wscript.createobject("wscript.shell")
Do
objws.Run"calc"
Loop
整人小程序：说我是猪就不关机
程序,整人
on error resume next
dim WSHshellA
set WSHshellA= wscript.createobject("wscript.shell")
WSHshellA.run"cmd.exe/c shutdown-r-t 60-c""快说“我是猪”，不说我是猪就一分钟关你机，不信，试试···""",0,true
dim a
do while(a<>"我是猪")
a= inputbox("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000)
msgbox chr(13)+ chr(13)+ chr(13)+ a,0,"MsgBox"
loop
msgbox chr(13)+ chr(13)+ chr(13)+"早说就行了嘛"
dim WSHshell
set WSHshell= wscript.createobject("wscript.shell")
WSHshell.run"cmd.exe/c shutdown-a",0,true
msgbox chr(13)+ chr(13)+ chr(13)+"哈哈哈哈，真过瘾"
msgbox chr(13)+ chr(13)+ chr(13)+"乖孩子真听话啊"
msgbox chr(13)+ chr(13)+ chr(13)+"下次叔叔买糖给你吃"
msgbox chr(13)+ chr(13)+ chr(13)+"要吃什么糖啊"
msgbox chr(13)+ chr(13)+ chr(13)+"什么，大白兔？"
msgbox chr(13)+ chr(13)+ chr(13)+"不行，不行，大白兔吃了长石头啊"
msgbox chr(13)+ chr(13)+ chr(13)+"要不叔叔给你讲个故事"
msgbox chr(13)+ chr(13)+ chr(13)+"从前有个山"
msgbox chr(13)+ chr(13)+ chr(13)+"山里有个庙"
msgbox chr(13)+ chr(13)+ chr(13)+"庙里有个老和尚"
msgbox chr(13)+ chr(13)+ chr(13)+"老和尚在给小和尚讲故事"
msgbox chr(13)+ chr(13)+ chr(13)+"讲什么故事呢"
msgbox chr(13)+ chr(13)+ chr(13)+"故事是这样的"
msgbox chr(13)+ chr(13)+ chr(13)+"从前有个山"
msgbox chr(13)+ chr(13)+ chr(13)+"山里有个庙"
msgbox chr(13)+ chr(13)+ chr(13)+"庙里有个老和尚"
msgbox chr(13)+ chr(13)+ chr(13)+"什么，不听了"
msgbox chr(13)+ chr(13)+ chr(13)+"别哭别哭，叔叔给你买糖！"
复制代码一个整人的小代码，“说我是猪就不关机”
把上面的代码复制到记事本里，把后缀名改成.VBE
有什么在QQ聊天中用的vbs整人代码
msgbox("小姐姐")
msgbox("小姐姐")
msgbox("呼叫小姐姐")
a=msgbox("小姐姐有时间吗？",vbYesNo,"玩个游戏哦,反正快下班了")
if
(a=vbYes)
then
msgbox("嘿嘿嘿，那我们可以继续玩下去了！！！")
msgbox("那。。。。。。我就问你一个问题啊")
msgbox("你觉得自己漂不漂亮？")
msgbox("温馨提示：")
msgbox("要有自信哦")
b=msgbox("漂不漂亮？",vbYesNo,"漂亮")
if
(b=vbYes) then
msgbox("我也这么觉得")
wscript.echo printer("
","*","113111111112212111313111513",7)
function printer(a1,a2,b,c)
for i=
1 to len(b)
b1= Mid(b,i,1)
for j= 1 to b1
s=s&a1
n=n+1
if n=c then
s=s&chr(10)
n=0
end
if
next
a3=a1
a1=a2
a2=a3
next
printer=s
end function
msgbox("嘿嘿嘿")
msgbox("嗯，虽然我也赞同这一点")
msgbox("但")
msgbox("我还是想皮一下")
do
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("玩不过我吧")
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("打不到我吧")
msgbox("没有办法")
msgbox("就是这么强大")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
loop
else
msgbox("啥？")
msgbox("我没听清")
msgbox("这么不自信？")
msgbox("和我的观点不一样")
msgbox("后果很严重")
msgbox("所以，准备惩罚你一下")
msgbox("带你数绵羊吧")
Set
s= CreateObject("sapi.spvoice")
i=0
Do while i<100
s.speak
i
i=i+1
if i=66 then exit do
loop
end if
else
msgbox("那。。。。。。我就在皮一下")
msgbox("真的")
msgbox("真的")
msgbox("真的")
msgbox("我就皮一下下")
msgbox("皮这一下我很开心")
msgbox("警告")
msgbox("警告")
msgbox("警告")
msgbox("你的电脑将关机")
msgbox("给你一次机会")
msgbox("使用
Ctrl+Alt+delete关闭此进程")
set
ws=createobject("wscript.shell")
ws.run"cmd.exe/c shutdown-r-t 10"
end
if
（以上你可以修改文字，把txt格式换成 vbs对了电脑会自动重启）
qq聊天时整人的游戏
叫你手痒。游戏来噶！恭喜你评论了我的说说，点赞的也算，这是一个连环游戏，谁评论了，谁就是下一个中招者！
上家告诉你选几，你必须发在你的空间！出来混要玩得起，发状态的时候不能作弊把这是游戏说出来，好了，去开始你的钓鱼游戏吧！
1、今天上街捡了两百块钱，运气来了挡都挡不住。
2、去吃饭碗里有个虫，本来想叫老板，结果好奇想尝一下虫吃起来是什么味道。
3、我不上班了回家结婚。
4、不就是生小孩嘛，谁不会啊？给你们家生一个就是。
5、突然觉得我好美。
6、他妈的，从来都没有这么衰过，穿件衬衣上街，结果胸口的扣子掉了。
7、你们大家给点意见，我应该给自己的小孩取什么名字好呢？
8、惨了，五十块掉马桶里了。
9、捡到一苹果手机。
10、糟了，我好像要当爸爸了！！
11、你以为你长的好帅啊？给你告白是看的起你，还居然拒绝我。
12、今天和喜欢的她一起看电影了。
13、走在大街上总是有人讲我长得漂亮，真的不好意思。14、还有一个周就要结婚了，心情激动啊。
我让你选几你就选几，
不准解释，不准删
关于qq整人软件和恶搞神器软件的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。