如果打开后没见到效果，请等待一会儿。 <title>VBScript实现文字遮罩</title> <div id="myLightObject" style="position: relative; height: 336px; width: 336px; top: 10px; left: 0px; color: White; filter: light"> <center> 脚本之家（jb51.net）提供各类编程源码、书籍教程、JavaScript/CSS特效代码以及常用软件下载等，做有质量的学习型源码下载站。提供各类编程源码、JavaScript/CSS特效代码以及常用软件下载等，做有质量的学习型源码下载站。 </center> </div> [Ctrl A 全选 注:如需引入外部Js需刷新才能执行] Option Explicit sub window_OnLoad() call myLightObject.filters.light(0).addambient(0,0,255,30) call myLightObject.filters.light(0).addcone(400,400,200,100,100,200,204,200,80,10) end sub sub document_onMouseMove() call myLightObject.filters.light(0).MoveLight(1,window.event.x,window.event.y,0,1) end sub
