一、流星雨是什么？
流星雨是一种夜空中的天文现象，是指在特定时间段内，由流星体进入地球大气层所引起的现象，也被称为“星雨”。流星体经过地球大气层时，因为受到气体的摩擦，会发生高温、氧化、电离等作用，形成明亮的光芒，我们称之为“流星”。
人们对流星有着浓厚的兴趣和爱好，有些人会专门到远离城市噪音的郊外观看星空，带上望远镜、摄影机。为了满足广大网民的观星欲望，我们可以通过编写一小段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代码示例，该程序将通过随机生成坐标和速度，让流星从屏幕顶部划过，在屏幕下方消失，达到流星雨的效果。
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 += "原创文章，作者：小蓝，如若转载，请注明出处：https://www.506064.com/n/180296.html
微信扫一扫 
支付宝扫一扫 