试过格式工厂,较傻,不行。
先装好Adobe nbsp;Flash nbsp;Player
1、网上下个SWFToImageLibrary.exe(可惜win10不行,只能xp)
2、将以下代码保存为Convert nbsp;all nbsp;SWFs nbsp;to nbsp;JPG.vbs
' nbsp;This nbsp;example nbsp;converts nbsp;all nbsp;SWF nbsp;files nbsp;in nbsp;the nbsp;folder nbsp;into nbsp;JPG nbsp;image nbsp;files
' nbsp;Copy nbsp;this nbsp;script nbsp;to nbsp;the nbsp;folder nbsp;with nbsp;SWF nbsp;flash nbsp;movies nbsp;and nbsp;run nbsp;it
' nbsp;Script nbsp;will nbsp;generate nbsp;JPG nbsp;image nbsp;files nbsp;using nbsp;extracted nbsp;frames nbsp;from nbsp;SWF
nbsp; nbsp;Set nbsp;SWFToImage nbsp;= nbsp;CreateObject("SWFToImage.SWFToImageObject")
nbsp; nbsp;SWFToImage.InitLibrary nbsp;"demo", nbsp;"demo"
nbsp; nbsp;Dim nbsp;WshShell, nbsp;fs, nbsp;f, nbsp;fc, nbsp;f1, nbsp;tsFile, nbsp;index, nbsp;outFile
nbsp; nbsp;Set nbsp;WshShell nbsp;= nbsp;WScript.CreateObject("WScript.Shell")
nbsp; nbsp;sCurrentFolder nbsp;= nbsp;WshShell.CurrentDirectory
nbsp; nbsp;Set nbsp;fs nbsp;= nbsp;CreateObject("Scripting.FileSystemObject")
nbsp; nbsp;Set nbsp;f nbsp;= nbsp;fs.GetFolder(sCurrentFolder) nbsp;' nbsp;current nbsp;directory
nbsp; nbsp;Set nbsp;fc nbsp;= nbsp;f.Files
' nbsp;converting nbsp;SWF nbsp;files nbsp;to nbsp;JPG nbsp;image nbsp;files
For nbsp;Each nbsp;f1 nbsp;in nbsp;fc
nbsp;index=InstrRev(f1.name, nbsp;".")
nbsp;outFile=Mid(f1.name, nbsp;1, nbsp;index nbsp;- nbsp;1) nbsp; amp; nbsp;".jpg"
nbsp;if nbsp;fs.FileExists(outFile) nbsp;then
nbsp;else
nbsp; nbsp;if nbsp;UCase(Mid(f1.name,index nbsp;+ nbsp;1 nbsp;)) nbsp;= nbsp;"SWF" nbsp;then nbsp;
nbsp; nbsp; nbsp; nbsp;SWFToImage.InputSWFFileName nbsp;= nbsp;f1.name
nbsp; nbsp; nbsp; nbsp;SWFToImage.FrameIndex nbsp;= nbsp;0 nbsp;' nbsp;number nbsp;of nbsp;frame nbsp;to nbsp;extract
nbsp; nbsp; nbsp; nbsp;SWFToImage.ImageOutputType nbsp;= nbsp;1 nbsp;' nbsp;set nbsp;output nbsp;image nbsp;type nbsp;to nbsp;Jpeg nbsp;(0 nbsp;= nbsp;BMP, nbsp;1 nbsp;= nbsp;JPG, nbsp;2 nbsp;= nbsp;GIF)
nbsp; nbsp; nbsp; nbsp;SWFToImage.JPEGQuality=100
' nbsp; nbsp; nbsp; nbsp;SWFToImage.ImageWidth=985
' nbsp; nbsp; nbsp; nbsp;SWFToImage.ImageHeight=829
nbsp; nbsp; nbsp; nbsp;SWFToImage.Execute nbsp;
nbsp; nbsp; nbsp; nbsp;SWFToImage.SaveToFile nbsp;outFile
nbsp; nbsp;End nbsp;If
nbsp;End nbsp;If
Next
nbsp; nbsp;
Set nbsp;SWFToImage nbsp;= nbsp;nothing
nbsp; nbsp;Set nbsp;fs nbsp;= nbsp;Nothing
3、将要转换的swf放入该目录
4、运行Convert nbsp;all nbsp;SWFs nbsp;to nbsp;JPG.vbs
5、使用pdf制作软件即可将jpg转换
|