Applescript で Kinoppy を自動撮影テスト

何となく表題の行為を試してみた。別に何かに使うという訳でもなかったんだけどなんとか成功した。参考までにソースを貼っておこう。

set dd to display dialog "回数" default answer "2"
set dc to text returned of dd as integer
tell application "Kinoppy"
	activate
	delay 1
	tell application "System Events"
		tell application process "Kinoppy"
			try
				set _count to 1 as integer
				set tgt_file to "ssw" & (_count as string) & ".png"
				set _count to 2 as integer
				do shell script "screencapture ~/Desktop/cap/" & tgt_file
				repeat with i from 1 to dc
					delay 0.2
					keystroke (ASCII character 28) -- 左
					delay 0.2
					set tgt_file to "ssw" & (_count as string) & ".png"
					do shell script "screencapture ~/Desktop/cap/" & tgt_file
					-- ウィンドウを選択してチャプチャーし、上記のファイル名で出力。
					set _count to _count + 1
				end repeat
			on error
				display dialog "エラー"
				beep
			end try
		end tell
	end tell
end tell

set dd to display dialog "回数" default answer "2"

set dc to text returned of dd as integer

tell application "Kinoppy"

activate

delay 1

tell application "System Events"

tell application process "Kinoppy"

try

set _count to 1 as integer

set tgt_file to "ssw" & (_count as string) & ".png"

set _count to 2 as integer

do shell script "screencapture ~/Desktop/cap/" & tgt_file

repeat with i from 1 to dc

delay 0.2

keystroke (ASCII character 28) -- 左

delay 0.2

set tgt_file to "ssw" & (_count as string) & ".png"

do shell script "screencapture ~/Desktop/cap/" & tgt_file

-- ウィンドウを選択してチャプチャーし、上記のファイル名で出力。

set _count to _count + 1

end repeat

on error

display dialog "エラー"

beep

end try

end tell

※注意
実行前に Kinoppy を起動しておく。本棚は閉じてビューワを全面表示が望ましい。実行するとデスクトップ上の “cap” フォルダに保存される。予め作成しておく必要あり。起動時に表示されるダイアログには実行回数を入力。ページ数の半分程度で良い。エラー処理はほとんどしてない。かなり適当。
※参考URL

紀伊國屋書店Kinoppy
カテゴリ: ブック
価格: 無料

紀伊國屋書店Kinoppy
カテゴリ: 辞書／辞典／その他
価格: 無料

Applescript で Kinoppy を自動撮影テスト

いいね:

Post a Comment

Applescript で Kinoppy を自動撮影テスト

共有:

いいね:

Related posts:

Post a Comment