📄 极酷的页面效果.htm
字号:
脚本说明:
把如下代码加入<body>区域中
<SCRIPT language=VBScript>
<!--
Dim i
Dim Rotation
Dim Lib
Dim DRS
Dim winsizew
Dim winsizeh
Sub Window_OnLoad
i=0
Rotation=0
Call Seq("1").Play
End Sub
Sub Seq_OnInit
Call seq("1").at(0.000, "Gen", 20, 0.150, 1)
Call seq("1").at(0.000, "Rot", -1, 0.030, 1)
Call seq("1").at(3.500, "ShowMegaRecords")
Call seq("1").at(5.000, "MoveMegaRecords", 15, 0.020)
End Sub
Sub ShowMegaRecords
Mega.style.visibility="visible"
Records.style.visibility="visible"
End Sub
Sub MoveMegaRecords
Star.style.left=Star.style.posleft -25
Star.style.top=Star.style.postop - 9
Call Star.scale(.90,.9,.9)
Mega.style.left=mega.style.posleft - 19
Mega.style.top=mega.style.postop - 11
Call Mega.Scale(.95,.95,.95)
Records.style.left=Records.style.posLeft - 19
Records.style.top=Records.style.posTop - 14
Call Records.Scale(.95,.95,.95)
End Sub
Sub Gen
Set Lib=Star.Library
Set DRS=Star.DrawSurface
Call DRS.FillStyle(0)
Call DRS.LineDashStyle(1)
if i mod 2=1 then
Call DRS.BorderColor(lib.ColorRgb255(200,200,255))
Else
Call DRS.BorderColor(lib.ColorRgb255(100,100,255))
End If
Rotation=i * 18
Call DRS.PieDegrees(-120, -120, Rotation, Rotation+10 , 240, 240)
Star.DrawSurface=DRS
i=i+1
End Sub
Sub Rot
Call Star.Rotate(-4,2,-2)
End Sub
Sub Window_OnUnLoad
Call Seq("1").Stop
End Sub
-->
</SCRIPT>
<OBJECT id=Star
style="Z-INDEX: 1; LEFT: 421px; WIDTH: 303px; POSITION: absolute; TOP: 11px; HEIGHT: 282px"
height=171 width=207
classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6></OBJECT>
<OBJECT id=mega
style="LEFT: 5%; VISIBILITY: hidden; WIDTH: 90%; POSITION: absolute; TOP: 75px; HEIGHT: 200px"
height=14 width=14 classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6><PARAM NAME="Line0001" VALUE="SetFont('Impact',100, 650, 1, 0, 0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110, 255, 0)"><PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)"><PARAM NAME="Line0004" VALUE="SetFillStyle(1)"><PARAM NAME="Line0005" VALUE="Text('ssssss!', -115, 75, 0)"></OBJECT>
<OBJECT id=Records
style="LEFT: 5%; VISIBILITY: hidden; WIDTH: 90%; POSITION: absolute; TOP: 210px; HEIGHT: 100px"
height=14 width=14 classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6><PARAM NAME="Line0001" VALUE="SetFont('Impact', 50, 700, 1, 0, 0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110, 255, 0)"><PARAM NAME="Line0003" VALUE="SetFillColor(200, 200, 200)"><PARAM NAME="Line0004" VALUE="SetFillStyle(0)"><PARAM NAME="Line0005" VALUE="Text('asdasdasdadsdasd', -125, 40, 0)"></OBJECT>
<OBJECT id=Seq height=50 width=50 align=top classid=CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96></OBJECT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -