您的位置：首页 > 编程语言 > VB

VBScript实现打字效果

2020-02-02 01:40 821 查看

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD><TITLE>给你一个故事-人生哲学--读者文摘推荐</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
rel=stylesheet type=text/css>
<STYLE type=text/css>TD {
LINE-HEIGHT: 28px; FONT-SIZE: 14px
}
</STYLE>

<META name=GENERATOR content="MSHTML 8.00.6001.19120"></HEAD>
<BODY background=给你一个故事-人生哲学--读者文摘推荐_files/IMAGE001.gif><BGSOUND balance=0
volume=0 loop=infinite src="">
<SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr=" ":c="|"&mr:Set w = document.body

sub tp
m=mid(t,p,1):if m="" then c=mr
if m="`" then m="":mm=mid(mm,1,len(mm)-1)
if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1
if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1
tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then 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:tp
end sub
</SCRIPT>

<DIV style="DISPLAY: none" id=w0>
<TABLE border=0 width="90%" align=center>
<TBODY>
<TR>
 <TD>
 
 Hi 大家好。。。给你一个故事，希望你能喜欢这个故事并希望它能为你带来好运。 
 一天,一个盲人带着他的导盲犬过街时,一辆大卡车失去控制,直冲过来,盲人当场被撞死,他的导盲犬为了守卫主人,也一起惨死在车轮底下。
 主人和狗一起到了天堂门前。
 一个天使拦住他俩,为难地说:“对不起,现在天堂只剩下一个名额,你们两个中必须有一个去地狱。”
 主人一听,连忙问:“我的狗又不知道什么是天堂,什么是地狱,能不能让我来决定谁去天堂呢？”
 天使鄙视地看了这个主人一样,皱起了眉头,她想了想,说:“很抱歉,先生,每一个灵魂都是平等的,你们要通过比赛决定由谁上天堂。”
 主人失望地问:“哦,什么比赛呢？”
 天使说:“这个比赛很简单,就是赛跑,从这里跑到天堂的大门,谁先到达目的地,谁就可以上天堂。不过,你也别担心,因为你已经死了,所以不再是瞎子,而且灵魂的速度跟肉体无关,越单纯善良的人速度越快。”
 主人想了想,同意了。
 天使让主人和狗准备好,就宣布赛跑开始。她满心以为主人为了进天堂,会拼命往前奔,谁知道主人一点也不忙,慢吞吞地往前走着。更令天使吃惊的是,那条导盲犬也没有奔跑,它配合着主人的步调在旁边慢慢跟着,一步都不肯离开主人。天使恍然大悟:原来,多年来这条导盲犬已经养成了习惯,永远跟着主人行动,在主人的前方守护着他。可恶的主人,正是利用了这一点,才胸有成竹,稳操胜券,他只要在天堂门口叫他的狗停下就可以了。
 天使看着这条忠心耿耿的狗,心里很难过,她大声对狗说:“你已经为主人献出了生命,现在,你这个主人不再是瞎子,你也不用领着他走路了,你快跑进天堂吧!”
 可是,无论是主人还是他的狗,都像是没有听到天使的话一样,仍然慢吞吞地地往前走,好像在街上散步似的。
 果然,离终点还有几步的时候,主人发出一声口令,狗听话地坐下了,天使用鄙视的眼神看着主人。
 这时,主人笑了,他扭过头对天使说:“我终于把我的狗送到天堂了,我最担心的就是它根本不想上天堂,只想跟我在一起……所以我才想帮它决定,请你照顾好它。”
 天使愣住了。
 主人留恋地看着自己的狗,又说:“能够用比赛的方式决定真是太好了,只要我再让它往前走几步,它就可以上天堂了。不过它陪伴了我那么多年,这是我第一次可以用自己的眼睛看着它,所以我忍不住想要慢慢地走,多看它一会儿。如果可以的话,我真希望永远看着它走下去。不过天堂到了,那才是它该去的地方,请你照顾好它。”
 说完这些话,主人向狗发出了前进的命令,就在狗到达终点的一刹那,主人像一片羽毛似的落向了地狱的方向。他的狗见了,急忙掉转头,追着主人狂奔。满心懊悔的天使张开翅膀追过去,想要抓住导盲犬,不过那是世界上最纯洁善良的灵魂,速度远比天堂所有的天使都快。
 所以导盲犬又跟主人在一起了,即使是在地狱,导盲犬也永远守护着它的主人。
 天使久久地站在那里,喃喃说道:“我一开始就错了,这两个灵魂是一体的,他们不能分开……” 　　 　　最后，我要说：这个世界上,真相只有一个,可是在不同人眼中,却会看出不同的是非曲直。这是为什么呢？其实,道理很简单,因为每个人看待事物,都不可能站在绝对客观公正的立场上,而是或多或少地戴上有色眼镜,用自己的经验、好恶和道德标准来进行评判,结果就是——我们看到了假象。
 　　 "友谊的幸福之一，是知道了可以向谁倾吐秘密。"如果你收到了这封信，是因为有人在默默的祝福你，因为你也爱你身边的一些人。如果你总说太忙，不能将这封信转寄出去，老是说："改天再寄。"你将永远都不会去做这件事的。所以，不要找借口，静心的看看这篇古老印度来的故事，然后决定为你的朋友们作一些事，从传寄这封信开始。当你说："你是我的好朋友"时，请认真的说出来。当你道歉时请看着对方的眼睛。
 
 　　永远不要嘲笑别人的梦想。不要随便给一个人定性。说话时要慢，思想时要快。
 　　打电话的时候请你微笑，对方一定感觉得到。 
 　　这封信应该在你收到的96小时候转发，你会发现4天后，生活起了变化。这不是迷信。
 　　转给0-4人：你的生活会悄悄起变化
 　　转给5-9人：生活如你所愿
 　　转给9-14人：接下来的三个星期你会有惊喜的发现
 　　转给15人以上：你的梦想终会成真. 
 　　这是一个朋友转发给我的信。常常收到类似的让我继续转发的邮件，号称如果这样做了就会发财之类，通常我会把自己作为终点，但是这封信打动了我，因为它说："收到了这封信，是因为有人在默默的祝福你，因为你也爱你身边的一些人"。带着爱的，一切将如愿以偿。
 　　这是一封给你送上好运的信，它始于新英格兰。此信的复制由南非教区主教索尔安东尼起草并由维尼乌拉发出，已经绕地球转了十次。现在好运已降临到你身上，只要你照办，将此信网址复制2O份分别寄给亲朋好友或QQ上的朋友，使它在界各地周转，你将在四天内交到好运，这不是在开玩笑，不需要寄钱，因为幸运是无代价的。
 　　你看到了吗？我在默默的祝福你。*^_^* </TD></TR></TBODY></TABLE></DIV>
<DIV id=w1></DIV>
 </BODY></HTML>

转载于:https://www.cnblogs.com/xusui/archive/2011/11/11/2245665.html

点赞
收藏
分享
文章举报

aimaonu2505 发布了0 篇原创文章 · 获赞 0 · 访问量 121 私信关注

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航