[swf2image]File Juice

File JuicerはSWFに対応している。
セキュリティ設定が無い場合はswfに埋め込まれている（呼び出しでは無い）場合は
８割程度の確率でかき出し出来た。

[swf2img]【OSX10.4】旧環境を使ってiView MediaProでSWFファイルをイメージに変換する

旧環境を持っている人なら
こんな方法もあるよ的なw

OSX10.4とQuickTime7.1.2迄の環境が必要です。
（QuickTimeが7.1.3でswfのサポートを止めているので7.1.2まで）

大量にswfファイルがある時はこの方法が一番速い
が！
swfのファイル形式によってはサムネイル画像を生成出来ない物も多いので
swfファイルの作成環境によるのかな
だから
結局
FlashPlayerでキャプチャー撮る方法[LINK]が確実なのかな

なんで
こんな事しているか？って言うと
Adobe Flash CS6は
AppleScriptsのsdefの中身がこれだけなんです

前は
もう少し何か？無かったかね？トホホ

[swf2img]SWFファイルをイメージファイルに変換する（といってもキャプチャー撮るだけ）

前提にFlashが無い事がありますが
先に記事にした
[swf2pdf]SWFファイルをPDFに変換する（といってもPDFに印刷する感じ）
だと
どうしても
上手くPDFにならない場合があるので
キャプチャー撮る事でイメージに変換する事にしました。

【前提】swfのサイズが縦型のみ（フルスクリーンにした時に高さが画面100％になるような物）

中身を見るだけなら
Adobe Bridge で確認出来ますが
イメージファイルが必要になったので作りました。

１：ファイルを開く
２：フルスクリーンにする
３：キャプチャーを撮る
４：トリミングする
の
４ステップ

Flash Player archives 版が必要です

----------------------------------------------ドロップの始まり

on open DropObj

-----------------------------------------------必要なアプリケーションを起動しておく

tell application "Flash Player"

launch

activate

end tell

tell application "System Events"

launch

activate

end tell

tell application "Image Events"

launch

activate

end tell

tell application "Finder"

------------------------------------------------繰り返しの始まり

repeat with ObjFiles in DropObj

--------------------------------------------------ファイル名を取得

set theName to name of ObjFiles

------------------------------------------------パスを取得

set theAlias to ObjFiles as alias

------------------------------------------------Flash Playerを起動

tell application "Flash Player"

activate

------------------------------------------------まずは普通にファイルを開く

open theAlias

------------------------------------------------開くのを待つ意味の、おまじないの１秒

delay 1

tell window 1

activate

------------------------------------------------普通に開いた時のサイズをリストで受け取り

set theOrgBounds to bounds as list

------------------------------------------------ファイルバーの分

set theOrgBar to item 2 of theOrgBounds as number

------------------------------------------------幅

set theOrgW to item 3 of theOrgBounds as number

------------------------------------------------高さ

set theOrgH to item 4 of theOrgBounds as number

------------------------------------------------22はメニュー分を引いて縦横比を計算

set theOrgPer to theOrgW / (theOrgH - (theOrgBar + 22)) as number

------------------------------------------------ファイル名を取得

set theFileName to name

------------------------------------------------フルスクリーンにする

tell application "System Events"

keystroke "f" using command down

end tell

------------------------------------------------ここの待ち時間はマシンパワーに依存がある

------------------------------------------------フルスクリーンになってからキャプチャ撮るための待ち時間

delay 2

end tell

end tell

------------------------------------------------保存先を確定

set thePicPath to (theFileName & ".png") as string

------------------------------------------------スクリーンショットを撮影pngファイルにする

do shell script "screencapture " & quoted form of thePicPath

------------------------------------------------jpgが好みな方はこちら

------------------------------------------------保存先を確定

----set thePicPath to (theFileName & ".jpg") as string

------------------------------------------------スクリーンショットを撮影jpgファイルにする

----do shell script "screencapture -tjpg" & quoted form of thePicPath

