WEBカム画像ダウンロード

横浜市交通安全協会[LINK]の設置している
横浜西口自動二輪車駐車場ライブカメラ[LINK]
の画像を定期的にダウンロードして
ムービーを作る時用
（自分が登場するムービーを見るのは結構変な感じで面白い）

----ダウンロードするURL set the URLNAME to "http://yokohama-ankyo01.miemasu.net/SnapshotJPEG?Resolution=640x480&Quality=Standard&View=Normal" as string ----起動ディスクのHD名 set the HddName to "MacintohHD" as string ----保存するファイルの拡張子 set the ExtensionName to ".jpg" as string ----保存するファイル名 set the MainFileName to "YokohamaP" as string ----何秒おきにダウンロードするか？1分毎なら60　3分毎なら　180 set WaitTime to "30" as string ----何枚撮影するか？ set the Fcount to "30000" as string ---まずはShared内にダウンロード用のフォルダーを作る tell application "Finder" try make new folder at folder "Shared" of folder "Users" of startup disk with properties {name:"DownFilesImages"} end try end tell set FilePass to ":Users:Shared:DownFilesImages:" as string ---ここからが画像取得のリピート repeat Fcount times ---ファイル名の一部になる時間の取得 set nowTime to my DateAndTIme(current date) as string ---保存するファイルをフルパスで定義 set SaveFileName to (HddName & FilePass & MainFileName & "_" & nowTime & ExtensionName) as string tell application "Finder" tell application "URL Access Scripting" with timeout of 60 seconds ---ファイルをダウンロード try download URLNAME to file SaveFileName replacing yes with progress end try end timeout end tell end tell ----間欠させるために処理をまたせる delay WaitTime end repeat ----------#ここから時間取得用のサブルーチン to DateAndTIme(theDate) set y to (year of theDate) set m to my monthNumStr(month of theDate) set d to day of theDate set hms to time of theDate set hh to h of sec2hms(hms) set mm to m of sec2hms(hms) set ss to s of sec2hms(hms) return (y as text) & my zero1(m) & my zero1(d) & "_" & zero1(hh) & zero1(mm) & zero1(ss) ----return (y as text) & my zero1(m) & my zero1(d) end DateAndTIme to monthNumStr(theMonth) set monList to {January, February, March, April, May, June, July, August, September, October, November, December} repeat with i from 1 to 12 if item i of monList is theMonth then exit repeat end repeat return i end monthNumStr to zero1(n) if n < 10 then return "0" & n else return n as text end if end zero1 to replace(theText, orgStr, newStr) set oldDelim to AppleScript's text item delimiters set AppleScript's text item delimiters to orgStr set tmpList to every text item of theText set AppleScript's text item delimiters to newStr set tmpStr to tmpList as text set AppleScript's text item delimiters to oldDelim return tmpStr end replace to sec2hms(sec) set ret to {h:0, m:0, s:0} set h of ret to sec div hours set m of ret to (sec - (h of ret) * hours) div minutes set s of ret to sec mod minutes return ret end sec2hms

「yokohamaP.scpt.txt」をダウンロード

「yokohamaP.scpt.zip」をダウンロード