ブログトップ
コンピュータと共にある創造的日常
uneoyaji.exblog.jp

メディアアート・プロジェクトにハマったオヤジの日常生活
by une0exct
QuickTime Player で YouTube に自動 Upload
SBArt4 の自動進化機能で全自動的に作成した動画のダイジェスト版を全自動的に YouTube にアップする方法。
まず、QuickTime Player 7 (Pro) でダイジェスト版を自動生成。
これは、わりと簡単で、1つ新規の空のムービーを作っておいて、ダイジェストに入れるべき複数の動画について、それらの一部分ずつをコピペしてから、適当なファイルに保存してやる。スクリプトはこんな感じ。
tell application "QuickTime Player 7"
 activate
  set x to make new document
  repeat with m in 元の動画のパスのリスト
   open m
   tell document 1
    select at 1200 to 4800
    copy
    close
  end tell
  paste x
 end repeat
 save in 保存先のファイル
end tell

7行目の数字はダイジェストに入れる部分の時間の指定です。単位は TimeScale。普通は 600 で一秒が多いかな?つまり、1200から4800ということは2秒目から8秒目までの6秒間をコピーしています。んで、次は自動投稿ですが、QuickTime Player の共有機能で一度YouTube にログインして、情報がキーチェーンに記録されていれば、ログインの部分は省略できます。ということで、以下のスクリプトはログイン省略版です。
tell application "QuickTime Player"
 activate
 open 投稿したい動画のパス
end tell
tell application "System Events"
 tell process "QuickTime Player"
  set win to window 1
  click menu item "YouTube..." of menu "共有" of menu bar item "共有" of menu bar 1
  delay 0.5
  tell sheet 1 of win
   repeat while value of busy indicator 1
    delay 1
   end repeat
  end tell
  delay 1
  tell sheet 1 of win
   keystroke tab
   set the clipboard to 動画につけるのコメントの文字列
   delay 0.5
   keystroke "v" using command down
   keystroke tab
   delay 0.5
   set the clipboard to 動画のタグ
   keystroke "v" using command down
   delay 0.5
   click button "次へ"
  end tell
  delay 2
  tell sheet 1 of win to click button "共有"
  delay 20
  tell group 1 of scroll area 1 of window "書き出しの進行状況"
   repeat while (count progress indicators) > 0 or (count busy indicators) > 0
    delay 2
   end repeat
   delay 2
  end tell
 end tell
end tell
delay 2
tell application "QuickTime Player" to quit saving no

delay の待ち時間は適当です。
[PR]
by une0exct | 2011-10-28 12:34
<< パソコン用の廉価NASをLin... AppleScript で自動... >>