育才学习网1.整人小程序制作
短信整人大法 愚人节短信以其言简意赅、风趣幽默、操作方便的特点越来越受到人们的亲睐，不用费神劳时，只需轻按手机或鼠标，即可实现愚人行动。
虽然现在人们不一定按照短信上的提示去做了，但通过此方法博得愚人一笑，也是不错的。记者从网上收集了一些使用频繁的经典短信，以供大家参考。
1、关于手机的短信 紧急提醒：近日恐有雷电现象，出门时请把手机放在头上并将充电器连线插上拖于身后，用于避雷，切记！ 手机免费通话秘技：有电话呼入时在第二次振铃前按54sg后按关机，此时通话免费。 这是一封精心设计的短信，将你的手机上下颠倒看，将会欣赏到奇妙的图案……手机颠来倒去好玩吗？ 据美国麻省理工大研究发现，打手机前把手机在水中泡1分钟，可完全避免电磁波对人体大脑的辐射，切记！ 尊敬的用户：您好！因你的手机外型难看，式样过时，已严重影响市容市貌，且阻碍了移动通讯业务的发展，本台决定于10分钟后发射信号摧毁该手机！ 你如果收到本信息，证明你手机已感染病毒，请马上取出手机卡，用汽油刷洗。
2、关于笨蛋的短信 考考你：世界上的猪一夜之间都死光了该怎么办？（打一歌名）《至少还有你》呀！ 给你讲个故事，从前有个笨蛋，他非常笨，别人问他什么问题他都只会摇头或回答“没有”，这个故事你听过吗？ 做家具的是木材，懂诗词的是秀才，众人想的是钱财，被培养的是人才，女人要的是身材，发消息的是天才，正看短信的是蠢才！ 你帅呆了，酷毙了，简直无法比喻了，你头顶锅盖手拎白菜，总以为自己是东方不败，其实你是傻瓜二代！ 测试一下普通话，请大声朗读下面的诗：暗石绿，暗石竹，暗石透春绿，暗石透春竹。 这是一首李白的诗，请大声朗读：卧室春绿，握梅又闻花，我只会中第，邀文卧室睡，卧室知春绿。
3、关于健康的短信 肺活量自测小技巧：放完屁后，低头猛吸，然后观察周围之人有无闻到异味。如有，则须按此法加强锻炼；如无，则证明你乃超人！ 报告：您此时的睡觉姿势不正确。
为了您的身体健康，请您起来重睡……手机实时监测系统。 啊！您，是如此的雍容华贵，风情万种，怪不得，大伙儿都说你……臃肿！ 4、其他短信 注意了，先看看你的左边，再看看你的右边。
请小心一个刚溜出来的精神病，他的特征是：拿着手机东张西望。 通知：明天上午有领导视查工作，各位同事请按要求统一着装。
男士：西装领带短裤拖鞋；女士：泳装西裤皮鞋！ 紧急提醒：近日恐有龙卷风天气，出门时务必随身携带两个10公斤重的哑铃，以免被狂风卷上西天。体重轻于50公斤者须加倍。
地震台预测：今晚至明晨有微型地震，为了您的安全，请今晚包着棉被，头戴马桶，鼻孔插上吸管在床底下睡觉。 网络整人大法 利用电脑和网络整人，关键得靠你聪明的头脑和灵活的手脚，具备了这两点，你完全可以充分发挥自己的想象力和创造力，一环扣一环，设下天罗地网，让被愚者无处可逃、哭笑不得。
最初级方法：简单易行，适合所有用电脑的人 趁别人上厕所时在其电脑上设置屏幕保护，并加上密码；伪造网站管理员讲话：“系统即将重启，请保存手中的工作后退出”；发电子邮件给朋友，先用Winzip打包、再次打包……最后做成自解压文件，如此循环几遍，最后对方打开信时，只有6个字：今天是愚人节！ 易容术：适宜使用OICQ、ICQ等即时通讯软件的朋友 用紧急事件将正在使用即时通讯软件的被愚者支开，打开即时通讯软件的修改个人资料选项，动用键盘、鼠标，将被愚者的网络容貌来个全方位修改。至于如何改，那就看你的兴趣和能力了。
最后别忘了销毁一切可能暴露形迹的证据。这种方法不易被发现，不仅让被愚者的好友一时半会搞不清楚他是谁，就连被愚者自己也一时半会摸不着头脑。
另一种方法就是设法取得被愚者的OICQ号码，自己重新申请一个OICQ号码，按照被愚者的详细情况填写个人资料。将被愚者加入到你所申请的新号码的联络清单中，然后抓住对方弱点开始对其进行“大型轰炸”。
本方法主要是不让对方知道你是谁，因此在使用中一定要注意隐藏，尽量不要让对方对你有疑心。 提醒被愚者：无论何时何地都千万要记住将系统锁定，再离开电脑。
一旦怀疑中计，只能小心、细心地去观察破解了。 偷梁换柱：改变被愚者电脑中的一些设置 利用麦克风和Windows自带的“录音机”程序录下一些恐怖或离奇的声音，然后将其设置为Windows开（关）机声音。
这样当被愚者开（关）机的时候，冷不丁地肯定被吓一跳。 将被愚者电脑中的“我的文档”所对应的目标文件夹改变，让其误以为辛辛苦苦撰写的文档全部消失。
将被愚者常用的一些应用程序的快捷方式目标改变，让其点击快捷方式开启程序后，却发现启动的不是和快捷方式相对应的程序。注意一定要将快捷方式的图标保持和原来的程序一致。
这些方法愚人的效果是一流的，足以让被愚者心跳加快、血压升高、浑身冒冷汗。但使用的时候一定要小心谨慎，因为一不小心就会铸成大错。
提醒：愚人节当天不给任何人可以接近你电脑的机会。 动动硬件：电脑出了故障，一般人都会看程序或网络是否出了问题，很少考虑到细微。
2.整人程序的做法
下面的是一个运行之后计时关机的程序： on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""宝贝乖，说“我爱你”一百遍，不说就60秒钟关你机，不信试试···"" "，0 ,true dim a do while(a "我爱你") loop a = inputbox （" 不说你是跟张老板混的马上给你关机。
"" "，"说不说？！"，"不说"，8000,7000） loop。
3.vbs整人小程序代码.手机可以用吗
VBS文件手机是不能打开的，但可以将它嵌入到网页文件上，有的手机浏览器是支持HTML文件的，但是VBS代码中的大部分在手机上都不能用，如调用外部程序什么的，因为那是Windows的代码，不过手机可以支持msgbox、inputbox等函数，嵌到网页中的方法是新建一个文本文档，扩展名改为html，在里面输入，输入vbs代码时在两个括号中间输入，不过可能和vbs文件不太一样，如不过手机还是推荐用JS脚本，举个例，弹出对话框如果你有能力你可以直接把做出的html文件上传到一个域名上，然后在手机直接输入网址打开，或者文件传到手机上打开测试你的手机浏览器是否支持JS插件：在浏览器地址栏上输入javascript:alert（"哈哈！"）然后回车，如果能弹出对话框说明支持JSVBS的方法：输入vbscript:msgbox （"哈哈！"）回车，同上望采纳。
4.编写一个整人程序
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我bai是猪，不说我是猪就一分针关你机，不信du，试试zhi···"" "，0 ,true dim a do while(a <> "我是猪") a = inputbox （"说我是猪，就不关机dao，快撒，说 ""我是猪"" "，"说不说"，"不说"，8000,7000） msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loopmsgbox chr(13) + chr(13) + chr(13) + "早说内就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾容"。
5.用手机整人的方法有什么啊
逗乐整人短信吓你一跳 发短信息将是使用频率最高的弄人方式。
一手机业人士向记者介绍，利用手机短信糊弄人几种招数：一是发送含有调侃、嘲讽、挖苦内容的文字短信，愚弄、激怒短信接受人；二是发送恐怖或恶心的声音与图片短信，吓唬人。据其介绍，只要上网下载对方手机可兼容的声音与图片短信，发送过去即可，对方手机收到后点击打开时，往往会被突如其来的声音或图片吓一大跳。
目前还没有哪家手机通信网络有为客户拦截短信的业务，所以如果你被人家利用手机短信整你，也只好认命了。 点评：防范难度指数5。
6.整人小程序：说我是猪就不关机这个代码复制哪里
复制到TXT文件 然后把后缀改为.vbs 就可以了 双击就可以运行
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) + "这样才乖嘛！~"
完整代码
转载请注明出处育才学习网 » 手机整人小程序怎么写