一些恶搞小程序代码,计算机学子愚人节装逼必备
- 2026-09-25 08:21:10
怕太麻烦？要复杂的道具和智商？没关系，我教你个方法，既简单，又实惠。
开始
走起
WScript.Echo("你是我出生到现在遇到的最好的朋友")
WScript.Echo("我好钟意你")
WScript.Echo("可惜你是我的整蛊对象")
如果。。。。我说的是假如。。。假如不小心复制一下，会有什么结果？对了，要点六次，再假如，复制的时候忘了按多少次CTRL+V。。。那我就不知道点多少次了。当然要做得好一点的话，还是多花点精力，把文本编辑好，效果会更好。再假如。。。你是在写一篇长篇小说，或情信。。后面我就不想了，祝大家愚人节快乐
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -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) + "哈哈哈哈，一切皆有可能"
接着保存退出，进入关键阶段--修改后缀名，将后缀名改为“.vbs”。方法有两个，一个是保存的时候另存为，另一种是直接修改文本的名字。
你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，
结束任务都不行，他只能说他是猪才能解决问题。够坏吧？
就修改成 “我爱你” 这样他只有说我爱你之后才不关闭计算机
也可以把时间修改为20，就是说打开了20秒就关了，还没等对方打完字就关机了， 是不是叫对方很郁闷呢?
福利社：阅读原文直接获取整蛊小程序
最后，害人之心不可有，防人之心不可无！切记！！！
图片/编辑 by 南有
文 by 网络
北理IT
计算机团学会技术部
生命不息，技术不止
IT这条路，只愿不辜负
长按二维码关注
