标题: 批处理屏保 [打印本页]
作者: zcydez 时间: 2010-6-6 16:47 标题: 批处理屏保
@echo off
title 批处理屏保
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437>nul
graftabl 936>nul
:a
set /a l=%random%%%24
cls
for /l %%i in (1 1 %l%) do (echo.)
echo. 要退出，请按Ctrl+c。
ping -n 3 127.0.1>nul
set /a c=%random%%%16
if %c%==10 set c=a
if %c%==11 set c=b
if %c%==12 set c=c
if %c%==13 set c=d
if %c%==14 set c=e
if %c%==15 set c=f
color %c%0
goto a
采用了最省Cpu的方式title 批处理屏保
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437>nul
graftabl 936>nul
:a
set /a l=%random%%%24
cls
for /l %%i in (1 1 %l%) do (echo.)
echo. 要退出，请按Ctrl+c。
ping -n 3 127.0.1>nul
set /a c=%random%%%16
if %c%==10 set c=a
if %c%==11 set c=b
if %c%==12 set c=c
if %c%==13 set c=d
if %c%==14 set c=e
if %c%==15 set c=f
color %c%0
goto a
笔者用时Cpu只在0%-4%之间徘徊。
好像没人回帖？？？
有点冷啊
[ Last edited by zcydez on 2010-6-6 at 16:56 ]
作者: yiqingnan 时间: 2010-6-6 19:48
谢谢楼主分享
我也贴一个
@echo off
:begin
set /a a=%random%/3640&set /a b=%random%/3640
:1
set /a c=%random%/328
if %c% leq 13 goto 1
:2
set /a d=%random%/1092
if %d% leq 1 goto 2
title 哈哈！无穷变幻的窗口哦&color %a%%b%&mode con cols=%c% lines=%d%&ping/n 1 127.1>nul&cls&echo.&echo.&echo.&echo.&goto begin
自己网上收集的
作者: flyghost 时间: 2010-6-6 23:12
win7 CMD下不能运行
作者: bd123456789 时间: 2010-6-9 21:09
不错不错
不过，能否达到批处理即时关显示器倡导低碳生活？？
[ Last edited by bd123456789 on 2010-6-10 at 06:52 ]
作者: HAT 时间: 2010-6-10 15:16 标题: Re 4 楼
google搜索MonitorOff.exe
作者: zcydez 时间: 2010-6-10 18:45
搜索MonitorOff.exe干嘛？
作者: smileoa 时间: 2010-7-29 15:53
没有实际意义，要是能响应键盘鼠标的动作就好了。比如动下键盘屏保自动退出。
作者: defanive 时间: 2010-7-29 16:21
@echo off&setlocal enabledelayedexpansion
if "%~1"=="" (
start /b "" cmd /c "%~f0" 123
for /l %%a in (0,0,0) do (
cls
echo !time! !date!
ping -n 1 127.0.0.1 >nul
)
)
pause>nul
taskkill /f /fi "windowtitle eq %comspec%" /im cmd.exe
基本实现了按键就关闭。。。if "%~1"=="" (
start /b "" cmd /c "%~f0" 123
for /l %%a in (0,0,0) do (
cls
echo !time! !date!
ping -n 1 127.0.0.1 >nul
)
)
pause>nul
taskkill /f /fi "windowtitle eq %comspec%" /im cmd.exe
全屏我就不搞了，vista和win7无法全屏，我这里没发测试。。。
作者: zcydez 时间: 2010-8-13 13:40
谢谢5L
原来是关闭显示器
作者: 9096 时间: 2010-10-29 16:16
谢谢你能为大众服务
作者: 517 时间: 2010-12-31 18:24
学习
作者: 517 时间: 2010-12-31 18:24
2楼好哦