オンラインで映画を見るYahooのオンラインシアターというサービスを利用しているのだけど、例によってIE専用ということで、Parallels Desktop経由で見ている。

Parallels経由でもパフォーマンスは足りているようで、描画が追いつかない事態はほとんど発生しない。ただ問題は、視聴中にOS Xのスクリーンセーバが動き出すことだ。

丁度以前からAppleScriptを勉強してみたかったので、スクリーンセーバとスリープを有効/無効に設定するスクリプトを作ってみることにした。

ちなみにAppleScriptとは：
　・Mac OS標準バンドルのスクリプト実行環境
　・アプリケーションの操作もできるので、位置づけはWindows Script Hostに近い
　・文法はCやらBASICとは全然違う。オブジェクト指向。

TheaterMode.scpt

set theaterMode to false

tell application "System Preferences"
 set current pane to pane "com.apple.preference.desktopscreeneffect"
end tell

tell application "System Events"
 tell process "System Preferences"
  click radio button "スクリーンセーバ" of tab group 1 of window "デスクトップとスクリーンセーバ"
  tell slider 1 of group 1 of tab group 1 of window "デスクトップとスクリーンセーバ"
   if value < 360 then set theaterMode to true
   if theaterMode then
    set value to 360
   else
    set value to 180
   end if
  end tell
 end tell
end tell

tell application "System Preferences"
 set current pane to pane "com.apple.preference.energysaver"
end tell

tell application "System Events"
 tell process "System Preferences"
  click radio button "電源アダプタ" of tab group 1 of window "省エネルギー"
  repeat with n from 1 to 2
   tell slider n of tab group 1 of window "省エネルギー"
    if theaterMode then
     set value to 901
    else
     set value to 421
    end if
   end tell
  end repeat
 end tell
end tell

if theaterMode then
 set msg to "スクリーンセーバとスリープを無効にしました"
else
 set msg to "スクリーンセーバとスリープを有効にしました"
end if

display dialog msg buttons {"OK"} with title "シアターモード"

半日、あれやこれやしてみて、何となくできた。
３つの異なる場所にあるスライダーの値を変えるので、スライダーを配列に入れてやろうと思ったけど、うまくできなかった。
公式のリファレンスが英語版しかないみたいで、今ひとつつかみきれない。

オブジェクトの属性には attr of object というようにofでアクセスする。
tell ステートメントは、C#やVBにあるwithステートメントと同じかと思うと、そうでもないようだ。

たとえば

tell application "System Events"
 tell process "System Preferences"
  get it
 end tell
end tell

は動くのだけど（「process “System Preferences” of application “System Events”」が表示されて）、

tell process "System Preferences" of application "System Events"
 get it
end tell

は、文法エラーになって動かない。

そういうものなのだろうと思うけど、いまいち腑に落ちない。

【参考】
「UIElementInspector」（http://developer.apple.com/samplecode/uielementinspector/index.html）
→これでGUIの構造や、変更する属性の名前を調べる

「マイキーボード計画、AppleScriptに挑戦した」（http://www.kototone.jp/com/setkeyboard_applescript.html）
→システム環境設定を変更するスクリプトを作られている

「備忘録：メモ：AppleScriptでGUIを操作する」（http://www.measure-zero.jp/blog/2009/feb/19）
→上に同じ。初AppleScriptというのが私と同じ