soundIO Libでサウンド入出力を標準デバイスに設定

Posted on 2月 17, 2018 by Takaaki Naganoya

サウンドの入出力デバイスを標準デバイスに変更するAppleScriptです。

ただし、Mac miniではデフォルトのオーディオ入力デバイスが存在していないため、エラーになります。

–> soundIO Lib

AppleScript名：soundIO Libでサウンド入出力を標準デバイスに設定

use AppleScript version "2.4"
use scripting additions
use soundIO : script "soundIO Lib" version "1.2" without importing

set targOutputDevice to "Built-in Output"
set targIntputDevice to "Built-in Microphone" –Mac mini　does not have default sound input device

–出力デバイス一覧に設定対象が入っているかチェック
set aList to soundIO’s getEveryAudioOutputDevice()
if targOutputDevice is not in aList then return {false, "Target output device seems to not present"}

–入力デバイス一覧に設定対象が入っているかチェック
set bList to soundIO’s getEveryAudioInputDevice()
if targIntputDevice is not in bList then return {false, "Target input device seems to not present"}

–入出力デバイスを設定
set i1 to soundIO’s setAudioInuptDevice(targIntputDevice)
set o1 to soundIO’s setAudioOutuptDevice(targOutputDevice)

–サウンド入出力デバイスの変更確認
set i2 to soundIO’s getCurrentAudioInuptDevice()
set o2 to soundIO’s getCurrentAudioOutuptDevice()

set aRes to ({i1, o1} = {true, true}) and ({i2, o2} = {targIntputDevice, targOutputDevice})

return aRes

★Click Here to Open This Script　

soundIO Libでサウンド入出力をSoundFlowerに設定

Posted on 2月 17, 2018 by Takaaki Naganoya

サウンドの入出力デバイスをSoundFolwerに変更するAppleScriptです。

SoundFlowerをインストールしていない環境ではエラーになります。

–> soundIO Lib

AppleScript名：soundIO Libでサウンド入出力をSoundFlowerに設定

use AppleScript version "2.4"
use scripting additions
use soundIO : script "soundIO Lib" version "1.2" without importing

set targDevice to "Soundflower (2ch)"

set aList to soundIO’s getEveryAudioOutputDevice()
if targDevice is not in aList then return false

set bList to soundIO’s getEveryAudioInputDevice()
if targDevice is not in bList then return false

set i1 to soundIO’s setAudioInuptDevice(targDevice)
set o1 to soundIO’s setAudioOutuptDevice(targDevice)

set i2 to soundIO’s getCurrentAudioInuptDevice()
set o2 to soundIO’s getCurrentAudioOutuptDevice()

set aRes to (i1 = true and o1 = true) and (i2 = targDevice and o2 = targDevice)
return aRes

★Click Here to Open This Script　

soundIO Libでサウンド入出力デバイス名一覧を取得

Posted on 2月 17, 2018 by Takaaki Naganoya

サウンドの入出力デバイス名の一覧を取得するAppleScriptです。

サウンドの入出力先を取得したり変更するのにシステム環境設定をGUI Scripting経由で操作している例をよく見かけますが、あまり上品なやり方ではないのでこのようなライブラリを利用することをお勧めします。

–> soundIO Lib

use soundIO : script “soundIO Lib” version “1.2” without importing

と、useコマンドでAppleScript Librariesを読み込む際に、オプションで「without importing」を指定しています。

これは、デフォルトの状態ではライブラリ本体の書き換えがすぐに反映されなかった（キャッシュされていた）ことに対処したものです。それほど頻繁にライブラリ側の書き換えを行わなければ、指定する必要はないでしょう。

AppleScript名：soundIO Libでサウンド入出力デバイス名一覧を取得

use AppleScript version "2.4"
use scripting additions
use soundIO : script "soundIO Lib" version "1.2" without importing

set outList to soundIO’s getEveryAudioOutputDevice()
–> {"Built-in Output", "Mobiola Headphone", "Mobiola Microphone", "Soundflower (2ch)", "Soundflower (64ch)"}

set inList to soundIO’s getEveryAudioInputDevice()
–> {"Built-in Microphone", "Mobiola Headphone", "Mobiola Microphone", "Soundflower (2ch)", "Soundflower (64ch)"}

★Click Here to Open This Script　

mpSoundEngineで電話の呼び出し音のような音

Posted on 2月 17, 2018 by Takaaki Naganoya

外部フレームワーク（mpSoundEngine）を利用して電話の呼び出し音のような音を鳴らすAppleScriptです。

–> mpSoundKit.framework

AppleScript名：mpSoundEngineで電話の呼び出し音のような音

— Created 2017-12-14 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "mpSoundKit" –https://github.com/matthiasplappert/MPSoundEngine

property engine : missing value

set engine to current application’s MPMonoSoundEngine’s alloc()’s init()
–https://pages.mtu.edu/~suits/notefreqs.html
set soundList to {440.0, 466.16}

repeat 10 times
　　repeat with i in soundList
　　　　makeSound(i) of me
　　end repeat
end repeat

engine’s |stop|()

on makeSound(aHz)
　　engine’s channel()’s setFrequency:aHz
　　engine’s start()
　　delay 0.05
　　–engine’s |stop|()
end makeSound

★Click Here to Open This Script　

mpSoundEngineで音階発生（Stereo）

Posted on 2月 17, 2018 by Takaaki Naganoya

外部フレームワーク（mpSoundEngine）を利用してステレオで（左右のチャンネルで別々の）音階の音を鳴らすAppleScriptです。

