set aFileName to “webOut” & (do shell script “date +%Y%m%d%H%M%S”)
renderURLtoPDF(aURL, aFileName) of me

on renderURLtoPDF(aURL, aFileName)
　　set s1Text to “cd ~/Desktop && “
　　set outPath to POSIX path of (path to desktop) & aFileName & “.pdf”
　　
　　set s2Text to “wkpdf –source “ & aURL & ” –paginate false –print-background –output “ & outPath
　　
　　set sAll to s1Text & s2Text
　　do shell script sAll
end renderURLtoPDF

(*
–指定URLの内容をレンダリングしてPDFに書き出す
on renderURLtoPDF(aURL, aFileName)
　　set dDir to POSIX path of (path to desktop from user domain)
　　set outFile to dDir & aFileName & “.pdf”
　　try
　　　　do shell script “cd /usr/local/bin && /usr/local/bin/coral -f PDF -o ” & quoted form of outFile & ” ” & aURL & ” &”
　　on error
　　　　return false
　　end try
　　–return outFile
end renderURLtoPDF
*)

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

–NHKのラジオ局を選局する
on openNHKstations(aStation)
　　try
　　　　tell application “Safari”
　　　　　　close every document
　　　　　　set nDoc to make new document with properties {URL:“http://www3.nhk.or.jp/netradio/”}
　　　　　　
　　　　　　page_loaded(10) of me
　　　　　　
　　　　　　do JavaScript “RRopen(’” & aStation & “‘);” in document 1
　　　　end tell
　　　　
　　　　return true
　　　　
　　on error
　　　　return false
　　end try
end openNHKstations

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

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

tell application "Safari"
　　set aVer to version as number –バージョン番号
　　if aVer < 5.1 then return
　　
　　search the web for aKeyword
　　
end tell

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

tell application "Safari"
　　tell window 1
　　　　set curTab to current tab
　　　　search the web for aKeyword in curTab –検索結果を表示するTabを指定
　　end tell
end tell

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

tell application “Safari”
　　set aVer to version as number –バージョン番号
　　if aVer < 5.1 then return
　　
　　add reading list item aURL with title “AppleScriptの穴”
end tell

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

tell application “Safari”
　　set aVer to version as number –バージョン番号
　　if aVer < 5.1 then return
　　
　　add reading list item aURL and preview text aPrevText with title “AppleScriptの穴”
end tell

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

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

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

set mList to {}

tell application “System Events”
　　tell process “Safari”
　　　　tell menu bar 1
　　　　　　set iList to every UI element
　　　　end tell
　　　　
　　　　repeat with i in iList
　　　　　　tell i
　　　　　　　　tell menu 1
　　　　　　　　　　set iiList to every UI element
　　　　　　　　end tell
　　　　　　end tell
　　　　　　
　　　　　　repeat with ii in iiList
　　　　　　　　
　　　　　　　　tell ii
　　　　　　　　　　try
　　　　　　　　　　　　set titleVal to title
　　　　　　　　　　　　if titleVal = missing value then set titleVal to “”
　　　　　　　　　　on error
　　　　　　　　　　　　set titleVal to “”
　　　　　　　　　　end try
　　　　　　　　　　
　　　　　　　　　　if titleVal is not equal to “” then
　　　　　　　　　　　　try
　　　　　　　　　　　　　　set cmdChar to value of attribute “AXMenuItemCmdChar”
　　　　　　　　　　　　　　if cmdChar = missing value then set cmdChar to “”
　　　　　　　　　　　　on error
　　　　　　　　　　　　　　set cmdChar to “”
　　　　　　　　　　　　end try
　　　　　　　　　　　　
　　　　　　　　　　　　if cmdChar is not equal to “” then
　　　　　　　　　　　　　　try
　　　　　　　　　　　　　　　　set cmdGlyph to value of attribute “AXMenuItemCmdGlyph”
　　　　　　　　　　　　　　　　if cmdGlyph = missing value then set cmdGlyph to “”
　　　　　　　　　　　　　　on error
　　　　　　　　　　　　　　　　set cmdGlyph to “”
　　　　　　　　　　　　　　end try
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　try
　　　　　　　　　　　　　　　　set cmdMod to value of attribute “AXMenuItemCmdModifiers”
　　　　　　　　　　　　　　　　if cmdMod = missing value then set cmdMod to “”
　　　　　　　　　　　　　　on error
　　　　　　　　　　　　　　　　set cmdMod to “”
　　　　　　　　　　　　　　end try
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　try
　　　　　　　　　　　　　　　　set cmdVirt to value of attribute “AXMenuItemCmdVirtualKey”
　　　　　　　　　　　　　　　　if cmdVirt = missing value then set cmdVirt to “”
　　　　　　　　　　　　　　on error
　　　　　　　　　　　　　　　　set cmdVirt to “”
　　　　　　　　　　　　　　end try
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　set the end of mList to {titleVal, {cmdChar, cmdGlyph, cmdMod, cmdVirt}}
　　　　　　　　　　　　end if
　　　　　　　　　　end if
　　　　　　　　end tell
　　　　　　　　
　　　　　　end repeat
　　　　end repeat
　　end tell
end tell

mList
–> {{”Takaaki Naganoya をログアウト…”, {”Q”, “”, 1, “”}}, {”Takaaki Naganoya をログアウト”, {”Q”, “”, 3, “”}}, {”環境設定…”, {”,”, “”, 0, “”}}, {”ポップアップウインドウを開かない”, {”K”, “”, 1, “”}}, {”キャッシュを空にする…”, {”E”, “”, 2, “”}}, {”Safari を隠す”, {”H”, “”, 0, “”}}, {”ほかを隠す”, {”H”, “”, 2, “”}}, {”Safari を終了”, {”Q”, “”, 0, “”}}, {”新規ウインドウ”, {”N”, “”, 0, “”}}, {”新規タブ”, {”T”, “”, 0, “”}}, {”ファイルを開く…”, {”O”, “”, 0, “”}}, {”場所を開く…”, {”L”, “”, 0, “”}}, {”ウインドウを閉じる”, {”W”, “”, 0, “”}}, {”ウインドウを閉じる”, {”W”, “”, 0, “”}}, {”すべてのウインドウを閉じる”, {”W”, “”, 2, “”}}, {”すべてのウインドウを閉じる”, {”W”, “”, 2, “”}}, {”別名で保存…”, {”S”, “”, 0, “”}}, {”別名で保存…”, {”S”, “”, 0, “”}}, {”このページの内容をメールで送信”, {”I”, “”, 0, “”}}, {”このページへのリンクをメールで送信”, {”I”, “”, 1, “”}}, {”プリント…”, {”P”, “”, 0, “”}}, {”取り消す”, {”Z”, “”, 0, “”}}, {”やり直す”, {”Z”, “”, 1, “”}}, {”カット”, {”X”, “”, 0, “”}}, {”コピー”, {”C”, “”, 0, “”}}, {”ペースト”, {”V”, “”, 0, “”}}, {”ペーストしてスタイルを合わせる”, {”V”, “”, 3, “”}}, {”すべてを選択”, {”A”, “”, 0, “”}}, {”フォームに自動入力”, {”A”, “”, 1, “”}}, {”特殊文字…”, {”T”, “”, 2, “”}}, {”ブックマークバーを隠す”, {”B”, “”, 1, “”}}, {”ステータスバーを隠す”, {”/”, “”, 0, “”}}, {”タブバーを表示”, {”T”, “”, 1, “”}}, {”ツールバーを隠す”, {”|”, “”, 0, “”}}, {”中止”, {”.”, “”, 0, “”}}, {”ページを再読み込み”, {”R”, “”, 0, “”}}, {”実際のサイズ”, {”0″, “”, 0, “”}}, {”拡大”, {”+”, “”, 0, “”}}, {”縮小”, {”-”, “”, 0, “”}}, {”ソースを表示”, {”U”, “”, 2, “”}}, {”Top Sites を表示”, {”1″, “”, 2, “”}}, {”前へ戻る”, {”[”, “”, 0, “”}}, {”次へ進む”, {”]”, “”, 0, “”}}, {”ホーム”, {”H”, “”, 1, “”}}, {”検索結果に SnapBack で戻る”, {”S”, “”, 2, “”}}, {”すべてのブックマークを表示”, {”B”, “”, 2, “”}}, {”ブックマークに追加…”, {”D”, “”, 0, “”}}, {”メニューにブックマークを追加”, {”D”, “”, 1, “”}}, {”ブックマークフォルダを追加”, {”N”, “”, 1, “”}}, {”Web インスペクタを表示”, {”I”, “”, 2, “”}}, {”エラーコンソールを表示”, {”C”, “”, 2, “”}}, {”JavaScript のプロファイリングを開始”, {”P”, “”, 3, “”}}, {”しまう”, {”M”, “”, 0, “”}}, {”すべてしまう”, {”M”, “”, 2, “”}}, {”ダウンロード”, {”L”, “”, 2, “”}}, {”構成ファイル一覧”, {”A”, “”, 2, “”}}}

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

–MacJournalの操作
createNewEntryonMacJournal() of me

tell application “MacJournal“
　　tell document 1
　　　　set aSel to selected entry
　　　　set name of aSel to aTitle
　　　　set plain text content of aSel to (aURL & return & return & aText)
　　end tell
end tell

–MacJournalで新規エントリを作成して選択状態にしておく
on createNewEntryonMacJournal()
　　activate application “MacJournal“
　　tell application “System Events“
　　　　tell process “MacJournal“
　　　　　　set aName to title of menu item 1 of menu 1 of menu bar item 3 of menu bar 1
　　　　　　if aName = “新規エントリー“ then –日本語環境用。他の言語環境では、ここのチェックを行わないか、あるいは書き換えること
　　　　　　　　click menu item 1 of menu 1 of menu bar item 3 of menu bar 1 –Menu > New Entry
　　　　　　end if
　　　　end tell
　　end tell
end createNewEntryonMacJournal

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

set dlFol to getSafariDownloadFolder() of me

set aFileName to getFNfromURL(aURL) of me

set dlPath to (dlFol as string) & aFileName

try
　　with timeout of 3600 seconds
　　　　tell application “URL Access Scripting“
　　　　　　activate
　　　　　　download aURL to file dlPath with progress
　　　　end tell
　　end timeout
on error
　　display dialog “Download Error“
end try

–URLからファイル名のみを抽出
on getFNfromURL(aURL)
　　if aURL ends with “/“ then
　　　　display dialog “与えられたURLの末尾がスラッシュで終了しているため、ファイルではありません。“ buttons {”OK“} default button 1
　　　　return “”
　　end if
　　set aLen to length of aURL
　　set aR to reverse of (characters of aURL)
　　set aNstr to aR as string
　　set aLoc to offset of “/“ in aNstr
　　set aRes to text (aLen - aLoc + 2) thru -1 of aURL
　　return aRes
end getFNfromURL

–Safariのダウンロードフォルダを取得
–By Phillip Aker, Mark J Reed
on getSafariDownloadFolder()
　　set preferencesPath to POSIX path of (path to preferences)
　　set bundleId to bundle identifier of (info for (path to application “Safari“))
　　set safariPrefsFile to preferencesPath & bundleId & “.plist“
　　tell application “System Events“ to set folderName to get value of property list item “DownloadsPath“ of property list file safariPrefsFile
　　set downloadFolder to (POSIX file (do shell script “echo “ & folderName)) as alias
　　return downloadFolder
end getSafariDownloadFolder

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

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

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

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

set a to a as Unicode text
if a = “” then return

set dPAth to path to desktop
set tmpOut to (dPAth as string) & “temp.kml“
–write_to_file(a, tmpOut, false) of me
saveInEncoding(a, tmpOut, “UTF8“) of me –UTF8

do shell script “sync“

tell application “Google Earth“
　　activate
　　open file tmpOut
end tell

–指定の文字エンコーディングでファイル書き出し
on saveInEncoding(aText, aPath, aEncoding)
　　
　　set a to aText as Unicode text
　　
　　set aTmp to path to temporary items
　　
　　set outFile to (aTmp as string) & “temporary_utf16be_text_fromAS.txt“
　　write_to_file(a, outFile, false) of me
　　
　　do shell script “sync“
　　
　　set outPPath to quoted form of POSIX path of (outFile as alias)
　　set cnvPPath to quoted form of POSIX path of aPath
　　
　　try
　　　　do shell script “iconv -f UTF-16BE -t ” & aEncoding & “ ” & outPPath & “ > ” & cnvPPath
　　　　–do shell script “iconv -f UTF-16LE -t ” & aEncoding & ” ” & outPPath & ” > ” & cnvPPath
　　end try
　　
　　do shell script “sync“
　　
　　try
　　　　do shell script “rm -f ” & outPPath
　　end try
　　
end saveInEncoding

–ファイルの追記ルーチン「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

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

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

–Safariの最新のダウンロード状況を取得する
on getLatestDLstat()
　　–activate application “Safari”
　　tell application “System Events“
　　　　tell process “Safari“
　　　　　　– insert GUI Scripting statements here
　　　　　　set wList to name of every window
　　　　　　if “ダウンロード” is not in wList then return “”
　　　　　　
　　　　　　tell list 1 of scroll area 1 of window “ダウンロード“
　　　　　　　　set lastG to last group
　　　　　　end tell
　　　　　　
　　　　　　tell lastG
　　　　　　　　set sCount to count every static text
　　　　　　　　set dispTxt to “”
　　　　　　　　repeat with i from 1 to sCount
　　　　　　　　　　set aVal to value of static text i
　　　　　　　　　　set dispTxt to dispTxt & aVal & return
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
　　return dispTxt
end getLatestDLstat

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

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
　　
　　page_loaded(10) of me
　　
　　set a to do JavaScript “document.title” in document 1
end tell

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

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

set the clipboard to a & return & aURL

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

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