如何实现文字打出来的效果

来源：百度知道 编辑：UC知道 时间：2024/05/23 14:51:48
就像这个网站上的文字“http://cn.wu123.com/1225/www/”那样一个一个的显示出来，用vb script脚本编辑的，但是它的脚本我看不懂，那些才是关键的?xiexiele.
我是说在最后的时候汉字随着光标在屏幕上显示，而不是vb脚本的消息框和输入框！

下面是按你的要求修改的代码，你用记事本复制下来，保存为htm格式试下。注意，除了文字部分，下面的代码已经是最精简的，一个都不能改动

<SCRIPT language="vbscript">
aa=""
aa=aa+"<div id=ww0 style='DISPLAY: none'>在你心中占据着最重要的位置，你对</div> "
document.write(aa)
</script>
<SCRIPT language=VBScript>
dim w,t,p,mm,dy,tmp,vs:vs=5:dy=1:p=1:c="<font color=white><B>|</B></font>":Set w = document.body
sub tp
m=mid(t,p,1):
tmp=200
if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1
mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"
end sub
sub window_onload()
w.scroll="yes"
w.bgcolor="#A8A8A8"
w.style.cursor="crosshair"
'-------------------
t=w0.innerHTML
t=ww0.innerHTML + t
tp
end sub