–> mpSoundKit.framework

AppleScript名：mpSoundEngineで音階発生（Stereo）

— Created 2017-12-14 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "mpSoundKit" –https://github.com/matthiasplappert/MPSoundEngine

property engine : missing value

set engine to current application’s MPStereoSoundEngine’s alloc()’s init()
–https://pages.mtu.edu/~suits/notefreqs.html
set soundList to {261.63, 293.66, 329.63, 349.23, 392.0, 440.0, 493.88, 523.25}
set aLen to length of soundList

repeat with i from 1 to aLen
　　makeStereoSound(item i of soundList, item (aLen – i + 1) of soundList) of me
end repeat

engine’s |stop|()

on makeStereoSound(aHz, bHz)
　　engine’s leftChannel()’s setFrequency:aHz
　　engine’s rightChannel()’s setFrequency:bHz
　　engine’s start()
　　delay 0.5
end makeStereoSound

★Click Here to Open This Script　

mpSoundEngineで音階を出す

Posted on 2月 17, 2018 by Takaaki Naganoya

外部フレームワーク（mpSoundEngine）を利用して音階の音を鳴らすAppleScriptです。

–> mpSoundKit.framework

AppleScript名：mpSoundEngineで音階を出す

— Created 2017-12-14 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "mpSoundKit" –https://github.com/matthiasplappert/MPSoundEngine
–http://piyocast.com/as/archives/5030

set engine to current application’s MPMonoSoundEngine’s alloc()’s init()
–https://pages.mtu.edu/~suits/notefreqs.html
set soundList to {261.63, 293.66, 329.63, 349.23, 392.0, 440.0, 493.88, 523.25}

engine’s start()

repeat with i in soundList
　　(engine’s channel()’s setFrequency:i)
　　delay 0.1
end repeat

engine’s |stop|()

★Click Here to Open This Script　

mpSoundEngineでループ音声発生（サイレン2）

Posted on 2月 17, 2018 by Takaaki Naganoya

外部フレームワーク（mpSoundEngine）を利用してループでサイレンのような音声を鳴らすAppleScriptです。

–> mpSoundKit.framework

AppleScript名：mpSoundEngineでループ音声発生（サイレン2）

— Created 2017-12-14 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "mpSoundKit" –https://github.com/matthiasplappert/MPSoundEngine
–http://piyocast.com/as/archives/5030

set engine to current application’s MPMonoSoundEngine’s alloc()’s init()
engine’s start()
repeat with i from 1000 to 100 by -20
　　(engine’s channel()’s setFrequency:i)
　　delay 0.01
end repeat

engine’s |stop|()

★Click Here to Open This Script　

mpSoundEngineでループ音声発生（サイレン1）

Posted on 2月 17, 2018 by Takaaki Naganoya

外部フレームワーク（mpSoundEngine）を利用してループでサイレンのような音声を鳴らすAppleScriptです。

–> mpSoundKit.framework

AppleScript名：mpSoundEngineでループ音声発生（サイレン1）

— Created 2017-12-14 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "mpSoundKit" –https://github.com/matthiasplappert/MPSoundEngine
–http://piyocast.com/as/archives/5030

set engine to current application’s MPMonoSoundEngine’s alloc()’s init()
engine’s start()

repeat with i from 100 to 1000 by 20
　　repeat with ii from i to 1000 by 20
　　　　(engine’s channel()’s setFrequency:ii)
　　　　delay 0.005
　　end repeat
end repeat

engine’s |stop|()

★Click Here to Open This Script　

mpSoundEngineでランダム音発生（昔のSFでコンピュータが演算している風の音）

Posted on 2月 17, 2018 by Takaaki Naganoya

外部フレームワーク（mpSoundEngine）を利用して、ランダムに音（昔のSFでコンピュータが演算している風の音）を鳴らすAppleScriptです。

–> mpSoundKit.framework

AppleScript名：mpSoundEngineでランダム音発生（昔のSFでコンピュータが演算している風の音）

— Created 2017-12-14 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "mpSoundKit" –https://github.com/matthiasplappert/MPSoundEngine

set engine to current application’s MPMonoSoundEngine’s alloc()’s init()

engine’s start()

repeat 100 times
　　set aNum to random number from 50 to 4000
　　(engine’s channel()’s setFrequency:aNum)
　　delay 0.02
end repeat

engine’s |stop|()

★Click Here to Open This Script　

mpSoundEngineでA＝440Hzのモノラルの音を出す

Posted on 2月 17, 2018 by Takaaki Naganoya

外部フレームワーク（mpSoundEngine）を利用して、440Hzの音を鳴らすAppleScriptです。

–> mpSoundKit.framework

AppleScript名：mpSoundEngineでA＝440Hzのモノラルの音を出す

— Created 2017-12-14 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "mpSoundKit" –https://github.com/matthiasplappert/MPSoundEngine
–http://piyocast.com/as/archives/5030

set engine to current application’s MPMonoSoundEngine’s alloc()’s init()
engine’s channel()’s setFrequency:440.0
engine’s start()
delay 3
engine’s |stop|()

★Click Here to Open This Script　

mpSoundEngineで8 octave分の音階発生

Posted on 2月 17, 2018 by Takaaki Naganoya

外部フレームワーク（mpSoundEngine）を利用して、8オクターブ分の音を鳴らすAppleScriptです。

–> mpSoundKit.framework

AppleScript名：mpSoundEngineで8 octave分の音階発生

