AppleScript: 파워북 내장마이크 보이스레코딩 퀵셋업

[albireo]

파워북의 내장마이크로 보이스레코딩을 하려할 때, 매번

1. 인풋게인을 최대로 늘리고,
2. 에코를 막기 위해 내장스피커 볼륨을 죽이고,
3. 사운드입력장치를 내장마이크로 세팅하는 이 세가지 일이 번거롭게 생각되어,

GUI Scripting 도 익힐 겸 애플스크립트로 만들어 보았습니다 ;-)

-- This script sets sound input device of PowerBook to "Internal microphone", input volume level to maximum, and output volume level to minimum, and launch QuickTIme Player, voice recording window.
-- Written by Hongsun Yoon, M.D., Albireo Project, June 2005

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

tell application "System Events"
if UI elements enabled then
tell slider 1 of group 1 of window 1 of process "System Preferences"
set value to 0
end tell
click radio button "Input" of tab group 1 of window 1 of process "System Preferences"
tell slider 1 of group 2 of tab group 1 of window 1 of process "System Preferences"
set value to 1.0
end tell
set theRows to every row of table 1 of scroll area 1 of tab group 1 of window 1 of process "System Preferences"
set theOutputs to {} as list
repeat with aRow in theRows
if (value of text field 1 of aRow as text) is equal to "Internal microphone" then
set selected of aRow to true
exit repeat
end if
end repeat
tell application "System Preferences" to quit
else
tell application "System Preferences"
activate
set current pane to pane "com.apple.preference.universalaccess"
display dialog "UI element scripting is not enabled. Check \"Enable access for assistive devices\""
end tell
end if
end tell

[albireo]

만일 QuickTime Player 의 "새 오디오 레코딩" 윈도우까지 함께 띄우고 싶다면, "tell application "System Preferences" to quit" 과 "else" 사이에 아래 스크립트를 추가해 넣으면 되겠습니다.

tell application "QuickTime Player"
activate
end tell
tell application process "QuickTime Player"
click menu item "New Audio Recording" of menu 1 of menu bar item "File" of menu bar 1
end tell