Come catturo un'immagine dello schermo durante la riproduzione di DVD Player?

Questo allegato alla FAQ è un programma in AppleScript che consente, tramite il comando di shell screencapture, di attivare la funzionalità di cattura immagini durante la riproduzione con DVD Player.

Lo script:

property Pref : ((path to preferences folder) & ".v") as string

on run
tell application "Finder" to ¬
set ListaPNG to name of every file in desktop ¬
whose name ends with ".png"
set Risultato to button returned of (display dialog ¬
"Capture or reset counter (" & my Incremento("") & ")..." with title ¬
"DVD screen capture" buttons {"Reset", "Capture"} default button 2 with icon note)
if Risultato is "Reset" then
my Incremento(true)
return run
end if
set Nome to item 1 of ListaPNG
repeat until ListaPNG does not contain Nome
set Nome to (("dvd_" & my ConvertiContatore(my Incremento(false), 3) & ¬
".png") as string)
end repeat

do shell script "screencapture -i ~/Desktop/" & Nome
end run

on ConvertiContatore(Numero, Q)
set Numeri to "0000" & Numero
set C to length of Numeri
return (characters (C - Q + 1) thru C of Numeri) as string
end ConvertiContatore

on Incremento(Reset)
if Reset = "" then
set Riferimento to open for access file Pref
try
set N to (read Riferimento) as string
on error
set N to 1
end try
close access file Pref
return N
else if Reset then
try
set Riferimento to open for access file Pref with write permission
write (1 as string) to Riferimento
close access file Pref
on error Errore
close access file Pref
end try
else if not Reset then
try
set Riferimento to open for access file Pref
try
set N to (read Riferimento) as string
on error
set N to 1
end try
if N = "" then set N to 1
close access file Pref
set Riferimento to open for access file Pref with write permission
write (((N as integer) + 1) as string) to Riferimento
close access file Pref
on error Errore
close access file Pref
display dialog Errore
tell application "Finder" to set Esiste to exists item Pref
if not Esiste then
set Riferimento to open for access file Pref with write permission
write (1 as string) to Riferimento
set N to 1
close access file Pref
else
set N to 100
end if
end try
return N
end if
end Incremento

[ Home | Elenco delle FAQ | Forum | Segnalazioni | Risorse | Feed RSS ]