— Created 2017-12-14 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "mpSoundKit" –https://github.com/matthiasplappert/MPSoundEngine

property engine : missing value

–https://pages.mtu.edu/~suits/notefreqs.html
set soundList to {16.35, 17.32, 18.35, 19.45, 20.6, 21.83, 23.12, 24.5, 25.96, 27.5, 29.14, 30.87, 32.7, 34.65, 36.71, 38.89, 41.2, 43.65, 46.25, 49.0, 51.91, 55.0, 58.27, 61.74, 65.41, 69.3, 73.42, 77.78, 82.41, 87.31, 92.5, 98.0, 103.83, 110.0, 116.54, 123.47, 130.81, 138.59, 146.83, 155.56, 164.81, 174.61, 185.0, 196.0, 207.65, 220.0, 233.08, 246.94, 261.63, 277.18, 293.66, 311.13, 329.63, 349.23, 369.99, 392.0, 415.3, 440.0, 466.16, 493.88, 523.25, 554.37, 587.33, 622.25, 659.25, 698.46, 739.99, 783.99, 830.61, 880.0, 932.33, 987.77, 1046.5, 1108.73, 1174.66, 1244.51, 1318.51, 1396.91, 1479.98, 1567.98, 1661.22, 1760.0, 1864.66, 1975.53, 2093.0, 2217.46, 2349.32, 2489.02, 2637.02, 2793.83, 2959.96, 3135.96, 3322.44, 3520.0, 3729.31, 3951.07, 4186.01, 4434.92, 4698.63, 4978.03, 5274.04, 5587.65, 5919.91, 6271.93, 6644.88, 7040.0, 7458.62, 7902.13}

set revList to reverse of soundList

set engine to current application’s MPMonoSoundEngine’s alloc()’s init()

engine’s start()

repeat with i in soundList
　　(engine’s channel()’s setFrequency:i)
　　delay 0.01
end repeat

repeat with i in revList
　　(engine’s channel()’s setFrequency:i)
　　delay 0.01
end repeat

engine’s |stop|()

★Click Here to Open This Script　

ip-apiでIPアドレスから場所を検索

Posted on 2月 16, 2018 by Takaaki Naganoya

AppleScript名：ip-apiでIPアドレスから場所を検索

— Created 2017-06-05 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set myIP to getGeoLocationByIPAIP("45.59.69.202") of me
–>　　{lon:-75.5281, zip:"19801", query:"45.59.69.202", as:"AS3800 Ionity Corporation", countryCode:"US", isp:"Ionity Corporation", lat:39.7157, city:"Wilmington", region:"DE", timezone:"America/New_York", org:"Ionity Corporation", country:"United States", regionName:"Delaware", status:"success"}

–http://ip-api.com/docs/api:json
on getGeoLocationByIPAIP(myIP)
　　set aURL to "http://ip-api.com/json/" & myIP
　　set aRes to callRestGETAPIAndParseResults(aURL) of me
　　set aRESTres to (json of aRes)
　　set aRESTcode to responseCode of aRes
　　if aRESTcode is not equal to 200 then return false
　　return aRESTres as record
end getGeoLocationByIPAIP

–GET methodのREST APIを呼ぶ
on callRestGETAPIAndParseResults(aURL)
　　set aRequest to current application’s NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aURL)
　　
　　aRequest’s setHTTPMethod:"GET"
　　aRequest’s setCachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData)
　　aRequest’s setHTTPShouldHandleCookies:false
　　aRequest’s setTimeoutInterval:60
　　aRequest’s setValue:"application/json" forHTTPHeaderField:"Accept"
　　
　　set aRes to current application’s NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　set resList to aRes as list
　　
　　set bRes to contents of (first item of resList)
　　set resStr to current application’s NSString’s alloc()’s initWithData:bRes encoding:(current application’s NSUTF8StringEncoding)
　　
　　set jsonString to current application’s NSString’s stringWithString:resStr
　　set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　–Get Response Code & Header
　　set dRes to contents of second item of resList
　　if dRes is not equal to missing value then
　　　　set resCode to (dRes’s statusCode()) as list of string or string
　　　　set resHeaders to (dRes’s allHeaderFields()) as list of string or string
　　else
　　　　set resCode to 0
　　　　set resHeaders to {}
　　end if
　　
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
end callRestGETAPIAndParseResults

★Click Here to Open This Script　

ipinfo.ioでIPアドレスから場所を検索

Posted on 2月 16, 2018 by Takaaki Naganoya

AppleScript名：ipinfo.ioでIPアドレスから場所を検索

— Created 2017-06-05 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set myIP to getGeoLocationByIPinfo("45.59.69.202") of me
–>　　{region:"Delaware", city:"Wilmington", country:"US", org:"AS3800 Talent House, Inc.", hostname:"No Hostname", postal:"19801", ip:"45.59.69.202", loc:"39.7157,-75.5281"}

–http://ipinfo.io/developers
on getGeoLocationByIPinfo(myIP)
　　set aURL to "http://ipinfo.io/" & myIP
　　set aRes to callRestGETAPIAndParseResults(aURL) of me
　　set aRESTres to (json of aRes)
　　set aRESTcode to responseCode of aRes
　　if aRESTcode is not equal to 200 then return false
　　return aRESTres as record
end getGeoLocationByIPinfo

