CD=Wscript.Arguments(1)
Str=Wscript.Arguments(0)
Time_Delay=Wscript.Arguments(2)
Switch1=Wscript.Arguments(3)
Switch2=Wscript.Arguments(4)
Str_Len=len(Str)
Show_Str Str,Str_Len,CD,Time_Delay,Switch1,Switch2
wscript.stdout.write vbcrlf
Function Show_Str(str,strlen,CD,Speed,Switch1,Switch2)
IF Ucase(Switch2)="Y" then
Show_Cursor 8,CD
End if
IF str<>"" then
For i=1 to strlen
if i mod 2=0 then
Cursor=" "
else
Cursor="_"
end if
IF i=strlen then
Cursor=" "
End if
IF Ucase(Switch1)="Y" then
str1=str1 & ">"
wscript.stdout.write chr(13) & CD & str1&Left(str,79-i) & chr(8)
Else
wscript.stdout.write chr(13) & CD & Left(str,i)&Cursor& chr(8)
End if
wscript.sleep Speed
Next
Else
Exit Function
End if
End Function
Function Show_Cursor(Num,CD)
for i=1 to Num
if i mod 2=0 then
Cursor=" "
else
Cursor="_"
end if
wscript.stdout.write chr(13) & CD & Cursor & chr(8)
wscript.sleep 200
Next
End Function作者: youxi01 时间: 2008-4-7 09:39
