《整人“病毒”代码(一)》由会员分享，可在线阅读，更多相关《整人“病毒”代码(一)（7页珍藏版）》请在金锄头文库上搜索。
1、 整人“病毒”代码（一） 发表于 2013-10-23 10:33 前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。PS：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。把他的电脑桌面按 print 键截屏截下来，（当然 QQ 截屏也可以，不过效果不太逼真！）建议大家用 print 截屏，设置为桌面。然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。他回来后狂
2、点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中附带：print 键截屏方法：键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图！用法一，按“Print Screen SysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。用法二，先按住“Alt”键，再按 “Print Screen SysRq”键，则是对当前窗口进行抓图。如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。哈哈，简单吧，这方法真挺搞的，有
3、兴趣的童鞋可以试试！二、让电脑硬盘消失隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？非也！是某些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.00HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDrives =hex:08,00,00,00解释（1）NoDrives
4、=hex:08,00,00,00 这个键值是隐藏 D 盘的图中的 D 盘已经神秘消失了。（2）A=01000000 B=02000000 C=04000000 D=08000000 E=10000000 F=20000000G=40000000 H=80000000 I=00010000 J=00020000 K=00040000原理介绍：二进制值 “NoDrives”的缺省值均是 00,00,00,00，表示不隐藏任何驱动器。键值由四个字节组成，每个字节的每一位(bit)对应从 A:到 Z:的一个盘，当相应位为 1 时，“我的电脑”中相应的驱动器就被隐藏了。第一个字节代表从 A 到 H 的
5、8 个盘，即 01 为 A，02 为 B，04 为 C依次类推，第二个字节代表 I 到 P，第三个字节代表 Q 到 X，第四个字节代表 Y 和 Z。比如要关闭C 盘，将键值改为 04,00,00,00;要关闭 D 盘，则改为 08,00,00,00，若要关闭C 盘和 D 盘，则改为 0C,00,00,00(C 是十六进制，转成十进制就是 12)。理解了原理后，下面以笔者的电脑为例说明如何操作：笔者的电脑有一个软驱、一个硬盘(5 个分区)、一个光驱，盘符分布是这样的：A:(3.5 软盘)、 C:、D:、E:、F:、G:、H:(光盘)，所以我的“NoDrives”值为“02 ff ff ff”，隐
6、藏了 B、I 到 Z 盘。还原方法1.点击开始-运行，如图，在运行对话框中输入“regedit”，打开注册表编辑器。2.依次打开HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer，将右侧窗口中NoDrives这个子键删除。3.重新启动电脑。三、空空的桌面电脑桌面是用户最熟悉不过的了，电脑整人方法电脑启动之后首先呈现的就是桌面了，如果在愚人节你把你朋友的桌面给 Hack 掉了话，你的朋友是不是会发疯啊？桌面是用户操作电脑首先进入的界面，电脑桌面空空如也，一望无垠的时候，你是否很无奈？原来这一切都是它在作怪
7、！如图整人后桌面清清爽爽，什么都没有！方法步骤1. 新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“桌面.reg”3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.00HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop=dword:00000001NoSetTaskbar=dword:00000001解释：(1)NoDesktop=dword:00000001 这个键值是屏蔽桌面的；(2)NoSetTas
8、kbar=dword:00000001 这个键值是禁用“任务栏属性”功能。将信息导入到注册表之后，桌面图标、桌面右键、桌面属性的功能都被禁用了。还原方法：1.点击开始-运行，如图，在运行对话框中输入“regedit”，打开注册表编辑器。2 依次打开HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer，将右侧窗口中“NoDesktop”、“NoSetTaskbar”这两个子键删除。四、让天使替我说我爱你CreateObject(SAPI.SpVoice).Speaki love you送给你女朋友她会高兴地
9、，保存为.vbs 格式五、打开无数个计算器set wsh=createobject(wscript.shell)do wsh.run calc loop 这段代码是打开无数个计算器，直到死机 ,也是保存为.vbs 格式六、你被耍了while(1) msgbox 哈哈 你被耍了！ loop 这段代码就比较坏了,一直弹出窗口显示哈哈,你被刷了!要是你不会结束它,只好重启电脑了,也是保存为.vbs 格式七、甩不掉的魔鬼WScript.Echo(嘿，谢谢你打开我哦，我等你很久拉！&TSName) WScript.Echo(你是可爱的小朋吗?)WScript.Echo(哈,我想你拉，这你都不知道吗？)W
10、Script.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
11、.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(还剩
12、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.
13、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(
14、还剩 6 下。对。你就点吧，我恨你！)WScript.Echo(还剩 5 下，不明白，删除我你就好吗？) WScript.Echo(还剩 4 下！真要删除我？)WScript.Echo(还剩 3 下。可是我真的很眷恋你。) WScript.Echo(还剩 2 下。不要这么绝情嘛，人家是爱你的！) WScript.Echo(还剩 1 下。哼，既然你这么绝情。也别怪我无义！) WScript.Echo(我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。) WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(
15、想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)改成.vbs八、说我是猪on error resume next dim WSHshellA set WSHshellA =wscript.createobject(wscript.shell) WSHshellA.run cmd.exe /c shutdown -r-t 180 -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) + 哈哈哈哈，好乖这个运行后必