–GET methodのREST APIを呼ぶ
on callRestGETAPIAndParseResults(aURL)
　　set aRequest to current application’s NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aURL)
　　
　　aRequest’s setHTTPMethod:"GET"
　　aRequest’s setCachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData)
　　aRequest’s setHTTPShouldHandleCookies:false
　　aRequest’s setTimeoutInterval:60
　　aRequest’s setValue:"application/json" forHTTPHeaderField:"Accept"
　　
　　set aRes to current application’s NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　set resList to aRes as list
　　
　　set bRes to contents of (first item of resList)
　　set resStr to current application’s NSString’s alloc()’s initWithData:bRes encoding:(current application’s NSUTF8StringEncoding)
　　
　　set jsonString to current application’s NSString’s stringWithString:resStr
　　set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　–Get Response Code & Header
　　set dRes to contents of second item of resList
　　if dRes is not equal to missing value then
　　　　set resCode to (dRes’s statusCode()) as number
　　　　set resHeaders to (dRes’s allHeaderFields()) as record
　　else
　　　　set resCode to 0
　　　　set resHeaders to {}
　　end if
　　
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
end callRestGETAPIAndParseResults

★Click Here to Open This Script　

freegeoipで指定IPアドレスの位置情報を取得

Posted on 2月 16, 2018 by Takaaki Naganoya

AppleScript名：freegeoipで指定IPアドレスの位置情報を取得

— Created 2017-12-20 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"

property |NSURL| : a reference to current application’s |NSURL|
property NSData : a reference to current application’s NSData
property NSJSONSerialization : a reference to current application’s NSJSONSerialization

set aRes to getIPAddressInfoFreeGeoIP("91.108.183.75") of me as list of string or string –anything
–> {time_zone:"Europe/Stockholm", city:"", zip_code:"", longitude:18.056, metro_code:0, country_name:"Sweden", latitude:59.3247, country_code:"SE", region_code:"", region_name:"", |ip|:"91.108.183.75"}

–http://freegeoip.net
on getIPAddressInfoFreeGeoIP(IPAddress)
　　try
　　　　with timeout of 10 seconds
　　　　　　set link to "http://freegeoip.net/json/" & IPAddress
　　　　　　set theURL to |NSURL|’s URLWithString:link
　　　　　　set jsonData to NSData’s dataWithContentsOfURL:theURL
　　　　　　set aJsonDict to (NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value))
　　　　　　return aJsonDict
　　　　end timeout
　　on error
　　　　return missing value
　　end try
end getIPAddressInfoFreeGeoIP

★Click Here to Open This Script　

Returns the value in BTC

Posted on 2月 16, 2018 by Takaaki Naganoya

AppleScript名：Returns the value in BTC

— Created 2017-12-24 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"

property |NSURL| : a reference to current application’s |NSURL|
property NSData : a reference to current application’s NSData
property NSJSONSerialization : a reference to current application’s NSJSONSerialization

set aInfo to retValueInBTC("JPY", "10000") of me
–>　　"0.00654764"

on retValueInBTC(aCurrency, aVal)
　　set aRec to {currency:aCurrency, value:aVal}
　　set reqURLStr to "https://blockchain.info/tobtc"
　　set aURL to retURLwithParams(reqURLStr, aRec) of me
　　try
　　　　with timeout of 10 seconds
　　　　　　set curl_command to "curl " & quoted form of aURL
　　　　　　set jRes to do shell script curl_command
　　　　　　return jRes
　　　　end timeout
　　on error
　　　　return missing value
　　end try
end retValueInBTC

on retURLwithParams(aBaseURL, aRec)
　　set aDic to current application’s NSMutableDictionary’s dictionaryWithDictionary:aRec
　　
　　set aKeyList to (aDic’s allKeys()) as list
　　set aValList to (aDic’s allValues()) as list
　　set aLen to length of aKeyList
　　
　　set qList to {}
　　repeat with i from 1 to aLen
　　　　set aName to contents of item i of aKeyList
　　　　set aVal to contents of item i of aValList
　　　　set the end of qList to (current application’s NSURLQueryItem’s queryItemWithName:aName value:aVal)
　　end repeat
　　
　　set aComp to current application’s NSURLComponents’s alloc()’s initWithString:aBaseURL
　　aComp’s setQueryItems:qList
　　set aURL to (aComp’s |URL|()’s absoluteString()) as text
　　
　　return aURL
end retURLwithParams

★Click Here to Open This Script　

Bitcoin Exchange Rates APIを呼び出す

Posted on 2月 16, 2018 by Takaaki Naganoya

AppleScript名：Bitcoin Exchange Rates APIを呼び出す

— Created 2017-12-11 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"

property |NSURL| : a reference to current application’s |NSURL|
property NSData : a reference to current application’s NSData
property NSJSONSerialization : a reference to current application’s NSJSONSerialization

