突法奇想 怎么让页面能像QQ聊天窗口那样抖动？

Question

突法奇想  怎么让页面能像QQ聊天窗口那样抖动？

Answer 1

JS 别人早玩过的东西了<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>

Answer 2

帮帮我儿子amingo，挺好，谢谢各位支持