on open fileList
　　
　　tell application “Finder”
　　　　set sortedList to sort fileList by creation date –オリジナルはmodification dateだったが……趣味の問題？
　　end tell
　　
　　set sortedList to sortedList’s reverse
　　
　　set oldPath to writeASSourceToTempFolder((sortedList’s item 1) as alias)
　　set newPath to writeASSourceToTempFolder((sortedList’s item 2) as alias)
　　
　　do shell script “/usr/bin/opendiff “ & oldPath’s POSIX path’s quoted form & ” “ & newPath’s POSIX path’s quoted form & ” > /dev/null 2>&1 &”
　　
　　–指定プロセスでDialogが出て処理が停まっている場合には、強制的にダイアログをクローズして処理続行させる
　　clickFrontDialog(“FileMerge”) of me
　　
end open

–AppleScriptのソースを取得してファイルに書き出し
on writeASSourceToTempFolder(macPath)
　　set aName to (info for macPath size 0)’s name
　　set tmpPath to ((path to temporary items from system domain) as text) & aName & “__” & (do shell script “/usr/bin/uuidgen”) & “.txt”
　　
　　set scptText to do shell script “/usr/bin/osadecompile “ & macPath’s POSIX path’s quoted form
　　
　　set accessFile to open for access file tmpPath with write permission
　　set eof of accessFile to 0
　　write scptText to accessFile starting at eof as text
　　close access accessFile
　　
　　return tmpPath
end writeASSourceToTempFolder

–表示されるダイアログを乗り越えるためのルーチン（「キャンセル」もしくは「Cancel」ではない方のボタンを押す）
on clickFrontDialog(aProcName)
　　–余計なプロセスを起動せずにactivate
　　activateAproc(aProcName) of me
　　
　　–ダイアログ検出
　　tell application “System Events”
　　　　tell process aProcName
　　　　　　if (count every window) ≥ 1 then
　　　　　　　　if subrole of window 1 = “AXDialog” then
　　　　　　　　　　tell window 1
　　　　　　　　　　　　set bCount to count every button
　　　　　　　　　　　　
　　　　　　　　　　　　–「キャンセル」もしくは「Cancel」ではない方のボタンを取得
　　　　　　　　　　　　repeat with i in {“キャンセル”, “Cancel”} –キャンセルに該当するキーワードのリストを各国語分だけ用意しておく？？？
　　　　　　　　　　　　　　set bList to (every button whose title is not equal to (contents of i))
　　　　　　　　　　　　　　if length of bList is not equal to bCount then
　　　　　　　　　　　　　　　　set aButton to first item of bList
　　　　　　　　　　　　　　　　tell aButton
　　　　　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　end if
　　　　　　end if
　　　　end tell
　　end tell
end clickFrontDialog

on activateAproc(aName)
　　tell application “System Events”
　　　　set aList to every process whose name is aName and visible of it is true
　　　　
　　　　if length of aList ≥ 1 then
　　　　　　set aProc to first item of aList
　　　　　　tell aProc
　　　　　　　　set frontmost to true
　　　　　　end tell
　　　　　　
　　　　else
　　　　　　tell application aName to activate
　　　　end if
　　　　
　　end tell
end activateAproc

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–AppleScriptのソースを取得してファイルに書き出し
on writeASSourceToTempFolder(macPath)
　　set aName to (info for macPath size 0)’s name
　　set tmpPath to ((path to temporary items from user domain) as text) & aName & “__” & (do shell script “/usr/bin/uuidgen”) & “.txt”
　　
　　set scptText to do shell script “/usr/bin/osadecompile “ & macPath’s POSIX path’s quoted form
　　
　　set accessFile to open for access file tmpPath with write permission
　　set eof of accessFile to 0
　　write scptText to accessFile starting at eof as text
　　close access accessFile
　　
　　return tmpPath
end writeASSourceToTempFolder

