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

523066680

名单先后纯粹当时意念，没有特殊含义。
此代码 在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. 
    
19. for each strx in str
    
20.   call EchoInRnd(replace(space(len(strx))," ","-"),strx)
    
21.   call EchoInRnd(strx,strx)
    
22.   call EchoInRnd(strx,space(len(strx)))
    
23.   put.writeline
    
24. next
    
25. 
    
26. sub EchoInRnd(stra,strb)
    
27. dim x(100)
    
28. xlb=len(stra)
    
29. xla=xlb-1
    
30. for i = 0 to xlb
    
31.    x(i) = i
    
32. next
    
33. ln=stra
    
34. for i = xla to 0 step -1
    
35.    tn=int(rnd*i)
    
36.    ln=left(ln,x(tn)) & mid(strb,x(tn)+1,1) & right(ln,xla-x(tn))
    
37.         wscript.sleep 50
    
38.    put.write chr(13)
    
39.    put.write space((50-xlb)/2) & ln
    
40.    x(tn)=x(i)
    
41. next
    
42. end sub

复制代码

VirusKiller

执行不了呢。。。。。

523066680

表示无奈……

zjw767676

怎么是在CMD窗口执行？

diannaoleyuan

怎么是在CMD窗口执行？