记得刚会上网的时候，有人发给我一个网页，打开一看，先显示“贞子来了”然后就是一个嘴角流着血的女鬼，这个女鬼的窗口满屏幕乱跑，还伴随着鬼叫声，那时候可吓死我了，看着女鬼吓的要命但是不知道怎么把网页关闭（那时候还不知道可以在任务栏关闭窗口和用ALT+F4关闭）……
现在想起这个网页了来还记忆犹新，可惜那个网页的网址是永远想不起来了。不过好歹自己现在也懂点脚本语言，试试自己做一个？没想到还真做出来了。
因为对JavaScript不熟悉，所以用了VBScript，不过VBScript里好像没有window.moveTo或者有我不会用，所以用JavaScript做了一个window.moveTo的函数在VBScript里调用。
代码如下：
| 以下为代码： <script language='javascript'> <!-- //窗口移动函数，下面备用 function move(x,y) { window.moveTo(x,y); } //获取分辨率，以便下面决定窗口跳动的坐标范围 gao=screen.height; kuan=screen.width; //将窗口大小改变为300*500 window.resizeTo(300,500); //--> </script> <script language="VBScript"> '第一个子过程 Sub move1() '获得一个随机的坐标，坐标范围：左、上超出左面50像素到右下距窗口边缘10像素内 Dim m,n,o,x1,y1 m=gao-10 n=kuan-10 o=-50 Randomize timer x1=Int(Rnd()*(n-o+1))+o y1=Int(Rnd()*(m-o+1))+o '调用窗口移动函数将窗口移动到随机的位置 Call move(x1,y1) '50毫秒后执行第二个子过程 Dim t1 t1=settimeout("move2()",50) End Sub '第二个子过程 Sub move2() '获得一个随机的坐标，坐标范围：左、上超出左面50像素到右下距窗口边缘10像素内 Dim m,n,o,x2,y2 m=gao-10 n=kuan-10 o=-50 Randomize timer x2=Int(Rnd()*(n-o+1))+o y2=Int(Rnd()*(m-o+1))+o '调用窗口移动函数将窗口移动到随机的位置 Call move(x2,y2) '50毫秒后执行第一个子过程 Dim t2 t2=settimeout("move1()",50) End Sub '窗口打开20毫秒后执行第一个子过程，这样引导第一个和第二和子过程无限循环不停的调用，就实现了我们要的效果。 Dim t t=settimeout("move1()",20) </script> |
把这个代码加到网页里，网页就可以实现满屏乱跑的效果了（要单窗口浏览器才可以，而且因为使用了VBScript,所以基本上只有在IE6下才有效，不过使用IE6的还是占主流）
给这个网页上增加个女鬼再加点声音，或者换成其他好玩的图片把速度改慢点，肯定肯好玩。
站长排行
学院
新闻
专栏
盈利
如果你有站长界人事变动、重组并购、变革技术出现，以及产品投诉等重要新闻线索，请告诉我们，我们会给予特别关注。
0631-3653338
站长中国编辑部
站长中国24小时新闻热线： 13256307008
收藏本文
打印本文
告诉好友
投稿邮箱
