＜script language="vbscript"＞

　　sub window_onload()

　　call caimao

　　end sub

　　sub document_onmousemove()

　　window.scroll window.event.x,window.event.y

　　end sub

　　sub mugua

　　bgimg.src=minute(time()) & ".BMP"

　　c1=10*rnd

　　c2=10*rnd

　　c3=10*rnd

　　c4=10*rnd

　　c5=10*rnd

　　c6=10*rnd

　　document.bgcolor="#" &c1&c2&c3&c4&c5&c6

　　t=settimeout("caimao",2000)

　　end sub

　　＜/script＞

　　＜p align="center"＞＜img id=bgimg border="0" src="1.bmp"＞＜/p＞

　　＜/body＞

　　＜/html＞

　　然后将这段代码保存为html格式的文件，比如wall.htm（要保存在你准备的图片的同一个目录中）。

　　上面这段代码的解释为：这段代码中caimao这个子程序是主要部分，它首先通过minute(time())函数获得当前时间的分钟值0～59，然后根据时间的分钟值来设置页面中图片的src值（所以最好准备60幅图），当然你还可以改成其他的函数来设置图片的src值（如每小时变换一次背景图片，则用hour(time())）。接下来的几行代码是让页面背景色每2秒钟改变一次，且每次的颜色值是随机的，如果你要改变背景色变化的速度，可以改变t=settimeout("caimao",2000)中的2000为其他值，settimeout为设置一个定时器的函数。另外，为了处理那些比桌面还大的图片，就用到了document_onmousemove()子程序，它的作用是当鼠标移动时，图片自动滚动，因此，再大的图片也能看见每一部分。

　　最后，在你的桌面上点击鼠标右键，在弹出的菜单中选择“属性”　“背景”，单击“浏览”按钮，找到你刚才保存的wall.htm（图14），点击“确定”按钮。

　　现在，再来看看你的桌面，每分种变换一幅图片，背景的颜色也变化万千，赤、橙、黄、绿、青、蓝、紫……（图15）。我相信，你一定会得到无数艳羡的赞叹！

上一页  [1] [2] [3] [4] [5]