set aInfo to getBitcoinExchangeRating() of me as list of string or string
–> {CNY:{15m:85561.31, sell:85497.93, symbol:"¥", last:85561.31, buy:85624.69}, PLN:{15m:45977.18, sell:45943.12, symbol:"zł", last:45977.18, buy:46011.23}, THB:{15m:426039.93, sell:425724.34, symbol:"฿", last:426039.93, buy:426355.52}, AUD:{15m:16863.96, sell:16851.47, symbol:"$", last:16863.96, buy:16876.45}, CLP:{15m:8071171.16, sell:8065192.44, symbol:"$", last:8071171.16, buy:8077149.89}, SEK:{15m:108311.42, sell:108231.19, symbol:"kr", last:108311.42, buy:108391.65}, BRL:{15m:43429.07, sell:43396.9, symbol:"R$", last:43429.07, buy:43461.24}, DKK:{15m:81673.5, sell:81613.0, symbol:"kr", last:81673.5, buy:81734.0}, GBP:{15m:9741.63, sell:9734.41, symbol:"£", last:9741.63, buy:9748.84}, RUB:{15m:759210.64, sell:758648.26, symbol:"RUB", last:759210.64, buy:759773.03}, CHF:{15m:12874.51, sell:12864.97, symbol:"CHF", last:12874.51, buy:12884.04}, ISK:{15m:1379204.64, sell:1378183.0, symbol:"kr", last:1379204.64, buy:1380226.29}, SGD:{15m:17490.64, sell:17477.68, symbol:"$", last:17490.64, buy:17503.6}, EUR:{15m:11399.17, sell:11385.02, symbol:"€", last:11399.17, buy:11413.33}, NZD:{15m:18527.65, sell:18513.92, symbol:"$", last:18527.65, buy:18541.37}, USD:{15m:13013.82, sell:13004.18, symbol:"$", last:13013.82, buy:13023.46}, TWD:{15m:389815.96, sell:389527.21, symbol:"NT$", last:389815.96, buy:390104.72}, KRW:{15m:14025514.37, sell:14015124.95, symbol:"₩", last:14025514.37, buy:14035903.78}, JPY:{15m:1474075.39, sell:1472983.47, symbol:"¥", last:1474075.39, buy:1475167.31}, INR:{15m:833116.13, sell:832498.99, symbol:"₹", last:833116.13, buy:833733.26}, HKD:{15m:101728.97, sell:101653.61, symbol:"$", last:101728.97, buy:101804.32}, CAD:{15m:16568.51, sell:16556.23, symbol:"$", last:16568.51, buy:16580.78}}

set aVal to (aInfo’s valueForKeyPath:"JPY") as list of string or string
–> {15m:1483814.35, sell:1483366.93, symbol:"¥", last:1483814.35, buy:1484261.76}

on getBitcoinExchangeRating()
　　try
　　　　with timeout of 10 seconds
　　　　　　set link to "https://blockchain.info/ticker" –Exchange Rates API
　　　　　　set theURL to |NSURL|’s URLWithString:link
　　　　　　set jsonData to NSData’s dataWithContentsOfURL:theURL
　　　　　　set aJsonDict to (NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value))
　　　　　　return aJsonDict
　　　　end timeout
　　on error
　　　　return missing value
　　end try
end getBitcoinExchangeRating

★Click Here to Open This Script　

GET method REST API_Anime API_getInfo_in_a_year_and_cour v2

Posted on 2月 16, 2018 by Takaaki Naganoya

AppleScript名：GET method REST API_Anime API_getInfo_in_a_year_and_cour v2

— Created 2016-05-11 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aYear to 2018
set aCour to 1

set reqURLStr to "http://api.moemoe.tokyo/anime/v1/master/" & (aYear as string) & "/" & (aCour as string)

set aRes to callRestGETAPIAndParseResults(reqURLStr) of me

set aRESTres to json of aRes
set aRESCode to responseCode of aRes
–>　　200
set aRESHeader to (responseHeader of aRes) as list of string or string
–>　　{Connection:"keep-alive", Access-Control-Allow-Origin:"*", Content-Type:"application/json; charset=utf-8", Content-Length:"353", Server:"nginx/1.8.0", Date:"Wed, 11 May 2016 01:14:49 GMT"}

return aRESTres as list of string or string
–>　　(NSArray) {{id:281, title_short3:"", sex:0, sequel:0, created_at:"2016-01-01 23:40:06.0", public_url:"http://gundam-tb.net/", twitter_hash_tag:"gundam_tb", title:"機動戦士ガンダムサンダーボルト", updated_at:"2016-01-01 23:40:06.0", twitter_account:"gundam_tb", title_short1:"サンダーボルト", title_short2:"", cours_id:9}, …….

–GET methodのREST APIを呼ぶ
on callRestGETAPIAndParseResults(aURL)
　　–Request　　
　　set aRequest to current application’s NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aURL)
　　aRequest’s setHTTPMethod:"GET"
　　aRequest’s setCachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData)
　　aRequest’s setHTTPShouldHandleCookies:false
　　aRequest’s setTimeoutInterval:60
　　
　　–CALL REST API
　　set aRes to current application’s NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　
　　–Parse Results
　　set resList to aRes as list
　　set bRes to contents of (first item of resList)
　　set resStr to current application’s NSString’s alloc()’s initWithData:bRes encoding:(current application’s NSUTF8StringEncoding)
　　set jsonString to current application’s NSString’s stringWithString:resStr
　　set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　–Get Response Code
　　set dRes to contents of second item of resList
　　set resCode to (dRes’s statusCode()) as list of string or string
　　
　　–Get Response Header
　　set resHeaders to (dRes’s allHeaderFields()) as list of string or string
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
end callRestGETAPIAndParseResults

★Click Here to Open This Script　

GET method REST API_Anime API_getInfo_in_a_year v2

Posted on 2月 16, 2018 by Takaaki Naganoya

AppleScript名：GET method REST API_Anime API_getInfo_in_a_year v2

— Created 2016-05-11 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set reqURLStr to "http://api.moemoe.tokyo/anime/v1/master/" & "2016"

set aRes to callRestGETAPIAndParseResults(reqURLStr) of me

