Board logo

标题: [效果]模仿电影渐显名单 [打印本页]

作者: 523066680    时间: 2010-4-9 10:15     标题: [效果]模仿电影渐显名单

名单先后纯粹当时意念,没有特殊含义。
此代码 在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
复制代码

作者: VirusKiller    时间: 2010-4-9 17:59

执行不了呢。。。。。
作者: 523066680    时间: 2010-4-9 18:20     标题: 回复 2楼 的帖子

表示无奈……
作者: zjw767676    时间: 2010-4-9 19:15

怎么是在CMD窗口执行?
作者: diannaoleyuan    时间: 2010-12-2 12:30

怎么是在CMD窗口执行?




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2