–表示されるダイアログを乗り越えるためのルーチン（「キャンセル」もしくは「Cancel」ではない方のボタンを押す）
on clickFrontDialog(aProcName)
　　–余計なプロセスを起動せずにactivate
　　activateAproc(aProcName) of me
　　–tell application aProcName to activate
　　–tell application “FileMerge” to activate
　　
　　–ダイアログ検出
　　tell application “System Events”
　　　　tell process aProcName
　　　　　　if (count every window) ≥ 1 then
　　　　　　　　if subrole of window 1 = “AXDialog” then
　　　　　　　　　　tell window 1
　　　　　　　　　　　　set bCount to count every button
　　　　　　　　　　　　
　　　　　　　　　　　　–「キャンセル」もしくは「Cancel」ではない方のボタンを取得
　　　　　　　　　　　　repeat with i in {“キャンセル”, “Cancel”} –キャンセルに該当するキーワードのリストを各国語分だけ用意しておく？？？
　　　　　　　　　　　　　　set bList to (every button whose title is not equal to (contents of i))
　　　　　　　　　　　　　　if length of bList is not equal to bCount then
　　　　　　　　　　　　　　　　set aButton to first item of bList
　　　　　　　　　　　　　　　　tell aButton
　　　　　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　end if
　　　　　　end if
　　　　end tell
　　end tell
end clickFrontDialog

on activateAproc(aName)
　　tell application “System Events”
　　　　set aList to every process whose name is aName and visible of it is true
　　　　if length of aList ≥ 1 then
　　　　　　set aProc to first item of aList
　　　　　　tell aProc
　　　　　　　　set frontmost to true
　　　　　　end tell
　　　　end if
　　end tell
end activateAproc

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

ぴよ〜"

sendMail(aSubject, theSender, recipientAddr, bodyText) of me

–Mail.appでメール送信を行う
on sendMail(theSubject, theSender, recipientAddr, bodyText)
　　tell application "Mail"
　　　　set newMessage to make new outgoing message with properties {subject:theSubject, content:bodyText}
　　　　tell newMessage
　　　　　　set visible to true
　　　　　　set sender to theSender
　　　　　　make new to recipient at end of to recipients with properties {address:recipientAddr}
　　　　　　
　　　　　　makeAMessageToPlain() of me
　　　　　　
　　　　　　send
　　　　end tell
　　end tell
end sendMail

–作成したメールがリッチテキストなら標準テキスト（プレーンテキスト）に直す
on makeAMessageToPlain()
　　activate application "Mail"
　　
　　tell application "System Events"
　　　　tell process "Mail"
　　　　　　–メニュー内容が「Mail.app」＞「フォーマット」＞「標準テキストにする」だったら現在リッチテキストだと判断し、コマンド実行
　　　　　　set aTitle to title of menu item 11 of menu 1 of menu bar item 8 of menu bar 1
　　　　　　
　　　　　　if aTitle = "標準テキストにする" then
　　　　　　　　–「標準テキストにする」をクリック
　　　　　　　　click menu item 11 of menu 1 of menu bar item 8 of menu bar 1
　　　　　　end if
　　　　end tell
　　end tell
end makeAMessageToPlain

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set outRes to getSelectedSoundOutputName() of me
–> “内蔵スピーカー”

–サウンド入力元の選択されている名称を取得
on getSelectedSoundIntputName()
　　activate application “System Preferences”
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application “System Events”
　　　　tell process “システム環境設定”
　　　　　　click radio button 3 of tab group 1 of window 1 –「入力」タブを選択
　　　　　　set vList to value of attribute “AXVisibleRows” of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　tell table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　set aList to every row whose selected is true
　　　　　　　　set anItem to first item of aList
　　　　　　　　tell anItem
　　　　　　　　　　set aStr to value of text field 1
　　　　　　　　end tell
　　　　　　end tell
　　　　　　
　　　　end tell
　　end tell
　　
　　return aStr
end getSelectedSoundIntputName

–サウンド出力先の選択されている名称を取得
on getSelectedSoundOutputName()
　　activate application “System Preferences”
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application “System Events”
　　　　tell process “システム環境設定”
　　　　　　click radio button 2 of tab group 1 of window 1 –「出力」タブを選択
　　　　　　set vList to value of attribute “AXVisibleRows” of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　tell table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　set aList to every row whose selected is true
　　　　　　　　set anItem to first item of aList
　　　　　　　　tell anItem
　　　　　　　　　　set aStr to value of text field 1
　　　　　　　　end tell
　　　　　　end tell
　　　　　　
　　　　end tell
　　end tell
　　
　　return aStr
end getSelectedSoundOutputName

