VBS模拟开机动画代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】 VBS模拟开机动画

作者:everest79 / 发布于2014/1/21/ 971

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

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　模拟开机动画　

同语言下

可能有用的

everest79贡献的其它代码(8)