おんどとり WebStorage API

WEB API仕様は次の通り。

今回はその中から現在値の取得と指定期間・件数によるデータの取得を試した。

#リクエストヘッダ

header = {'Host':'api.webstrage.js:443','Content-Type': 'application/json','X-HTTP-Method-Override':'GET'}

Dim httpReq As New XMLHTTP60   '「Microsoft XML, v6.0」を参照設定
httpReq.Open "POST", "https://api.webstorage.jp/v1/devices/current"
httpReq.setRequestHeader "Host", "api.webstrage.js:443"
httpReq.setRequestHeader "Content-Type", "application/json"
httpReq.setRequestHeader "X-HTTP-Method-Override", "GET"

#リクエストボディ

paylord = {'api-key':api_key,"login-id":login_id,'login-pass':password}

Dim sRequestBody As String
sRequestBody = "{"
sRequestBody = sRequestBody + """api-key"":""" & apikey & """"
sRequestBody = sRequestBody + ",""login-id"":""" & loginid & """"
sRequestBody = sRequestBody + ",""login-pass"":""" & loginpass & """"
sRequestBody = sRequestBody + "}"
    
httpReq.send sRequestBody

#レスポンス
Excel VBAではレスポンスのJSONをそのまま解釈できなため、VBA-JSONを利用した。

#ソース
https://github.com/tosisasa/ondotori