'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