ebook screen capture

ebook-capture.applescript

# init for loop
set idx to 0 as number
set maxRange to 110 as number
# init environment value
set basePath to "~/local/screenshots"
set srcPath to basePath & "/temp" as string
set destPath to basePath & "/result" as string
do shell script "mkdir -p " & srcPath
do shell script "mkdir -p " & destPath
set applicationName to "AppName"

set {year:y, month:m, day:d} to (current date)
set today to (y & m & d) as string

set LeftArrowKey to 123

# focus application for screenshot
tell application applicationName
	activate
	delay 1
end tell

repeat while (idx) is less than (maxRange)
	set curIdx to idx
	text -4 thru -1 of ("0000" & curIdx)
	set fileName to (today & "-" as string) & curIdx as string
	set filePath to srcPath & ("/" as string) & fileName & ".png" as string
	# do screenshot
	do shell script "screencapture -m " & filePath
	
	tell application applicationName
		activate
	end tell
	
	tell application "System Events"
		key code LeftArrowKey
		delay 0.5
	end tell
	# increment
	set idx to idx + 1
end repeat

References

• focus application
• do screenshot
• press arrorw key
• concatenate string in applescript