set aRESTres to json of aRes
set aRESCode to responseCode of aRes
–>　　200
set aRESHeader to (responseHeader of aRes) as list of string or string –as anything
–>　　{Connection:"keep-alive", Access-Control-Allow-Origin:"*", Content-Type:"application/json; charset=utf-8", Content-Length:"353", Server:"nginx/1.8.0", Date:"Wed, 11 May 2016 01:14:49 GMT"}

return aRESTres as list of string or string
–>　　{{id:281, title:"機動戦士ガンダムサンダーボルト"}, {id:282, title:"プリンス・オブ・ストライドオルタナティブ"}, {id:283, title:"無彩限のファントム・ワールド"}, {id:284, title:"ハルチカ〜ハルタとチカは青春する〜"}, {id:285, title:"ノルン＋ノネット"}, {id:286, title:"アクティヴレイド－機動強襲室第八係－"}, {id:287, title:"少女たちは荒野を目指す"}, {id:288, title:"僕だけがいない街"}, {id:289, title:"おじさんとマシュマロ"}, {id:290, title:"ファンタシースターオンライン2 ジアニメーション"}, {id:291, title:"だがしかし"}, {id:292, title:"暗殺教室(第2期)"}, {id:293, title:"ディバインゲート"}, {id:294, title:"おしえて！ギャル子ちゃん"}, {id:295, title:"石膏ボーイズ"}, {id:296, title:"霊剣山星屑たちの宴"}, {id:297, title:"GATE 自衛隊彼の地にて、斯く戦えり(2期)"}, {id:298, title:"昭和元禄落語心中"}, {id:299, title:"紅殻のパンドラ"}, {id:300, title:"ブブキ・ブランキ"}, {id:301, title:"ラクエンロジック"}, {id:302, title:"デュラララ!!×2 結"}, {id:303, title:"ナースウィッチ小麦ちゃんR"}, {id:304, title:"虹色デイズ"}, {id:305, title:"大家さんは思春期！"}, {id:306, title:"Dimension W"}, {id:307, title:"灰と幻想のグリムガル"}, {id:308, title:"シュヴァルツェスマーケン"}, {id:309, title:"最弱無敗の神装機竜(バハムート)"}, {id:310, title:"赤髪の白雪姫(第2期)"}, {id:311, title:"てーきゅう(第7期)"}, {id:312, title:"魔法少女なんてもういいですから。"}, {id:313, title:"蒼の彼方のフォーリズム"}, {id:314, title:"この素晴らしい世界に祝福を！"}, {id:315, title:"亜人"}, {id:316, title:"FAIRY TAIL ZERO"}, {id:317, title:"ももくり"}, {id:318, title:"この男子、魔法がお仕事です。"}, {id:319, title:"SUSHI POLICE"}, {id:320, title:"血液型くん！4"}, {id:321, title:"迷家‐マヨイガ‐"}, {id:322, title:"宇宙パトロールルル子"}, {id:323, title:"機動戦士ガンダムユニコーン RE:0096"}, {id:324, title:"影鰐-KAGEWANI-承"}, {id:325, title:"ぼのぼの"}, {id:326, title:"フューチャーカードバディファイトトリプルディー"}, {id:327, title:"逆転裁判"}, {id:328, title:"学戦都市アスタリスク 2nd SEASON"}, {id:329, title:"僕のヒーローアカデミア"}, {id:330, title:"マクロス⊿"}, {id:331, title:"コンクリート・レボルティオ～超人幻想～THE LAST SONG"}, {id:332, title:"くまみこ"}, {id:333, title:"怪盗ジョーカー(シーズン3)"}, {id:334, title:"ばくおん!!"}, {id:335, title:"聖戦ケルベロス竜刻のファタリテ"}, {id:336, title:"ハンドレッド"}, {id:337, title:"薄桜鬼～御伽草子～"}, {id:338, title:"ジョーカー・ゲーム"}, {id:339, title:"双星の陰陽師"}, {id:340, title:"SUPER LOVERS"}, {id:341, title:"鬼斬"}, {id:342, title:"文豪ストレイドッグス"}, {id:343, title:"あんハピ♪"}, {id:344, title:"クロムクロ"}, {id:345, title:"ネトゲの嫁は女の子じゃないと思った？"}, {id:346, title:"甲鉄城のカバネリ"}, {id:347, title:"少年メイド"}, {id:348, title:"坂本ですが？"}, {id:349, title:"田中くんはいつもけだるげ"}, {id:350, title:"キズナイーバー"}, {id:351, title:"はいふり"}, {id:352, title:"ふらいんぐうぃっち"}, {id:353, title:"とんかつDJアゲ太郎"}, {id:354, title:"三者三葉"}, {id:355, title:"うさかめ"}, {id:356, title:"マギシンドバッドの冒険"}, {id:357, title:"Re：ゼロから始める異世界生活"}, {id:358, title:"うしおととら(第3クール)"}, {id:359, title:"ワガママハイスペック"}, {id:360, title:"ジョジョの奇妙な冒険ダイヤモンドは砕けない"}, {id:361, title:"テラフォーマーズリベンジ"}, {id:362, title:"プリパラ(3rdシーズン)"}, {id:363, title:"エンドライド"}, {id:364, title:"ビッグオーダー"}}

