<b>Flash抓图组件 IronSoft.FlashCapture 示例代码</b>[Flash设计]

　　组件官方阐明:“国内创始的Flash组件,可以对FLASH的指定帧举行抓图,是制作Flash赏识网站的不可贫乏的助手”

示例代码以下（将代码存为.asp或去掉<%和%>存为.vbs文件举行调试）:

<%
dim FlashCapture
Set FlashCapture = CreateObject("IronSoft.FlashCapture")
FlashCapture.FileName = "C:\flash\51windows.swf" '指定flash文件途径
TotalFrame = FlashCapture.TotalFrame '获得flash总帧数
Width = FlashCapture.Width '获得抓到的图片的宽度
Height = FlashCapture.Height '获得抓到的图片的高度

FlashCapture.CaptureFrame = 20 '指定抓图的帧
FlashCapture.SaveasJpg "C:\flash\51windows.jpg",95 '保存图片

'生成全部帧的图片,很占CPU
'for i = 1 to TotalFrame
' FlashCapture.CaptureFrame = i
' FlashCapture.SaveasJpg "C:\flash\51windows("& i &").jpg",90
'next
Set FlashCapture = Nothing
%>