–システム環境設定で「サウンド」に表示を切り替える
on displaySoundPaneInSystemPrefs()
　　tell application “System Preferences”
　　　　activate
　　　　set current pane to pane “com.apple.preference.sound”
　　end tell
end displaySoundPaneInSystemPrefs

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aRes to setSountOutputSource("内蔵スピーカー") of me
–> true（設定成功の場合。失敗の場合にはfalseを返す）

–サウンド入力先を設定
on setSountInputSource(aName)
　　activate application "System Preferences"
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application "System Events"
　　　　tell process "システム環境設定"
　　　　　　click radio button 3 of tab group 1 of window 1 –「入力」タブを選択
　　　　　　set vList to value of attribute "AXVisibleRows" of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　set outList to {}
　　　　　　repeat with i from 1 to vCount
　　　　　　　　set aStr to value of text field 1 of row i of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　if aStr = aName then
　　　　　　　　　　set selected of row i of table 1 of scroll area 1 of tab group 1 of window 1 to true
　　　　　　　　　　return true
　　　　　　　　end if
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return false
end setSountInputSource

–サウンド出力先を設定
on setSountOutputSource(aName)
　　activate application "System Preferences"
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application "System Events"
　　　　tell process "システム環境設定"
　　　　　　click radio button 2 of tab group 1 of window 1 –「入力」タブを選択
　　　　　　set vList to value of attribute "AXVisibleRows" of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　set outList to {}
　　　　　　repeat with i from 1 to vCount
　　　　　　　　set aStr to value of text field 1 of row i of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　if aStr = aName then
　　　　　　　　　　set selected of row i of table 1 of scroll area 1 of tab group 1 of window 1 to true
　　　　　　　　　　return true
　　　　　　　　end if
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return false
end setSountOutputSource

–システム環境設定で「サウンド」に表示を切り替える
on displaySoundPaneInSystemPrefs()
　　tell application "System Preferences"
　　　　activate
　　　　set current pane to pane "com.apple.preference.sound"
　　end tell
end displaySoundPaneInSystemPrefs

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set inList to getEverySoundInputName() of me
–> {"内蔵マイク", "ライン入力", "PROPlantronics", "Soundflower (2ch)"}

–サウンド出力先のリストを取得
on getEverySoundOutputName()
　　activate application "System Preferences"
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application "System Events"
　　　　tell process "システム環境設定"
　　　　　　click radio button 2 of tab group 1 of window 1 –「出力」タブを選択
　　　　　　set vList to value of attribute "AXVisibleRows" of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　set outList to {}
　　　　　　repeat with i from 1 to vCount
　　　　　　　　set aStr to value of text field 1 of row i of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　set the end of outList to aStr
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return outList
end getEverySoundOutputName

–サウンド入力先のリストを取得
on getEverySoundInputName()
　　activate application "System Preferences"
　　displaySoundPaneInSystemPrefs() of me
　　
　　tell application "System Events"
　　　　tell process "システム環境設定"
　　　　　　click radio button 3 of tab group 1 of window 1 –「入力」タブを選択
　　　　　　set vList to value of attribute "AXVisibleRows" of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　set vCount to count every item of vList
　　　　　　
　　　　　　set outList to {}
　　　　　　repeat with i from 1 to vCount
　　　　　　　　set aStr to value of text field 1 of row i of table 1 of scroll area 1 of tab group 1 of window 1
　　　　　　　　set the end of outList to aStr
　　　　　　end repeat
　　　　end tell
　　end tell
　　
　　return outList
end getEverySoundInputName

–システム環境設定で「サウンド」に表示を切り替える
on displaySoundPaneInSystemPrefs()
　　tell application "System Preferences"
　　　　activate
　　　　set current pane to pane "com.apple.preference.sound"
　　end tell
end displaySoundPaneInSystemPrefs

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aFol to choose folder with prompt “Numbersに貼り付ける画像が入っているフォルダを選択してください”

tell application “Finder”
　　set aList to (every file of aFol) as alias list
end tell

set aLen to length of aList

tell application “Numbers”
　　tell document 1
　　　　tell sheet 1
　　　　　　tell table 1
　　　　　　　　set row count to aLen + 5
　　　　　　end tell
　　　　end tell
　　end tell
end tell

set aCounter to 2

