联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
//ShowOneByOne //s11ss 2007-12-14 var str,delay,i,one; //Judge ScriptHost and argument numbers: str=WScript.FullName; str=str.substring(str.length-11,str.length).toLowerCase(); if(str=="wscript.exe"||WScript.Arguments.Count()!=2){ WScript.Echo("Two Arguments:"+"\n" +"1.A string to show"+"\n" +"2.Delay between two characters(ms)"+"\n" +"e.g.:"+"\n" +"cscript //nologo \""+WScript.ScriptName+"\" www.cn-dos.net"+" 1000"); WScript.Quit(); } str=WScript.Arguments(0); delay=WScript.Arguments(1); if(parseFloat(delay)==delay){ delay=Math.abs(delay); for(i=0;i<=str.length;i++) { one=str.substr(i,1);//Get one character WScript.Sleep(delay);//Delay WScript.StdOut.Write(one);//Print } }else{ WScript.Echo(delay+" is not a number!") }