'ShowOneByOne
's11ss 2007-11-21
Option Explicit
Dim str,delay,i,one
'Judge ScriptHost and argument numbers:
If Lcase(Right(WScript.FullName,11))="wscript.exe" or WScript.Arguments.Count<>2 Then
WScript.Echo("Two Arguments:"&vbCrLf _
&"1.A string to show"&vbCrLf _
&"2.Delay between two characters(ms)"&vbCrLf _
&"e.g.:"&vbCrLf _
&"cscript //nologo "&WScript.ScriptName&" www.cn-dos.net"&" 1000")
WScript.Quit
End If
str=WScript.Arguments(0)
delay=WScript.Arguments(1)
If IsNumeric(delay) Then
delay=Abs(delay)
For i=1 To Len(str)
one=Mid(str,i,1)'Get one character
WScript.Sleep(delay)'Delay
WScript.StdOut.Write(one)'Print
Next
Else
WScript.Echo(delay&" is not a number!")
End if
