Menu

Skip to content
AppleScriptの穴
  • Home
  • Products
  • Books
  • Docs
  • Events
  • Forum
  • About This Blog
  • License
  • 仕事依頼

AppleScriptの穴

Useful & Practical AppleScript archive. Click '★Click Here to Open This Script' Link to download each AppleScript

タグ: 10.13savvy

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　
Posted in Sound | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Sound | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Sound | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Sound | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Sound | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Sound | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Sound | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in JSON Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy Slack | Leave a comment

POST method REST API__Slack_users.info

Posted on 2月 16, 2018 by Takaaki Naganoya

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

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

AppleScript名：POST method REST API__Slack_users.info.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.info"
set aRec to {token:accessToken, user:"U11PVKT6D"}

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
–>　　 {​​​​​user:{​​​​​​​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, ​​​​​​​color:"9f69e7", ​​​​​​​deleted:0, ​​​​​​​tz_offset:32400, ​​​​​​​is_bot:0, ​​​​​​​team_id:"T11N8QR19", ​​​​​​​is_admin:1, ​​​​​​​name:"maro", ​​​​​​​status:missing value​​​​​}, ​​​​​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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy Slack | Leave a comment

POST method REST API__Slack_users.getPresence

Posted on 2月 16, 2018 by Takaaki Naganoya

SlackのREST APIを呼び出してユーザーの所在情報を取得する（users.getPresence）AppleScriptです。

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

AppleScript名：POST method REST API__Slack_users.getPresence.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.getPresence"
set aRec to {token:accessToken, user:"U11PVKT6D"}

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
–>　　{​​​​​presence:"away", ​​​​​auto_away:false, ​​​​​connection_count:0, ​​​​​online:false, ​​​​​ok:true, ​​​​​manual_away:false​​​}

–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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

POST method REST API__Slack_usergroups.list

Posted on 2月 16, 2018 by Takaaki Naganoya

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

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

AppleScript名：POST method REST API__Slack_usergroups.list
— 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/usergroups.list"
set aRec to {token:accessToken, include_disabled:"1", include_count:"1", include_users:"1"}

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
–>　　{​​​​​usergroups:{}, ​​​​​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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

POST method REST API__Slack_groups.list

Posted on 2月 16, 2018 by Takaaki Naganoya

SlackのREST APIを呼び出してユーザーがアクセス可能なプライベートなチャンネル一覧を取得する（groups.list）AppleScriptです。

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

AppleScript名：POST method REST API__Slack_groups.list
— 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/groups.info"
set aRec to {token:accessToken, channel:"C11NJCBU3"}

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
–>　　 {​​​​​error:"channel_not_found", ​​​​​ok:0​​​}

–本Scriptはまだチェックが必要と思われる

–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　
Posted in Network REST API | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

Post navigation

  • Older posts
  • Newer posts

電子書籍（PDF）をオンラインストアで販売中！

Google Search

Popular posts

  • 開発機としてM2 Mac miniが来たのでガチレビュー
  • macOS 13.6.5 AS系のバグ、一切直らず
  • CotEditorで2つの書類の行単位での差分検出
  • Apple純正マウス、キーボードのバッテリー残量取得
  • macOS 15, Sequoia
  • ディスプレイをスリープ状態にして処理続行
  • 初心者がつまづきやすい「log」コマンド
  • Adobe AcrobatをAppleScriptから操作してPDF圧縮
  • 与えられた文字列の1D Listのすべての順列組み合わせパターン文字列を返す v3（ベンチマーク用）
  • 指定のWordファイルをPDFに書き出す
  • メキシカンハットの描画
  • macOS 13 TTS環境の変化について
  • 2023年に書いた価値あるAppleScript
  • Pixelmator Pro v3.6.4でAppleScriptからの操作時の挙動に違和感が
  • AdobeがInDesign v19.4からPOSIX pathを採用
  • Pages本執筆中に、2つの書類モード切り替えに気がついた
  • 可変次元のベクトルに対応したコサイン類似度計算
  • Safariで「プロファイル」機能を使うとAppleScriptの処理に影響
  • Cocoa Scripting Course 続刊計画
  • macOS 13.6.2アップデート Cocoa-AppleScript Applet修正はなし

Tags

10.11savvy (1101) 10.12savvy (1242) 10.13savvy (1391) 10.14savvy (586) 10.15savvy (437) 11.0savvy (281) 12.0savvy (201) 13.0savvy (139) 14.0savvy (87) 15.0savvy (63) CotEditor (63) Finder (51) iTunes (19) Keynote (112) NSAlert (60) NSArray (51) NSBitmapImageRep (20) NSBundle (20) NSButton (34) NSColor (51) NSDictionary (27) NSFileManager (23) NSFont (19) NSImage (41) NSJSONSerialization (21) NSMutableArray (62) NSMutableDictionary (21) NSPredicate (36) NSRunningApplication (56) NSScreen (30) NSScrollView (22) NSString (117) NSURL (97) NSURLRequest (23) NSUTF8StringEncoding (30) NSView (33) NSWorkspace (20) Numbers (67) Pages (51) Safari (44) Script Editor (26) WKUserContentController (21) WKUserScript (20) WKWebView (23) WKWebViewConfiguration (22)

カテゴリー

  • 2D Bin Packing
  • 3D
  • AirDrop
  • AirPlay
  • Animation
  • AppleScript Application on Xcode
  • Beginner
  • Benchmark
  • beta
  • Bluetooth
  • Books
  • boolean
  • bounds
  • Bug
  • Calendar
  • call by reference
  • Clipboard
  • Code Sign
  • Color
  • Custom Class
  • dialog
  • diff
  • drive
  • Droplet
  • exif
  • file
  • File path
  • filter
  • folder
  • Font
  • Font
  • GAME
  • geolocation
  • GUI
  • GUI Scripting
  • Hex
  • History
  • How To
  • iCloud
  • Icon
  • Image
  • Input Method
  • Internet
  • iOS App
  • JavaScript
  • JSON
  • JXA
  • Keychain
  • Keychain
  • Language
  • Library
  • list
  • Locale
  • Localize
  • Machine Learning
  • Map
  • Markdown
  • Menu
  • Metadata
  • MIDI
  • MIME
  • Natural Language Processing
  • Network
  • news
  • Noification
  • Notarization
  • Number
  • Object control
  • OCR
  • OSA
  • parallel processing
  • PDF
  • Peripheral
  • PRODUCTS
  • QR Code
  • Raw AppleEvent Code
  • Record
  • rectangle
  • recursive call
  • regexp
  • Release
  • Remote Control
  • Require Control-Command-R to run
  • REST API
  • Review
  • RTF
  • Sandbox
  • Screen Saver
  • Script Libraries
  • sdef
  • search
  • Security
  • selection
  • shell script
  • Shortcuts Workflow
  • Sort
  • Sound
  • Spellchecker
  • Spotlight
  • SVG
  • System
  • Tag
  • Telephony
  • Text
  • Text to Speech
  • timezone
  • Tools
  • Update
  • URL
  • UTI
  • Web Contents Control
  • WiFi
  • XML
  • XML-RPC
  • イベント（Event）
  • 未分類

アーカイブ

  • 2024年11月
  • 2024年10月
  • 2024年9月
  • 2024年8月
  • 2024年7月
  • 2024年6月
  • 2024年5月
  • 2024年4月
  • 2024年3月
  • 2024年2月
  • 2024年1月
  • 2023年12月
  • 2023年11月
  • 2023年10月
  • 2023年9月
  • 2023年8月
  • 2023年7月
  • 2023年6月
  • 2023年5月
  • 2023年4月
  • 2023年3月
  • 2023年2月
  • 2023年1月
  • 2022年12月
  • 2022年11月
  • 2022年10月
  • 2022年9月
  • 2022年8月
  • 2022年7月
  • 2022年6月
  • 2022年5月
  • 2022年4月
  • 2022年3月
  • 2022年2月
  • 2022年1月
  • 2021年12月
  • 2021年11月
  • 2021年10月
  • 2021年9月
  • 2021年8月
  • 2021年7月
  • 2021年6月
  • 2021年5月
  • 2021年4月
  • 2021年3月
  • 2021年2月
  • 2021年1月
  • 2020年12月
  • 2020年11月
  • 2020年10月
  • 2020年9月
  • 2020年8月
  • 2020年7月
  • 2020年6月
  • 2020年5月
  • 2020年4月
  • 2020年3月
  • 2020年2月
  • 2020年1月
  • 2019年12月
  • 2019年11月
  • 2019年10月
  • 2019年9月
  • 2019年8月
  • 2019年7月
  • 2019年6月
  • 2019年5月
  • 2019年4月
  • 2019年3月
  • 2019年2月
  • 2019年1月
  • 2018年12月
  • 2018年11月
  • 2018年10月
  • 2018年9月
  • 2018年8月
  • 2018年7月
  • 2018年6月
  • 2018年5月
  • 2018年4月
  • 2018年3月
  • 2018年2月

https://piyomarusoft.booth.pm/items/301502

メタ情報

  • ログイン
  • 投稿フィード
  • コメントフィード
  • WordPress.org

Forum Posts

  • 人気のトピック
  • 返信がないトピック

メタ情報

  • ログイン
  • 投稿フィード
  • コメントフィード
  • WordPress.org
Proudly powered by WordPress
Theme: Flint by Star Verte LLC