[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

http://hi.baidu.com/huajinghua/blog/item/2ca2cf0052143915738b655d.html
大家去瞧下。在群共享里面也有
  1. @echo off&mode con cols=97 lines=30&color 1f&setlocal EnableDelayedExpansion
  2. for /f "tokens=2 delims=:" %%i in ('time /t') do (set timk=%%i)&goto start
  3. 欢迎光临新青年世界……
  4. ————————————————————————————————
  5. 热门新闻,八卦图片……
  6. 电脑知识,生活常识……
  7. 精美壁纸.........................................
  8. 一切精彩尽在新青年世界!
  9. 新青年世界,新青年的世界!
  10. ————————————————————————————————
  11. js
  12. 广告词征集中
  13. 广告词征集中
  14. 广告词征集中
  15. 广告词征集中
  16. 广告词征集中
  17. js
  18. 我的心是匹旋转的木马
  19. 每一圈都在追逐希望
  20. 梦想骑在背上
  21. 身边风在飘扬
  22. 象在云端自由飞翔
  23. 有太多可能让我去想
  24. 有太多未来等我去闯
  25. 美丽写在脸上
  26. 年轻就是这样
  27. 新青年制造你的梦想
  28. 不管世界多宽广
  29. 人群熙熙攘攘
  30. 我要站到最中央
  31. 吸引所有的眼光
  32. 用感觉让你们全部投降
  33. 不管世界多宽广
  34. 人群来来往往
  35. 我的舞台最风光
  36. 当灯光打在脸上
  37. 请为我鼓掌
  38. js
  39. 代码制作: 公孙轩辕
  40. 台词制作: 暂无
  41. 广告设计: 公孙轩辕
  42. js
  43. :cl
  44. for /l %%i in (1,1,%1) do (
  45. echo\&for /l %%i in (1,1,%2) do ver>nul
  46. )
  47. cls
  48. goto :eof
  49. :hang
  50. for /f "tokens=*" %%i in ('more +%1 %2') do (
  51. if "%%i"=="js" goto :eof
  52. set/p=                   <nul
  53. set j=%%i
  54. for /l %%a in (0,1,%3) do (
  55. call set/p=!j:~%%a,1!<nul
  56. for /l %%d in (1,1,400) do ver>nul
  57. )
  58. echo.&echo\
  59. )
  60. goto :eof
  61. :dlx
  62. set/p=        <nul
  63. for /l %%i in (0,1,2) do (
  64. set h=%1
  65. set/p=    <nul
  66. set/p=!h:~%%i,1! <nul
  67. for /l %%i in (1,1,1000) do ver>nul
  68. )
  69. echo\&echo\
  70. goto :eof
  71. :xing
  72. for /l %%i in (1,1,24) do (set/p=☆★<nul
  73. for /l %%i in (1,1,400) do ver>nul)
  74. for /l %%i in (1,1,24) do set/p=<nul
  75. for /l %%i in (1,1,9) do (
  76. for /l %%i in (1,1,24) do call set/p=☆★<nul
  77. for /l %%i in (1,1,1000) do ver>nul
  78. for /l %%i in (1,1,24) do call set/p=<nul
  79. for /l %%i in (1,1,1000) do ver>nul
  80. for /l %%i in (1,1,24) do call set/p=★☆<nul
  81. for /l %%i in (1,1,1000) do ver>nul
  82. for /l %%i in (1,1,24) do call set/p=<nul
  83. for /l %%i in (1,1,1000) do ver>nul
  84. if "%%i"=="9" (call :cl 30 600 &cls)
  85. )
  86. goto :eof
  87. :start
  88. title Made by 公孙轩辕 QQ:327828994
  89. echo\&echo\
  90. for /l %%i in (0,1,9) do (
  91. set[=【新青年世界广告】
  92. set/p=![:~%%i,1!<nul
  93. for /l %%d in (1,1,1000) do ver>nul
  94. )
  95. for /l %%i in (1,1,34) do (
  96. for /l %%i in (1,1,18) do set/p=<nul
  97. for /l %%d in (1,1,600) do ver>nul
  98. set/p= <nul
  99. set/p=![!<nul
  100. )
  101. echo\&echo\
  102. call :hang 2 %0 15
  103. set/p=          <nul
  104. for /l %%a in (0,1,46) do (
  105. set ",=网址:http://hi.baidu.com/huajinghua    欢迎您的访问"
  106. call set/p=!,:~%%a,1!<nul
  107. for /l %%i in (1,1,400) do ver>nul
  108. )
  109. for /l %%i in (1,1,4) do (
  110. for /l %%i in (1,1,2000) do ver>nul
  111. set {=
  112. call set/p=!{!<nul
  113. call set/p=            <nul
  114. call set/p=!{!<nul
  115. for /l %%i in (1,1,2000) do ver>nul
  116. call set/p=欢迎您的访问<nul
  117. )
  118. for /l %%i in (0,1,45) do set/p=<nul
  119. for /l %%i in (1,1,3) do (
  120. for /l %%i in (0,1,29) do set/p ko= <nul
  121. for /l %%i in (0,1,29) do set/p=<nul
  122. for /l %%i in (1,1,2000) do ver>nul
  123. set/p=http://hi.baidu.com/huajinghua<nul
  124. for /l %%i in (0,1,29) do set/p=<nul
  125. for /l %%i in (1,1,2000) do ver>nul
  126. )
  127. for /l %%i in (0,1,45) do (set/p= <nul)
  128. for /l %%i in (0,1,1) do (
  129. set "}=http://hi.baidu.com/huajinghua    欢迎您的访问"
  130. for /l %%i in (1,1,2000) do ver>nul
  131. for /l %%i in (0,1,45) do (set/p=<nul)
  132. call set/p=!}!<nul
  133. for /l %%i in (0,1,45) do (set/p=<nul)
  134. for /l %%i in (1,1,2000) do ver>nul
  135. for /l %%i in (0,1,45) do set/p= <nul
  136. )
  137. for /l %%i in (1,1,2000) do ver>nul
  138. for /l %%i in (0,1,45) do (set/p=<nul)
  139. call set/p=%}%<nul
  140. call :cl 30 600
  141. :dl
  142. echo\&echo\&echo\
  143. call :dlx 对联
  144. for /l %%i in (0,1,7) do (
  145. set/p=                   <nul
  146. set l1=英姿勃发活力青年
  147. set l2=热门时尚网络世界
  148. set/p= ^|^| <nul
  149. set/p d1=!l1:~%%i,1!<nul
  150. set/p= ^|^| <nul
  151. set/p=                                  <nul
  152. set/p= ^|^| <nul
  153. set/p d2=!l2:~%%i,1!<nul
  154. set/p= ^|^| <nul
  155. for /l %%i in (1,1,2000) do ver>nul
  156. echo\&echo\
  157. )
  158. call :dlx 横批
  159. echo\&echo\
  160. set/p=                   <nul
  161. set/p= ^|^| <nul
  162. for /l %%d in (0,1,5) do (
  163. for /l %%a in (1,1,1000) do ver>nul
  164. set ",=新青年世界
  165. set/p=!,:~%%d,1! <nul
  166. set/p=        <nul
  167. )
  168. for /l %%i in (0,1,17) do (set/p=<nul)   
  169. set/p= ^|^|<nul
  170. for /l %%a in (1,1,10000) do ver>nul
  171. echo\&echo\
  172. set q=e 9 d a
  173. for /l %%i in (1,1,5) do (
  174. for %%i in (%q%) do (
  175. color 1%%i
  176. for /l %%a in (1,1,700) do ver>nul
  177. for /l %%a in (1,1,700) do ver>nul)
  178. )
  179. color 1f
  180. for /l %%a in (1,1,2000) do ver>nul
  181. call :cl 30 1000
  182. echo\&echo\&echo\&echo\
  183. call :hang 11 %0 10
  184. for /l %%i in (1,1,15) do echo\
  185. call :xing
  186. echo\&echo\&echo\&echo\
  187. echo                                 《新青年制造》:&echo\
  188. call :hang 18 %0 15
  189. :js
  190. call :cl 30 400
  191. echo\&echo\&echo\&echo\
  192. call :hang 38 %0 10
  193. for /l %%i in (1,1,18) do echo\
  194. call :cl 10 3000
  195. for /l %%a in (1,1,8) do echo\
  196. set/p=         <nul
  197. for /l %%k in (0,1,20) do (
  198. set,=看完这段广告,您是否心动了呢?
  199. call set/p=!,:~%%k,1!<nul
  200. for /l %%a in (1,1,700) do ver>nul
  201. )
  202. echo\&echo\&echo\
  203. set/p=         <nul
  204. for /l %%k in (0,1,40) do (
  205. set,=那么请赶快打开您的浏览器,不管是老掉牙的IE浏览器或者是火狐浏览器等等……
  206. call set/p=!,:~%%k,1!<nul
  207. for /l %%a in (1,1,300) do ver>nul
  208. )
  209. echo\&echo\&echo\
  210. set/p=         <nul
  211. for /l %%a in (0,1,60) do (
  212. set,=在地址栏中输入http://hi.baidu.com/huajinghua,您就能访问到我们的页面了。
  213. call set/p=!,:~%%a,1!<nul
  214. for /l %%a in (1,1,500) do ver>nul
  215. )
  216. echo\&echo\&echo\
  217. set/p=         <nul
  218. for /l %%a in (0,1,60) do (
  219. set,=请记住我们的永久域名http://hi.baidu.com/huajinghua
  220. call set/p=!,:~%%a,1!<nul
  221. for /l %%a in (1,1,300) do ver>nul
  222. )
  223. for /l %%a in (0,1,29) do set/p=<nul
  224. for /l %%a in (0,1,29) do set/p ko= <nul
  225. for /l %%i in (1,1,3) do (
  226. for /l %%a in (0,1,29) do (
  227. set/p=<nul
  228. set/p= <nul
  229. set/p=<nul
  230. for /l %%i in (1,1,100) do ver>nul)
  231. for /l %%i in (0,1,29) do (
  232. set,=http://hi.baidu.com/huajinghua
  233. call set/p=!,:~%%i,1!<nul
  234. for /l %%a in (1,1,500) do ver>nul
  235. )
  236. for /l %%a in (1,1,10000) do ver>nul
  237. )
  238. call :cl 30 600
  239. for /l %%a in (1,1,10) do echo\
  240. set/p=                                       <nul
  241. set/p=广告结束<nul
  242. echo\&echo\&echo\&echo\
  243. set/p=                <nul
  244. for /f "tokens=2 delims=:" %%i in ('time /t') do (set timj=%%i)
  245. set/a sum=%timj%-%timk%
  246. set/p=总共花费您!sum!分钟观看该广告!欢迎下次收看,谢谢!
  247. for /l %%a in (1,1,40000) do ver>nul
复制代码

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

TOP

TOP

哈哈着东西我早就看过

TOP

返回列表