画面キャプチャできるApplescript

do shell script "screencapture ~/Desktop/" & "imgk_001.png"

set kp_file to "img_" & (getT() as string) & ".png"
do shell script "screencapture ~/Desktop/" & kp_file

on getT()
set localdate to (current date)
set y to year of localdate as number
set m to month of localdate as number
set d to day of localdate as number
set h to hours of localdate as number
set mi to minutes of localdate as number
set ss to seconds of localdate as number
if m < 10 then
set m to "0" & (m as string)
end if
if d < 10 then
set d to "0" & (d as string)
end if
if h < 10 then
set h to "0" & (h as string)
end if
if mi < 10 then
set mi to "0" & (mi as string)
end if
if ss < 10 then
set ss to "0" & (ss as string)
end if
set msg to y & m & d & h & mi & ss
end getT

tell application "Safari"
activate
delay 0.5
end tell
set msg to 1
repeat 16 times
if msg < 10 then
set kp_file to "img_" & "00" & (msg as string) & ".png"
else if msg < 100 then
set kp_file to "img_" & "0" & (msg as string) & ".png"
else
set kp_file to "img_" & (msg as string) & ".png"
end if
do shell script "screencapture ~/Desktop/" & kp_file
tell application "System Events"
tell application process "Safari"
delay 0.1
keystroke (ASCII character 28)
delay 0.9
end tell
end tell
set msg to msg + 1
end repeat

do shell script "screencapture ○ ~/Desktop/" & "imgk_001.png"