用vbs代码制作炫酷流星雨，让你的网页闪耀夜空

一、流星雨是什么？

流星雨是一种夜空中的天文现象，是指在特定时间段内，由流星体进入地球大气层所引起的现象，也被称为“星雨”。流星体经过地球大气层时，因为受到气体的摩擦，会发生高温、氧化、电离等作用，形成明亮的光芒，我们称之为“流星”。

人们对流星有着浓厚的兴趣和爱好，有些人会专门到远离城市噪音的郊外观看星空，带上望远镜、摄影机。为了满足广大网民的观星欲望，我们可以通过编写一小段vbs代码，在网页上呈现出流星雨的效果，让网页也拥有炫酷的夜空。

二、vbs是什么？

vbs是Visual Basic Script的简称，是一种由微软公司开发的解释型脚本语言，它可以通过Windows Script Host在Windows操作系统上运行，强大而简单。vbs语句可用于执行各种系统管理任务，包括批处理和自动化脚本。

三、制作流星雨的vbs代码示例

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
do
    if colCDROMs.Count >= 1 then
        For i = 0 to colCDROMs.Count - 1
            colCDROMs.Item(i).Eject
        Next
        For i = 0 to colCDROMs.Count - 1
            colCDROMs.Item(i).Eject
        Next
    End If
    wscript.sleep 5000
loop

以上代码片段是一个著名的vbs恶作剧，如果在计算机上运行，会造成光驱反复弹出的情况，我们只是简单展示一下vbs语言的书写格式，不建议在实际应用中使用。

下面是制作流星雨的vbs代码示例，该程序将通过随机生成坐标和速度，让流星从屏幕顶部划过，在屏幕下方消失，达到流星雨的效果。

<script language=vbscript>
var w=window.innerWidth
var h=window.innerHeight
Dim picwidth, picheight, x, y, sx, sy, delaytime
Dim Bmp : Set bmp = CreateObject("WIA.ImageFile")
picwidth = 30
picheight = 30
dim b as string
randomize(timer)
for i=1 to 35
    x = int(rnd()*w)
    y = int(rnd()*h)
    b = "D:\2\F1.bmp"
    bmp.LoadFile(b)
    sx = rnd()*10 - 5
    sy = rnd()*10 - 5
    SetCharmer = makeGifRGB(bmp)
    For delaytime = 0 To 100
        document.body.innerHTML += "<div id='" & i & "' style='position:absolute;top:" & y & "px;left:" & x & "px;z-index:-" & delaytime & ";'><img src="data:image/gif;base64," alt="用vbs代码制作炫酷流星雨，让你的网页闪耀夜空" title="用vbs代码制作炫酷流星雨，让你的网页闪耀夜空" /></div>"
        x = x + sx
        y = y + sy
        delayms (25)
    Next
Next
Sub delayms(ms)
    start = Timer
    Do while (Timer - start < ms/1000)
    Loop
End Sub
Function makeGifRGB(img)
    Dim result : Set result = New GifRGB.EncodeStream
    result.begin
    result.writeImage img
    result.finish
    Set makeGifRGB = result
End Function
</script>