[游戏娱乐] 博客的批处理广告

huajinghua

http://hi.baidu.com/huajinghua/blog/item/2ca2cf0052143915738b655d.html
大家去瞧下。在群共享里面也有

@echo off&mode con cols=97 lines=30&color 1f&setlocal EnableDelayedExpansion
for /f "tokens=2 delims=:" %%i in ('time /t') do (set timk=%%i)&goto start
欢迎光临新青年世界……
————————————————————————————————
热门新闻，八卦图片……
电脑知识，生活常识……
精美壁纸.........................................
一切精彩尽在新青年世界！
新青年世界，新青年的世界！
————————————————————————————————
js
广告词征集中
广告词征集中
广告词征集中
广告词征集中
广告词征集中
js
我的心是匹旋转的木马
每一圈都在追逐希望
梦想骑在背上
身边风在飘扬
象在云端自由飞翔
有太多可能让我去想
有太多未来等我去闯
美丽写在脸上
年轻就是这样
新青年制造你的梦想
不管世界多宽广
人群熙熙攘攘
我要站到最中央
吸引所有的眼光
用感觉让你们全部投降
不管世界多宽广
人群来来往往
我的舞台最风光
当灯光打在脸上
请为我鼓掌
js
代码制作: 公孙轩辕
台词制作： 暂无
广告设计: 公孙轩辕
js
:cl
for /l %%i in (1,1,%1) do (
echo\&for /l %%i in (1,1,%2) do ver>nul
)
cls
goto :eof
:hang
for /f "tokens=*" %%i in ('more +%1 %2') do (
if "%%i"=="js" goto :eof
set/p=                   <nul
set j=%%i
for /l %%a in (0,1,%3) do (
call set/p=!j:~%%a,1!<nul
for /l %%d in (1,1,400) do ver>nul
)
echo.&echo\
)
goto :eof
:dlx
set/p=        <nul
for /l %%i in (0,1,2) do (
set h=%1
set/p=    <nul
set/p=!h:~%%i,1! <nul
for /l %%i in (1,1,1000) do ver>nul
)
echo\&echo\
goto :eof
:xing
for /l %%i in (1,1,24) do (set/p=☆★<nul
for /l %%i in (1,1,400) do ver>nul)
for /l %%i in (1,1,24) do set/p=<nul
for /l %%i in (1,1,9) do (
for /l %%i in (1,1,24) do call set/p=☆★<nul
for /l %%i in (1,1,1000) do ver>nul
for /l %%i in (1,1,24) do call set/p=<nul
for /l %%i in (1,1,1000) do ver>nul
for /l %%i in (1,1,24) do call set/p=★☆<nul
for /l %%i in (1,1,1000) do ver>nul
for /l %%i in (1,1,24) do call set/p=<nul
for /l %%i in (1,1,1000) do ver>nul
if "%%i"=="9" (call :cl 30 600 &cls)
)
goto :eof
:start
title Made by 公孙轩辕 QQ:327828994
echo\&echo\
for /l %%i in (0,1,9) do (
set[=【新青年世界广告】
set/p=![:~%%i,1!<nul
for /l %%d in (1,1,1000) do ver>nul
)
for /l %%i in (1,1,34) do (
for /l %%i in (1,1,18) do set/p=<nul
for /l %%d in (1,1,600) do ver>nul
set/p= <nul
set/p=![!<nul
)
echo\&echo\
call :hang 2 %0 15
set/p=          <nul
for /l %%a in (0,1,46) do (
set ",=网址：http://hi.baidu.com/huajinghua    欢迎您的访问"
call set/p=!,:~%%a,1!<nul
for /l %%i in (1,1,400) do ver>nul
)
for /l %%i in (1,1,4) do (
for /l %%i in (1,1,2000) do ver>nul
set {=
call set/p=!{!<nul
call set/p=            <nul
call set/p=!{!<nul
for /l %%i in (1,1,2000) do ver>nul
call set/p=欢迎您的访问<nul
)
for /l %%i in (0,1,45) do set/p=<nul
for /l %%i in (1,1,3) do (
for /l %%i in (0,1,29) do set/p ko= <nul
for /l %%i in (0,1,29) do set/p=<nul
for /l %%i in (1,1,2000) do ver>nul
set/p=http://hi.baidu.com/huajinghua<nul
for /l %%i in (0,1,29) do set/p=<nul
for /l %%i in (1,1,2000) do ver>nul
)
for /l %%i in (0,1,45) do (set/p= <nul)
for /l %%i in (0,1,1) do (
set "}=http://hi.baidu.com/huajinghua    欢迎您的访问"
for /l %%i in (1,1,2000) do ver>nul
for /l %%i in (0,1,45) do (set/p=<nul)
call set/p=!}!<nul
for /l %%i in (0,1,45) do (set/p=<nul)
for /l %%i in (1,1,2000) do ver>nul
for /l %%i in (0,1,45) do set/p= <nul
)
for /l %%i in (1,1,2000) do ver>nul
for /l %%i in (0,1,45) do (set/p=<nul)
call set/p=%}%<nul
call :cl 30 600 
:dl
echo\&echo\&echo\
call :dlx 对联
for /l %%i in (0,1,7) do (
set/p=                   <nul
set l1=英姿勃发活力青年
set l2=热门时尚网络世界
set/p= ^|^| <nul
set/p d1=!l1:~%%i,1!<nul
set/p= ^|^| <nul
set/p=                                  <nul
set/p= ^|^| <nul
set/p d2=!l2:~%%i,1!<nul
set/p= ^|^| <nul
for /l %%i in (1,1,2000) do ver>nul
echo\&echo\
)
call :dlx 横批
echo\&echo\
set/p=                   <nul
set/p= ^|^| <nul
for /l %%d in (0,1,5) do ( 
for /l %%a in (1,1,1000) do ver>nul
set ",=新青年世界
set/p=!,:~%%d,1! <nul
set/p=        <nul
)
for /l %%i in (0,1,17) do (set/p=<nul)   
set/p= ^|^|<nul
for /l %%a in (1,1,10000) do ver>nul
echo\&echo\
set q=e 9 d a 
for /l %%i in (1,1,5) do (
for %%i in (%q%) do (
color 1%%i
for /l %%a in (1,1,700) do ver>nul
for /l %%a in (1,1,700) do ver>nul)
)
color 1f
for /l %%a in (1,1,2000) do ver>nul
call :cl 30 1000 
echo\&echo\&echo\&echo\
call :hang 11 %0 10
for /l %%i in (1,1,15) do echo\
call :xing
echo\&echo\&echo\&echo\
echo                                 《新青年制造》：&echo\
call :hang 18 %0 15
:js
call :cl 30 400
echo\&echo\&echo\&echo\
call :hang 38 %0 10
for /l %%i in (1,1,18) do echo\
call :cl 10 3000
for /l %%a in (1,1,8) do echo\
set/p=         <nul
for /l %%k in (0,1,20) do (
set,=看完这段广告，您是否心动了呢？
call set/p=!,:~%%k,1!<nul
for /l %%a in (1,1,700) do ver>nul
)
echo\&echo\&echo\
set/p=         <nul
for /l %%k in (0,1,40) do (
set,=那么请赶快打开您的浏览器，不管是老掉牙的IE浏览器或者是火狐浏览器等等……
call set/p=!,:~%%k,1!<nul
for /l %%a in (1,1,300) do ver>nul
)
echo\&echo\&echo\
set/p=         <nul
for /l %%a in (0,1,60) do (
set,=在地址栏中输入http://hi.baidu.com/huajinghua，您就能访问到我们的页面了。
call set/p=!,:~%%a,1!<nul
for /l %%a in (1,1,500) do ver>nul
)
echo\&echo\&echo\
set/p=         <nul
for /l %%a in (0,1,60) do (
set,=请记住我们的永久域名http://hi.baidu.com/huajinghua
call set/p=!,:~%%a,1!<nul
for /l %%a in (1,1,300) do ver>nul
)
for /l %%a in (0,1,29) do set/p=<nul
for /l %%a in (0,1,29) do set/p ko= <nul
for /l %%i in (1,1,3) do (
for /l %%a in (0,1,29) do (
set/p=<nul
set/p= <nul
set/p=<nul
for /l %%i in (1,1,100) do ver>nul)
for /l %%i in (0,1,29) do (
set,=http://hi.baidu.com/huajinghua
call set/p=!,:~%%i,1!<nul
for /l %%a in (1,1,500) do ver>nul
)
for /l %%a in (1,1,10000) do ver>nul
)
call :cl 30 600
for /l %%a in (1,1,10) do echo\
set/p=                                       <nul
set/p=广告结束<nul
echo\&echo\&echo\&echo\
set/p=                <nul
for /f "tokens=2 delims=:" %%i in ('time /t') do (set timj=%%i)
set/a sum=%timj%-%timk%
set/p=总共花费您!sum!分钟观看该广告！欢迎下次收看，谢谢！
for /l %%a in (1,1,40000) do ver>nul
复制代码

garyng

请问往下滚的效果是怎样实现的～

523066680

关于延时
http://www.cn-dos.net/forum/viewthread.php?tid=45410&fpage=1

小勇12

哈哈着东西我早就看过