repeat with i in aList
　　tell application “Adobe Photoshop CS3″
　　　　activate
　　　　open i
　　　　set d1Doc to (a reference to current document)
　　　　
　　　　tell d1Doc
　　　　　　select all
　　　　　　copy
　　　　end tell
　　　　
　　　　tell document 1
　　　　　　close saving no
　　　　end tell
　　　　
　　end tell
　　
　　
　　set aRangeStr to aRange & (aCounter as string) & “:” & aRange & (aCounter as string)
　　
　　tell application “Numbers”
　　　　tell document 1
　　　　　　tell sheet 1
　　　　　　　　tell table 1
　　　　　　　　　　set selection range to range aRangeStr
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　activate application “Numbers”
　　tell application “System Events”
　　　　tell process “Numbers”
　　　　　　keystroke “v” using {command down}
　　　　end tell
　　end tell
　　
　　
　　set aCounter to aCounter + 1
　　
end repeat

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set icalRes to {}
repeat with i in aRes
　　set j to contents of i
　　set the end of icalRes to getCalName(j) of me
end repeat
icalRes
–> {”ホーム”}

–選択中のiCal上のイベントが所属しているカレンダーの名称を取得する
on getCalName(aStr)
　　
　　set aList to paragraphs of aStr
　　set aTitle to contents of item 1 of aList
　　set dStr to contents of item 2 of aList
　　
　　set dOffset to offset of “日 を “ in dStr
　　set dDate to text 1 thru dOffset of dStr
　　–set dDateObj to date dDate
　　
　　set tSeparator to offset of ” 〜 “ in dStr
　　if tSeparator = 0 then
　　　　–「〜」がないことから、終日のスケジュールと判断
　　　　set timeFrom to “0:00″
　　　　set timeTo to “23:59:59″
　　else
　　　　–開始時刻と終了時刻のあるスケジュールと判断
　　　　set timeFrom to text (dOffset + 4) thru (tSeparator - 1) of dStr
　　　　set timeTo to text (tSeparator + 3) thru ((length of dStr) - 12) of dStr
　　end if
　　
　　set timeFromObj to date (dDate & ” “ & timeFrom)
　　set timeToObj to date (dDate & ” “ & timeTo)
　　
　　
　　
　　tell application “iCal”
　　　　set cnList to name of every calendar
　　　　set cList to every calendar
　　　　
　　　　set cCount to 1
　　　　set findF to false
　　　　repeat with i in cList
　　　　　　tell i
　　　　　　　　set eList to (every event whose start date is not less than timeFromObj and start date is not greater than timeToObj and summary of it is aTitle)
　　　　　　　　if eList is not equal to {} then
　　　　　　　　　　set findF to true
　　　　　　　　　　exit repeat
　　　　　　　　end if
　　　　　　end tell
　　　　　　set cCount to cCount + 1
　　　　end repeat
　　　　
　　　　if findF = true then
　　　　　　set aName to contents of item cCount of cnList
　　　　else
　　　　　　set aName to “”
　　　　end if
　　end tell
　　
　　return aName
end getCalName

–選択中のイベント情報をコピー（エラー時にはfalseをリターン）
on retSelectedEvent()
　　activate application “iCal”
　　tell application “System Events”
　　　　tell process “iCal”
　　　　　　–「編集」メニューの項目「コピー」がイネーブルかどうかを取得
　　　　　　set copyEnabled to (enabled of menu item 5 of menu 1 of menu bar item 4 of menu bar 1)
　　　　　　if copyEnabled = false then return false
　　　　　　
　　　　　　–コピーしてみる
　　　　　　try
　　　　　　　　
　　　　　　　　keystroke “c” using {command down}
　　　　　　on error
　　　　　　　　–何らかの都合でコピー等の動作を行えなかった場合
　　　　　　　　return false
　　　　　　end try
　　　　　　
　　　　　　–ダイアログ表示時のボタンクリック
　　　　　　clickiCalDialog() of me
　　　　　　
　　　　　　–クリップボードから文字情報を取得
　　　　　　set aConList to the clipboard
　　　　　　set aCon to aConList as string
　　　　　　
　　　　end tell
　　end tell
　　
　　set aList to parseByDelim(aCon, (ASCII character 13) & (ASCII character 13)) of me
　　
　　return aList
　　
end retSelectedEvent

