批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[效果]模仿电影渐显名单

名单先后纯粹当时意念,没有特殊含义。
此代码 在cn-dos发过
  1. if wscript.arguments.count = 0 then
  2.   createobject("wscript.shell").run _
  3.   "cmd /c title Hi~ cn-dos &mode con cols=50 lines=6 & "&_
  4.   " cscript //nologo " &chr(34) &wscript.scriptname &chr(34) &" isme"
  5.   wscript.quit
  6. end if
  7. :rem Made by if(e_x)ist@cn-dos
  8. set inp=wscript.stdin
  9. set put=wscript.stdout
  10. dim str(6)
  11. str(0)=" W W W . C N - D O S . N E T "
  12. str(1)=" B A T H O M E  "
  13. str(2)=" L x m x n  "
  14. str(3)=" E v e r e s t 7 9 "
  15. str(4)=" N e t B e n T o n "
  16. str(5)=" I F _ E X I S T "
  17. str(6)=" H u a h u a 0919 "
  18. for each strx in str
  19.   call EchoInRnd(replace(space(len(strx))," ","-"),strx)
  20.   call EchoInRnd(strx,strx)
  21.   call EchoInRnd(strx,space(len(strx)))
  22.   put.writeline
  23. next
  24. sub EchoInRnd(stra,strb)
  25. dim x(100)
  26. xlb=len(stra)
  27. xla=xlb-1
  28. for i = 0 to xlb
  29.    x(i) = i
  30. next
  31. ln=stra
  32. for i = xla to 0 step -1
  33.    tn=int(rnd*i)
  34.    ln=left(ln,x(tn)) & mid(strb,x(tn)+1,1) & right(ln,xla-x(tn))
  35.         wscript.sleep 50
  36.    put.write chr(13)
  37.    put.write space((50-xlb)/2) & ln
  38.    x(tn)=x(i)
  39. next
  40. end sub
复制代码

执行不了呢。。。。。

TOP

回复 2楼 的帖子

表示无奈……

TOP

怎么是在CMD窗口执行?
有一种爱叫放弃

TOP

怎么是在CMD窗口执行?

TOP

返回列表