–GET methodのREST APIを呼ぶ
on callRestGETAPIAndParseResults(aURL)
　　–Request　　
　　set aRequest to current application’s NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aURL)
　　aRequest’s setHTTPMethod:"GET"
　　aRequest’s setCachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData)
　　aRequest’s setHTTPShouldHandleCookies:false
　　aRequest’s setTimeoutInterval:60
　　
　　–CALL REST API
　　set aRes to current application’s NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　
　　–Parse Results
　　set resList to aRes as list
　　set bRes to contents of (first item of resList)
　　set resStr to current application’s NSString’s alloc()’s initWithData:bRes encoding:(current application’s NSUTF8StringEncoding)
　　set jsonString to current application’s NSString’s stringWithString:resStr
　　set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　–Get Response Code
　　set dRes to contents of second item of resList
　　set resCode to (dRes’s statusCode()) as list of string or string –as anything
　　
　　–Get Response Header
　　set resHeaders to (dRes’s allHeaderFields()) as list of string or string –as anything
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
end callRestGETAPIAndParseResults

★Click Here to Open This Script　

GET method REST API_Anime API_get cours v2

Posted on 2月 16, 2018 by Takaaki Naganoya

AppleScript名：GET method REST API_Anime API_get cours v2

— Created 2016-05-11 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set reqURLStr to "http://api.moemoe.tokyo/anime/v1/master/cours"

set aRes to callRestGETAPIAndParseResults(reqURLStr) of me

set aRESTres to json of aRes
set aRESCode to responseCode of aRes
–>　　200
set aRESHeader to (responseHeader of aRes) as list of string or string
–>　　{Connection:"keep-alive", Access-Control-Allow-Origin:"*", Content-Type:"application/json; charset=utf-8", Content-Length:"353", Server:"nginx/1.8.0", Date:"Wed, 11 May 2016 01:14:49 GMT"}

return aRESTres as list of string or string –as anything
–>　　 {7:{id:7, year:2015, cours:3}, 3:{id:3, year:2014, cours:3}, 8:{id:8, year:2015, cours:4}, 4:{id:4, year:2014, cours:4}, 9:{id:9, year:2016, cours:1}, 5:{id:5, year:2015, cours:1}, 1:{id:1, year:2014, cours:1}, 6:{id:6, year:2015, cours:2}, 10:{id:10, year:2016, cours:2}, 2:{id:2, year:2014, cours:2}}

–GET methodのREST APIを呼ぶ
on callRestGETAPIAndParseResults(aURL)
　　–Request　　
　　set aRequest to current application’s NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aURL)
　　aRequest’s setHTTPMethod:"GET"
　　aRequest’s setCachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData)
　　aRequest’s setHTTPShouldHandleCookies:false
　　aRequest’s setTimeoutInterval:60
　　
　　–CALL REST API
　　set aRes to current application’s NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　
　　–Parse Results
　　set resList to aRes as list
　　set bRes to contents of (first item of resList)
　　set resStr to current application’s NSString’s alloc()’s initWithData:bRes encoding:(current application’s NSUTF8StringEncoding)
　　set jsonString to current application’s NSString’s stringWithString:resStr
　　set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　–Get Response Code
　　set dRes to contents of second item of resList
　　set resCode to (dRes’s statusCode()) as list of string or string –as anything
　　
　　–Get Response Header
　　set resHeaders to (dRes’s allHeaderFields()) as list of string or string –as anything
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
end callRestGETAPIAndParseResults

★Click Here to Open This Script　

POST method REST API__Slack_users.list

Posted on 2月 16, 2018 by Takaaki Naganoya

SlackのREST APIを呼び出してチーム内のユーザー一覧を取得する（users.list）AppleScriptです。

SLackにサインアップしてAPIのアクセストークンを取得し、プログラムリスト中に記入して実行してください。

AppleScript名：POST method REST API__Slack_users.list.scptd

— Created 2016-03-23 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use BridgePlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

set accessToken to retAccessToken() —Access Token
set reqURLStr to "https://slack.com/api/users.list"
set aRec to {token:accessToken, presence:"1"} –#applescript

set aRes to callRestPOSTAPIAndParseResults(reqURLStr, aRec) of me

set aRESTres to json of aRes
set aRESCode to responseCode of aRes

set aRESHeader to responseHeader of aRes
–>　　{Content-Type:"application/json; charset=utf-8", Access-Control-Allow-Origin:"*", X-Amz-Cf-Id:"zOmILG860ZDWHHwDA5h7HtLNDqYd8nlQyL-Wf_dKfC-b5jDKkr_p8A==", Content-Security-Policy:"referrer no-referrer;", Content-Encoding:"gzip", Server:"Apache", X-XSS-Protection:"0", Transfer-Encoding:"Identity", Via:"1.1 f8ebfacf2280f8de661be7a1f87ba74e.cloudfront.net (CloudFront)", Date:"Tue, 19 Apr 2016 06:16:37 GMT", Strict-Transport-Security:"max-age=31536000; includeSubDomains; preload", Connection:"keep-alive", X-Content-Type-Options:"nosniff", Vary:"Accept-Encoding", X-Cache:"Miss from cloudfront"}

