求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

1>nul

2>nul

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

正在遭受黑客的炸d袭击！

echo.

echo

电脑崩溃！准备关闭系统！

ping

127.1

/n

3

>nul

shutdown

-s

-t

0

>nul<p>

</p>

PC整蛊专家2009之一刻钟

此版本软件不会对计算机系统造成任何损害，

但对心脏身体不好的人士切勿使用。。。后果自负！

恐吓真实程度绝非一般,非普通恶搞产品所能比拟。

此软件启动几乎无声无息，唯一的提示是运行后会显示一次桌面表示运行成功。（类似于点击windows里的“显示桌面”图标的效果。如果没出现此效果，表示没有运行。可尝试再次点击运行。成功后切勿多次运行。。。）

提示：由于不是病毒，所以所有杀毒软件都不会报毒。但有些会主动截拦，说是恶意程序。。。

恐吓一共分5个部分：

启动后，一刻钟内计算机不会有任何异常。

1.一刻钟过后电脑的光驱会不断d出，关闭，再d出再关闭，重复1分钟。。。

2.计算机屏幕开始疯狂旋转25秒。

3.将出现贞子影像并d出倒计时关机选择窗体15秒。

4.不定时出现诡异的笑声和恐怖图像2小时。。。

5.会突然出现在桌面女鬼。半夜关机后计算机会自动开机启动并发出凄惨的女鬼叫声，如果不清除将永久驻留在计算机内。

清除办法

运行 一刻钟恢复工具.vbe

运行 驱散女鬼.exe 点击清除

即可。

下载地址:

http去://www掉.rayfile.我com/files/d8b0d4c2-994a-11de-bcf9-0014221b798a/

(将"去掉我"删除即可)

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) + "哈哈哈哈，真过瘾"

---