ScreenShots from a list of links

jcole · July 15, 2004, 4:13pm

I have a text file that contains about 100 urls.
I was wondering if it would be possible to automate the process of opening each link and taking a screen shot of that webpage.

I know that in the past screenshots were out of reach but perhaps that has changed.

Any thoughts or comments are appreciated.
Thanks,
jcole

jonn8 · July 15, 2004, 6:09pm

If your text file has the URLs each on a separate line, this should work. For more information about the screencapture CLI tool, open the Terminal and type “screencapture --help”.

–Open this script in a new Script Editor window.

property target_folder : “”

set the_URL_file to (choose file with prompt “Where is the URL file?”) as alias
set target_folder to (choose folder with prompt “Where should I store the screenshots?”) as string

set the_URLs to paragraphs of (read the_URL_file)
repeat with this_URL in the_URLs
set this_URL to contents of this_URL
if this_URL is not “” then my [color=green]capture_this_URL/color
end repeat

on [color=green]capture_this_URL/color
tell application “Safari” to open location this_URL
if my [color=green]page_loaded/color = false then return
tell application “Safari” to activate
if this_URL starts with “http://” then set this_URL to (text 8 thru -1 of this_URL)
my take_screen_shot(target_folder, this_URL)
do shell script “sleep 1”
end capture_this_URL

on [color=green]page_loaded/color
do shell script “sleep 2”
tell application “Safari”
repeat timeout_value times
if (do JavaScript “document.readyState” in document 1) = “complete” then return true
do shell script “sleep 1”
end repeat
end tell
return false
end page_loaded

on take_screen_shot(target_folder, the_title)
try
set file_name to the_title & “.pdf”
get (target_folder & file_name) as alias
set sc_num to 0
repeat
set sc_num to sc_num + 1
set file_name to the_title & “_” & sc_num & “.pdf”
try
get (target_folder & file_name) as alias
on error
exit repeat
end try
end repeat
end try
do shell script "/usr/sbin/screencapture -x " & (quoted form of POSIX path of (target_folder & file_name))
end take_screen_shot

Jon

[This script was automatically tagged for color coded syntax by Convert Script to Markup Code]

jcole · July 15, 2004, 6:44pm

Thanks Jon, I’ll take a look at the script you posted. No doubt it’ll be a bit more refined than my own frankenScript. I bound a few scripts together and it seems to work:

-- select and read contents of text file
set theFile to (choose file with prompt "Select a file to read:" of type {"TEXT"})
open for access theFile
set fileContents to (read theFile)
set target_URL to fileContents
close access theFile

repeat with each_URL in (paragraphs of target_URL)
	set target_folder_name to "screenshots"
	set target_folder to (((path to desktop) as string) & target_folder_name & ":")
	set file_prefix to "sc_"
	set sc_num to 0
	tell application "Finder"
		try
			get target_folder as alias
		on error
			make new folder at desktop with properties {name:target_folder_name}
		end try
		repeat
			set sc_num to sc_num + 1
			set file_name to file_prefix & sc_num & ".pdf"
			if (exists of file (target_folder & file_name)) = false then exit repeat
		end repeat
	end tell
	
	tell application "Safari"
		open location each_URL
		delay 10 -- wait 10 seconds
		do shell script "/usr/sbin/screencapture -x " & ((quoted form of POSIX path of target_folder & file_name) as string)
		close window 1
	end tell
end repeat

Thanks again.
jcole

jcole · July 15, 2004, 6:46pm

Thanks Jon, This is perfect.

jcole