使用过OFFICE的朋友肯定都知道OFFICE里面有一个“助手”的概念,说白了那就是一个ActiveX控件。大家为了美观自己的网站,使网站更加吸引别人,也可以在网页中插入一个“助手”。
将下面的代码插入/templates/你的模版/index.htm
查找:
在它下面插入:
- <SCRIPT>
- <!--
- function crml(nid)
- {
- try
- {
- nid=new ActiveXObject("Agent.Control.2");
- nid.Connected = true;
- nid.Characters.Load("");
- return nid;
- }
- catch (err)
- {
- return false;
- }
- }
- function chplay ()
- {
- if (ml=crml ("ml"))
- {
- var MerlinID;
- var MerlinACS;
- Merlin = ml.Characters.Character(MerlinID);
- Merlin.MoveTo(200,450);
- Merlin.Show();
- Merlin.Play("GetAttention");
- Merlin.Speak("嗨,亲爱的朋友,我是站长默林! ");
- Merlin.Play("Pleased");
- Merlin.Play("Announce");
- Merlin.Speak("欢迎您光临XX网站!");
- Merlin.MoveTo(420,400);
- Merlin.Play("Think");
- Merlin.Play("GestureRight");
- Merlin.Speak("您可以在这儿结识很多的朋友!");
- Merlin.Play("DoMagic1");
- Merlin.Speak("也可以了解世界动态!");
- Merlin.Play("DoMagic2");
- Merlin.Speak("当然,还有最新消息!");
- Merlin.Play("Suggest");
- Merlin.Hide();
- Merlin.MoveTo(580,457);
- Merlin.Show();
- Merlin.Play("Surprised");
- Merlin.Speak("哦,对了,忘了提醒您!");
- Merlin.Play("Blink");
- Merlin.Play("Congratulate");
- Merlin.Speak("欢迎您收藏XX网站!");
- Merlin.Play("Read");
- Merlin.Speak("我们的地址是:http://");
- Merlin.Play("Write");
- Merlin.Play("Greet");
- Merlin.Speak("再次感谢您的光临!");
- Merlin.Play("Wave");
- Merlin.Hide();
- }
- }
- //-->
- </SCRIPT>
- <SCRIPT>
- <!--
- chplay()
- --></SCRIPT>
复制代码
你可以把
里的内容改成你喜欢的,然后覆盖原来的index.htm,刷新主页即可看到效果。
补充一下:
这个代码在一些客户端浏览器里不能正常运行,这有可能是两个原因造成的:
- 浏览器不支持脚本;
- 客户端操作系统为Win9x(且没装MsAgent)。
若不能显示不影响论坛的使用。
[ 本帖最后由 魔焰男孩 于 2005-6-24 12:59 编辑 ] |