Mailing Lists: Apple Mailing Lists
Image of Mac OS face in stamp
 
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Using the apple built in camera as a security camera

I am currently trying to create a script which I will call from iCal to see who is using a school computer at lunchtime by setting Quicktime to record a video of the users.  Unfortunately I don't seem to be able to persuade Quicktime to save the resulting video.  The script which does not work is below:
If you can help, it would be very useful.

tell application "QuickTime Player"
activate
new movie recording
delay 5 --or however long is needed


--stop every movie
end tell
tell application "QuickTime Player"
activate


try
if not (exists movie 1) then error "No movies are open."


stop every movie


-- CHECK FOR THE CORRECT VERSION
set QT_version to (QuickTime version as string)
set player_version to (version as string)
if (QT_version is less than "5.0") or ¬
(player_version is less than "5.0") then
error "This script requires QuickTime 5.0 or greater." & ¬
return & return & ¬
"Current QuickTime Version: " & QT_version & return & ¬
"Current QuickTime Player Version: " & player_version
end if


-- CHECK FOR QUICKTIME PRO
if QuickTime Pro installed is false then
display dialog "This script requires QuickTime Pro." & return & return & ¬
"If this computer is currently connected to the Internet, " & ¬
"click the “Upgrade” button to visit the QuickTime Website at:" & ¬
return & return & target_URL buttons {"Upgrade", "Cancel"} default button 2
ignoring application responses
tell application "Finder"
open location target_URL
end tell
end ignoring
error number -128
end if


tell movie 1
try
set this_name to the full text of annotation "Full Name"
on error -- no full name annotation exists
set this_name to ""
end try
display dialog "Enter the name for the front movie:" default answer this_name
set the full text of annotation "Full Name" to the text returned of the result
end tell
on error error_message number error_number
if the error_number is not -128 then
beep
display dialog error_message buttons {"Cancel"} default button 1
end if
end try
end tell
 
Peter Baxter



 

 _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list      (email@hidden)
Help/Unsubscribe/Update your Subscription:
http://lists.apple.com/mailman/options/applescript-users/email@hidden
Archives: http://lists.apple.com/mailman//archives/applescript-users

This email sent to email@hidden


Visit the Apple Store online or at retail locations.
1-800-MY-APPLE

Contact Apple | Terms of Use | Privacy Policy

Copyright © 2007 Apple Inc. All rights reserved.