------------------------------------------------ファイルの書き込み待ちのおまじないの待ち

delay 1

tell application "Flash Player"

activate

tell window 1

------------------------------------------------フルスクリーン時の画面サイズ

set theFullBounds to bounds as list

------------------------------------------------幅

set theFullW to item 3 of theFullBounds as number

------------------------------------------------高さ

set theFullH to item 4 of theFullBounds as number

------------------------------------------------高さから幅を計算

set theCrapW to (theFullH * theOrgPer) - 2 as integer

------------------------------------------------トリミングサイズを定義{W幅px, H高さPX}

set theCrapBounds to {theCrapW, theFullH} as list

end tell

----------------------------ESCを送ってFlash Playerフルスクリーンを閉じる

tell application "System Events"

keystroke (key code 53)

end tell

end tell

------------------------------------------------画像をトリミングする

tell application "Image Events"

------------------------------------------------スクリーンキャプチャーしたファイルを開く

set theScreenImg to open thePicPath

---------------------------------------画像サイズはSWFをフルスクリーンから左右の余白を削除

crop theScreenImg to dimensions theCrapBounds

------------------------------------------------保存して

save theScreenImg

------------------------------------------------閉じる

close theScreenImg

------------------------------------------------メモリへのおまじないで初期化しておく

set theScreenImg to ""

end tell

----------------------------Flash Playerウィンドを閉じる

tell application "Flash Player"

activate

------------------------------------------------ウィンドを閉じる

close window 1

end tell

------------------------------------------------繰り返しの終了

end repeat

end tell

end open

「swf2img.app.zip」をダウンロード
「swf2img.rtf」をダウンロード

[swf2pdf]SWFファイルをPDFに変換する（といってもPDFに印刷する感じ）

前提にFlashが無い事がありますが
SWFファイルをイメージ化する必要があって
まずはPDFにする事を考えました。

が！
複雑な構造のSWFファイルは正しく出力されない事が多い
（私の要件は満たしましたが...汗）

CUPS-PDF[LINK]を使って
PDFへプリントします。

そんなワケで
CUPS-PDFをインストール済みが前提条件です

プリンター設定でデフォルトの用紙サイズ等をあらかじめ設定しておく事が必要です

Flash Player archives 版も必要です

----------------------------------------------ドロップの始まり

on open DropObj

-----------------------------------------------必要なアプリケーションを起動しておく

tell application "Flash Player"

launch

activate

delay 2

end tell

tell application "System Events"

launch

activate

end tell

tell application "CUPS-PDF"

launch

activate

end tell

tell application "Finder"

repeat with ObjFiles in DropObj

--------------------------------------------------ファイル名を取得

set theName to name of ObjFiles

------------------------------------------------パスを取得

set theAlias to ObjFiles as alias

------------------------------------------------Flash Playerを起動

tell application "Flash Player"

activate

------------------------------------------------ファイルを開く

open theAlias

------------------------------------------------２秒待つ

delay 2

------------------------------------------------開いたウィンドウ

tell window 1

------------------------------------------------100%表示に変更

tell application "System Events"

keystroke "1" using command down

end tell

------------------------------------------------１秒待つ

delay 1

------------------------------------------------プリントコマンド実行

tell application "System Events"

keystroke "p" using command down

end tell

------------------------------------------------１秒待つ

delay 1

------------------------------------------------リターン押す

tell application "System Events"

keystroke return

end tell

------------------------------------------------１秒待つ

delay 1

------------------------------------------------リターン押す

tell application "System Events"

keystroke return

end tell

------------------------------------------------１秒待つ

delay 1

end tell

------------------------------------------------１秒待つ

delay 1

------------------------------------------------ウィンドウを閉じる

close window 1

------------------------------------------------１秒待つ

delay 1

end tell

end repeat

end tell

end open

「swf2PDF.app.zip」をダウンロード

「swf2PDF.rtf」をダウンロード