–iCalでイベントをコピー時に、繰り返しイベントが選択されていた時に表示されるダイアログを乗り越えるためのルーチン
–（「キャンセル」ではない方のボタンを押す）
on clickiCalDialog()
　　–ダイアログ検出
　　tell application “System Events”
　　　　tell process “iCal”
　　　　　　if (count every window) > 1 then
　　　　　　　　if subrole of window 1 = “AXDialog” then
　　　　　　　　　　tell window 1
　　　　　　　　　　　　–キャンセル「ではない」方のボタンを取得
　　　　　　　　　　　　set bList to every button whose title is not equal to “キャンセル”
　　　　　　　　　　　　if bList is not equal to {} then
　　　　　　　　　　　　　　set aButton to first item of bList
　　　　　　　　　　　　　　tell aButton
　　　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　end if
　　　　　　end if
　　　　end tell
　　end tell
end clickiCalDialog

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

delay 5 –念のため、ページローディング＆レンダリングを待つ

activate application “Safari”
tell application “System Events”
　　tell process “Safari”
　　　　–ページ上部にあるメニューから、「ABOUT」のテキストをクリックする
　　　　click static text 1 of UI element 2 of list 1 of UI element 1 of scroll area 1 of group 1 of window 1
　　end tell
end tell

–指定のURLをSafariでオープンする
on openPageBySafari(aURL)
　　tell application “Safari”
　　　　set d to count every window
　　　　if d = 0 then
　　　　　　make new window
　　　　　　tell document 1
　　　　　　　　set URL to aURL
　　　　　　end tell
　　　　else
　　　　　　if aURL is not equal to “” then
　　　　　　　　tell document 1
　　　　　　　　　　set URL to aURL
　　　　　　　　end tell
　　　　　　end if
　　　　end if
　　　　set aRes to page_loaded(10) of me
　　end tell
end openPageBySafari