aRESTres as list of string or string
–>　　{members:{{id:"U11PVKT6D", real_name:"Takaaki Naganoya", profile:{image_24:"https://secure.gravatar.com/avatar/e7a98cc29b3b4a35f38226814d60415c.jpg?s=24&d=https%3A%2F%2Fa.slack-edge.com%2F66f9%2Fimg%2Favatars%2Fava_0026-24.png", real_name:"Takaaki Naganoya", real_name_normalized:"Takaaki Naganoya", image_48:"https://secure.gravatar.com/avatar/e7a98cc29b3b4a35f38226814d60415c.jpg?s=48&d=https%3A%2F%2Fa.slack-edge.com%2F272a%2Fimg%2Favatars%2Fava_0026-48.png", image_72:"https://secure.gravatar.com/avatar/e7a98cc29b3b4a35f38226814d60415c.jpg?s=72&d=https%3A%2F%2Fa.slack-edge.com%2F66f9%2Fimg%2Favatars%2Fava_0026-72.png", image_192:"https://secure.gravatar.com/avatar/e7a98cc29b3b4a35f38226814d60415c.jpg?s=192&d=https%3A%2F%2Fa.slack-edge.com%2F7fa9%2Fimg%2Favatars%2Fava_0026-192.png", avatar_hash:"ge7a98cc29b3", image_32:"https://secure.gravatar.com/avatar/e7a98cc29b3b4a35f38226814d60415c.jpg?s=32&d=https%3A%2F%2Fa.slack-edge.com%2F0180%2Fimg%2Favatars%2Fava_0026-32.png", first_name:"Takaaki", last_name:"Naganoya", email:"maro@piyocast.com", image_512:"https://secure.gravatar.com/avatar/e7a98cc29b3b4a35f38226814d60415c.jpg?s=512&d=https%3A%2F%2Fa.slack-edge.com%2F7fa9%2Fimg%2Favatars%2Fava_0026-512.png"}, is_owner:1, is_restricted:0, is_primary_owner:1, tz_label:"Japan Standard Time", is_ultra_restricted:0, tz:"Asia/Tokyo", has_2fa:0, presence:"active", color:"9f69e7", deleted:0, tz_offset:32400, is_bot:0, team_id:"T11N8QR19", is_admin:1, name:"maro", status:missing value}, {id:"USLACKBOT", real_name:"slackbot", profile:{image_24:"https://a.slack-edge.com/0180/img/slackbot_24.png", real_name:"slackbot", image_48:"https://a.slack-edge.com/2fac/plugins/slackbot/assets/service_48.png", image_72:"https://a.slack-edge.com/0180/img/slackbot_72.png", image_192:"https://a.slack-edge.com/66f9/img/slackbot_192.png", real_name_normalized:"slackbot", image_32:"https://a.slack-edge.com/2fac/plugins/slackbot/assets/service_32.png", avatar_hash:"sv1444671949", fields:missing value, first_name:"slackbot", last_name:"", image_512:"https://a.slack-edge.com/7fa9/img/slackbot_512.png", email:missing value}, is_owner:0, is_restricted:0, is_primary_owner:0, tz_label:"Pacific Daylight Time", is_ultra_restricted:0, tz:missing value, color:"757575", deleted:0, tz_offset:-25200, is_bot:0, team_id:"T11N8QR19", is_admin:0, name:"slackbot", status:missing value}}, cache_ts:1461054217, ok:1}

–POST methodのREST APIを呼ぶ
on callRestPOSTAPIAndParseResults(aURL, aRec)
　　
　　load framework
　　
　　set aRes to retURLwithParams(aURL, aRec) of me
　　if aRes = false then return false
　　
　　set aRequest to current application’s NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aRes)
　　aRequest’s setHTTPMethod:"POST"
　　aRequest’s setCachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData)
　　aRequest’s setHTTPShouldHandleCookies:false
　　aRequest’s setTimeoutInterval:60
　　
　　–aRequest’s setValue:(token of aRec) forHTTPHeaderField:"token"
　　–aRequest’s setValue:(channel of aRec) forHTTPHeaderField:"channel"
　　–aRequest’s setValue:"application/json" forHTTPHeaderField:"Content-Type"
　　–aRequest’s setHTTPBody:dataJson
　　
　　–CALL REST API
　　set aRes to current application’s NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　
　　–Parse Results
　　set resList to aRes as list
　　
　　set bRes to contents of (first item of resList)
　　set resStr to current application’s NSString’s alloc()’s initWithData:bRes encoding:(current application’s NSUTF8StringEncoding)
　　log resStr
　　
　　set jsonString to current application’s NSString’s stringWithString:resStr
　　set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　–Get Response Code
　　set dRes to contents of second item of resList
　　set resCode to ASify from (dRes’s statusCode())
　　
　　–Get Response Header
　　set resHeaders to ASify from (dRes’s allHeaderFields())
　　
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
　　
end callRestPOSTAPIAndParseResults

on retAccessToken()
　　return "xxxx-XXXXXXXXXXX-XXXXXXXXXXX-XXXXXXXXXXX-XXxXxxXXXX"
end retAccessToken

on retURLwithParams(aBaseURL, aRec)
　　
　　set aDic to current application’s NSMutableDictionary’s dictionaryWithDictionary:aRec
　　
　　set aKeyList to (aDic’s allKeys()) as list
　　set aValList to (aDic’s allValues()) as list
　　set aLen to length of aKeyList
　　set bLen to length of aValList
　　if aLen is not equal to bLen then return false
　　
　　set qList to {}
　　repeat with i from 1 to aLen
　　　　set aName to contents of item i of aKeyList
　　　　set aVal to contents of item i of aValList
　　　　set the end of qList to (current application’s NSURLQueryItem’s queryItemWithName:aName value:aVal)
　　end repeat
　　
　　set aComp to current application’s NSURLComponents’s alloc()’s initWithString:aBaseURL
　　aComp’s setQueryItems:qList
　　set aURL to (aComp’s |URL|()’s absoluteString()) as text
　　
　　return aURL
end retURLwithParams

★Click Here to Open This Script　