読者です 読者をやめる 読者になる 読者になる

妻一人、子供二人、猫六匹

僕がやったこと。思ったこと。日々の思い出。

VBAでmastodonに繋ぐ

自分用メモ

VBAmastodonに繋ぐ事の需要は全くないと思うけど、途中まで実装したのでメモ。

Public Const MASTODON_HOST As String = "…"
Public Const USER_NAME As String = "…"
Public Const PASSWD As String = "…"
Public Const SCOPE As String = "read%20write%20follow"

Public Sub read()
' ** 変数定義 **
Dim objSC As Object '参照設定でMicrosoft Script Control 1.0をオンにしておく
Dim objXML As Object '参照設定でMicrosoft XML 3.0をオンにしておく

Dim strFunc As String
Dim strJson As String
Dim strURL As String
Dim objJson As Object

Dim strClientId As String
Dim strClientSecret As String

Set objSC = CreateObject("ScriptControl")
Set objXML = CreateObject("Msxml2.XMLHTTP")


objSC.Language = "JScript"
strFunc = "function jsonParse(str) { return eval('(' + str + ')'); };"
objSC.AddCode strFunc

'接続先
strURL = "https://" & MASTODON_HOST & "/api/v1/apps"

objXML.Open "POST", strURL, False

Call objXML.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")

'リクエスト送信
objXML.send "redirect_uris=urn:ietf:wg:oauth:2.0:oob&client_name=" & USER_NAME & "&scopes=read write follow"

'レスポンスセット
strJson = objXML.responseText

Debug.Print strJson
Set objJson = objSC.CodeObject.jsonParse(strJson)
strClientId = objJson.client_id
strClientSecret = objJson.client_secret

Debug.Print strClientId
Debug.Print strClientSecret

strURL = "https://" & MASTODON_HOST & "/oauth/token"
objXML.Open "POST", strURL, False
' Call objXML.setRequestHeader("Content-Type", "application/json")
Call objXML.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
objXML.send "client_id=" & strClientId & "&client_secret=" & strClientSecret & "&grant_type=password&username=" & USER_NAME & "&password=" & PASSWD & "&scope=" & SCOPE

'レスポンスセット
strJson = objXML.responseText
Debug.Print strJson


End Sub


VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き]

VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き]

mastodonで遊ぶ

遊びの準備

 

↓のような記事があったのでメモ

Mastodon API の叩き方 · GitHub

 

さて、何しようか。

mastodon開始

巷で話題のmastodonを始めてみました。

Twitterとの違いが現時点ではまだわかりませんが、楽しんでみようと思います。

 

クライアントアプリでも作ってみようかな。(VBAで)

 

 

カープ10連勝!強い!

昨年リーグ優勝を果たした広島東洋カープ

今年も開幕以降10連勝(4月に入って無敗)という強さを見せています。

 

広島ファンの僕としてはとても嬉しいことです。

広島先発陣、打撃陣、ファンともに歯車がかみ合っている感じですね。

 

カープの野球はまさに全力野球といった感じで、見ていて清々しいです。

走れるところで走り、得点を貪欲に喰らいにいく。

このプレイスタイルを続けてほしいものです。

 

 

このまま今年は日本一に輝いてほしいものです。

4/13 欲しいもの

欲しいものメモ

 

 <WW2>

旧日本軍の海戦兵器を作りたいぞ!

タミヤ 1/48 傑作機シリーズ No.54 日本海軍 愛知 M6A1 晴嵐 プラモデル 61054

タミヤ 1/48 傑作機シリーズ No.54 日本海軍 愛知 M6A1 晴嵐 プラモデル 61054

 
タミヤ 1/350 艦船シリーズ No.19 日本海軍 特型潜水艦 伊-400 プラモデル 78019

タミヤ 1/350 艦船シリーズ No.19 日本海軍 特型潜水艦 伊-400 プラモデル 78019

 
ハセガワ 1/48 日本海軍 三菱 F1M2 零式水上観測機 11型 プラモデル JT96

ハセガワ 1/48 日本海軍 三菱 F1M2 零式水上観測機 11型 プラモデル JT96

 

 

ガンプラ

安いFGシリーズを複数買って、ジオラマを作りたいぞ! 

FG 1/144 MS-06F ザクII F型 (機動戦士ガンダム)

FG 1/144 MS-06F ザクII F型 (機動戦士ガンダム)

 
FG 1/144 MS-06S シャア・アズナブル専用 ザクII (機動戦士ガンダム)

FG 1/144 MS-06S シャア・アズナブル専用 ザクII (機動戦士ガンダム)

 
FG 1/144 RX-78-2 ガンダム プラモデル

FG 1/144 RX-78-2 ガンダム プラモデル

 

 

 

スタートレック

名機 1701-Aを作りたいぞ!

(JJプライズと無印は作成済みなので) 

U.S.S.エンタープライズ NCC-1701-A (1/350)

U.S.S.エンタープライズ NCC-1701-A (1/350)

 

 

 

ガルマ専用ザクⅡ制作中

ガルマ専用ザクⅡを制作しています。

メタリックなワインレッドで塗装してみています。

 

後ろにチラっと見えるのはFGザクⅡを黒で塗装したものです。

 

https://www.instagram.com/p/BSrJlfIlr34/

 

 

 

 

HGUC 1/144 MS-06FS ガルマ・ザビ専用 ザクII FS型 (MSV)

HGUC 1/144 MS-06FS ガルマ・ザビ専用 ザクII FS型 (MSV)

 

 

 

FG 1/144 MS-06S シャア・アズナブル専用 ザクII (機動戦士ガンダム)

FG 1/144 MS-06S シャア・アズナブル専用 ザクII (機動戦士ガンダム)

 

 

新社会人へ

新社会人のみなさんに言いたいことがあります。

 

仕事は「スピードこそ大事」です。

 

「人に聞くこと」なのか、「自分で調べること」なのか、「考えること」なのか、その切り分けを素早くできる人は、行動が早いものです。

 

自分がとるべき行動を素早く判断して実行に移す。

考えを草案の時点で共有する。

適時の報告を行う。

 

それらを十分に行うためには多くをキャッチアップすることが不可欠です。

全てが勉強だと思い、全力で取り組んでください。と思います。