动态字 - 海啸南风的博客

作者在 2006-11-09 23:11:00 发布以下内容

<SCRIPT language=VBScript>
Sub Window_OnLoad()
    call SG1.Scale(0.50, 0.50, 0.50)
    call SG4.Scale(0.50, 0.50, 0.50)
    call SG1.Rotate(0, 6, 0)
    RotateAll
end sub

' sets rotation speed and behavior as well as creating loop

Sub RotateAll
    Call SG1.Rotate(1,3,0)//(角度,摆动速度,速度)调整这里的参数可以改变效果
    Call SG4.Rotate(1,3,0)//(角度,摆动速度,速度)
    FILK = Window.SetTimeOut("Call RotateAll", 10, "VBSCript")
End Sub
</SCRIPT>
/*
<OBJECT id=SG1 style="LEFT: 20%; WIDTH: 600px; POSITION: absolute; TOP: 280%; HEIGHT: 300px; ZINDEX: 0" classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6><PARAM NAME="SourceURL" VALUE=""><PARAM NAME="CoordinateSystem" VALUE="0"><PARAM NAME="MouseEventsEnabled" VALUE="0"><PARAM NAME="HighQuality" VALUE="0"><PARAM NAME="PreserveAspectRatio" VALUE="-1"><PARAM NAME="Line0001" VALUE="SetLineStyle(0,0)"><PARAM NAME="Line0002" VALUE="SetFillColor(130,170,125,130,170,125)"><PARAM NAME="Line0003" VALUE="SetFillStyle(1)"><PARAM NAME="Line0004" VALUE="SetFont('隶书',100,200,0,0,0)"><PARAM NAME="Line0005" VALUE="Text('海嘯創世物語',-100,34)"></OBJECT>
<OBJECT id=SG4 style="LEFT: 20%; WIDTH: 600px; POSITION: absolute; TOP: 280%; HEIGHT: 300px; ZINDEX: 0" classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6><PARAM NAME="SourceURL" VALUE=""><PARAM NAME="CoordinateSystem" VALUE="0"><PARAM NAME="MouseEventsEnabled" VALUE="0"><PARAM NAME="HighQuality" VALUE="0"><PARAM NAME="PreserveAspectRatio" VALUE="-1"><PARAM NAME="Line0001" VALUE="SetLineStyle(1,0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110,100,20)"><PARAM NAME="Line0003" VALUE="SetFillStyle(0)"><PARAM NAME="Line0004" VALUE="SetFont('隶书',100,200,0,0,0)"><PARAM NAME="Line0005" VALUE="Text('海嘯創世物語',-100,34)"></OBJECT>*/