求一些vbe整蛊代码

要求不要太过火

整蛊内容跟测试有关

骗分的就免了

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) + "山里有个庙" 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) + "别哭别哭，我给你买糖！" 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) + "哈哈哈哈哈哈哈哈哈哈哈~"

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息