–Safariでオープン中のURLのローディング完了を待つ
on page_loaded(timeout_value)
　　delay 2
　　repeat with i from 1 to the timeout_value
　　　　tell application “Safari”
　　　　　　if (do JavaScript “document.readyState” in document 1) is “complete” then
　　　　　　　　return true
　　　　　　else if i is the timeout_value then
　　　　　　　　return false
　　　　　　else
　　　　　　　　delay 1
　　　　　　end if
　　　　end tell
　　end repeat
　　return false
end page_loaded

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定文字列のAppleScriptをAppleScriptエディタ上で実際に実行して結果を文字列として取得する
on getAppeScriptRes(aScript)
　　tell application id “com.apple.scripteditor2″
　　　　make new document
　　　　tell window 1
　　　　　　set bDoc to name
　　　　end tell
　　　　
　　　　tell document bDoc
　　　　　　set contents to aScript
　　　　　　
　　　　　　–いきなり実行する
　　　　　　try
　　　　　　　　execute
　　　　　　on error
　　　　　　　　close without saving
　　　　　　　　return false
　　　　　　end try
　　　　end tell
　　　　
　　end tell
　　
　　
　　set osVer to system attribute “sys2″
　　
　　–GUI Scripting経由でAppleScriptの実行結果を取得する
　　activate application id “com.apple.scripteditor2″
　　tell application “System Events”
　　　　
　　　　if osVer > 5 then
　　　　　　–Mac OS X 10.6以降の場合（とりあえず10.6.x）
　　　　　　tell process “AppleScript エディタ” –各国語環境で名前は違うかもしれない、と日本語で書いてみる
　　　　　　　　keystroke “3″ using {command down} –command-3　結果を表示
　　　　　　　　set resVal to value of text area 1 of scroll area 1 of group 1 of group 1 of splitter group 1 of window 1
　　　　　　end tell
　　　　　　
　　　　else if osVer = 5 then
　　　　　　–Mac OS X 10.5の場合
　　　　　　tell process “スクリプトエディタ” –ここも各言語環境で名前が違う、と日本語で書いてみる
　　　　　　　　keystroke “2″ using {command down} –command-2　結果を表示
　　　　　　　　set resVal to value of text area 1 of scroll area 1 of group 1 of splitter group 1 of window 1
　　　　　　end tell
　　　　end if
　　end tell
　　
　　
　　tell application id “com.apple.scripteditor2″
　　　　tell document bDoc
　　　　　　close without saving
　　　　end tell
　　end tell
　　
　　return resVal
　　
end getAppeScriptRes

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–TeamViewerを起動して、IDとパスワードを取得する
–ただし、GUI Scriptingをイネーブルにしておくことが必要
on getTeamViewerInfo(waitSeconds)
　　repeat waitSeconds times
　　　　activate application “TeamViewer”
　　　　tell application “System Events”
　　　　　　tell process “TeamViewer”
　　　　　　　　tell window “TeamViewer”
　　　　　　　　　　set idText to value of (static text 1 of group 1)
　　　　　　　　　　set passText to value of (static text 2 of group 1)
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　　　
　　　　–両方取得できたらループから抜ける
　　　　if (idText is not equal to “”) and (passText is not equal to “”) then
　　　　　　exit repeat
　　　　end if
　　　　
　　　　delay 1
　　end repeat
　　
　　return {idInfo:idText, passInfo:passText}
end getTeamViewerInfo

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定のaliasのAppleScriptをオープンして結果を返す
on executeAS(asFileAlias)
　　tell application “AppleScript Editor”
　　　　try
　　　　　　open asFileAlias
　　　　on error erMes
　　　　　　return {false, “AppleScriptファイルのオープンに失敗しました。” & erMes}
　　　　end try
　　　　
　　　　tell window 1
　　　　　　set bDoc to name
　　　　end tell
　　　　
　　　　tell document bDoc
　　　　　　
　　　　　　–実行する
　　　　　　try
　　　　　　　　execute
　　　　　　on error erMes
　　　　　　　　–エラー発生時にはクローズしてfalseを返す
　　　　　　　　close without saving
　　　　　　　　return {false, “AppleScriptファイルの実行時にエラーが発生しました。” & erMes}
　　　　　　end try
　　　　　　
　　　　end tell
　　　　
　　　　–GUI Scripting経由でAppleScriptの実行結果を取得する
　　　　activate application “AppleScript Editor”
　　　　tell application “System Events”
　　　　　　tell process “AppleScript エディタ” –各国語環境で名前は違うかもしれない、と日本語で書いてみる
　　　　　　　　keystroke “3″ using {command down} –command-3　結果を表示
　　　　　　　　set resVal to value of text area 1 of scroll area 1 of group 1 of group 1 of splitter group 1 of window 1
　　　　　　end tell
　　　　end tell
　　　　
　　　　tell application “AppleScript Editor”
　　　　　　tell document bDoc
　　　　　　　　close without saving
　　　　　　end tell
　　　　end tell
　　　　
　　　　return {true, resVal}
　　　　
　　end tell
　　
end executeAS

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file_asRec(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as record starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file_asRec

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定文字列のAppleScriptをAppleScriptエディタ上で実際に実行して結果を文字列として取得する
on getAppeScriptRes(aScript)
　　tell application “AppleScript Editor”
　　　　make new document
　　　　tell window 1
　　　　　　set bDoc to name
　　　　end tell
　　　　
　　　　tell document bDoc
　　　　　　set contents to aScript
　　　　　　
　　　　　　–いきなり実行する
　　　　　　try
　　　　　　　　execute
　　　　　　on error
　　　　　　　　close without saving
　　　　　　　　return false
　　　　　　end try
　　　　end tell
　　　　
　　end tell
　　
　　–GUI Scripting経由でAppleScriptの実行結果を取得する
　　activate application “AppleScript Editor”
　　tell application “System Events”
　　　　tell process “AppleScript エディタ” –各国語環境で名前は違うかもしれない、と日本語で書いてみる
　　　　　　keystroke “3″ using {command down} –command-3　結果を表示
　　　　　　set resVal to value of text area 1 of scroll area 1 of group 1 of group 1 of splitter group 1 of window 1
　　　　end tell
　　end tell
　　
　　tell application “AppleScript Editor”
　　　　tell document bDoc
　　　　　　close without saving
　　　　end tell
　　end tell
　　
　　return resVal
　　
end getAppeScriptRes

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

*)

–set directionF to "V" –用紙方向＝たて方向
set directionF to "H" –用紙方向＝たて方向

set printerName to "PS-NX650"
set paperSize to "A4"

printViaGUI(directionF, printerName, paperSize) of me