 『楼 主』:
打倒法国！支持奥运！再发奥运倒计时批处理！！！
＆＆虽然我以前发过奥运倒计时的批处理，但为了使每一个有血性的中国人都牢牢记住2008年8月8日晚上8点这一辉煌时刻，同时也在此向阻挠中国奥运征程的法国小儿提出强烈抗议，我特此厚着脸皮再发一次原为支持奥运所写的倒计时批处理：
@echo off&color ac&mode con cols=50 lines=10
title 这是我们每一个中国人的心声！！！
echo.&echo.&echo.
echo 打倒一切阻挠奥运的反动势力，全力支持奥运！
echo.
for /l %%i in (1,1,100) do call,set cls=%%cls%%
goto one
:two
set n=2&set var=08-07&goto begin
:one
set n=1&set var=%date:~5,-4%
:begin
set month=%var:~1,1%&set number=29
set /a month-=1
for /l %%i in (1,1,%month%) do call :lp %%i
set /a number+=100%var:~3,2%%%100
set str=%str% %number%
if not %n% equ 2 goto two
for /f "tokens=1,2" %%i in ("%str%") do set /a day=%%j-%%i
set /a hm=100-1000%time:~9,2%%%1000,m=60-100%time:~6,2%%%100,f=60-100%time:~3,2%%%100,s=43-%time:~,2%
if %hm% equ 100 set /a hm-=100,m+=1
if %m% equ 60 set /a m-=60,f+=1
if %f% equ 60 set /a f-=60,h+=1
if %s% geq 24 set /a s-=24,day+=1
set /p= 离北京奥运开幕还有%day%天%s%小时%f%分%m%秒%hm%毫秒<nul
set /p=%cls%<nul
set n=0&set number=0
goto begin
:lp
for %%i in (1,3,5,7,8,10) do if %%i equ %1 set /a number+=31
for %%i in (4,6,9,11) do if %%i equ %1 set /a number+=30 [ Last edited by zw19750516 on 2008-5-9 at 01:01 AM ]
此帖被 +2 点积分 点击查看详情 | 评分人：【 nipo 】 | 分数： +2 | 时间：2008-5-19 01:52 |
|
|
