いまさらチャットアプリを開発してみようと思った

大変今さらな感じではありますが、Androidでチャットアプリを作ろうと思いました。

取り急ぎ、決意表明だけ。

コラントッテが欲しいぞ

カープの菊池選手が好きなわけです。

好きなので彼の身に付けているものにも興味がわくわけですが、大体プロスポーツ選手の着用しているアクセサリは高価なものという印象があり、手の届かない物かと思っていました。

ところが調べてみると菊池選手のネックレスは手が届きそう。

今度の誕生日にでもプレゼントされたいものです。

コラントッテ TAO ネックレス AURA ARC-ABAPH5 38 プレミアムゴールド L

Colantotte(コラントッテ) TAO ネックレス AURA ブラック LL(51cm)

減薬中断数日経過

減薬を中断（自己判断）してから数日経過。

セルトラリンを75⇒100に戻す。

状態としては安定し始めており、薬の効果を感じる。

頓服として服用していたスルピリドは無くても問題なくなった。

この構成でしばらく様子を見てみようと思う。

現在服用しているのは以下の通り。

セルトラリン：100mg

ロラゼパム：0.5mg

エビリファイ：3mg

マイスリー：10mg

減薬中断

減薬の結果、毎日の生活に支障（感覚過敏、希死念慮に加えネガティブな思考）が出てきたので医師に相談なく減薬を中断。

次の診察の際に減薬を中断したことを医師に伝えようと思う。

治療以外の変化が多い時期には減薬すべきではないと思った。

薬の量を元に戻して二日たつが、今の時点では戻した効果は表れているのか分からない。

というのも、減薬中に恐らく症状の悪化があったため、元の状態（減薬を決定する時点の状態）まで症状が落ち着くには時間が必要なのだと思う。

取りあえず今回は家族に対して攻撃的な行動に出る前だったことが唯一の救いかと思っている。

鬱との戦いは長いけれど、くじけずに戦おうと思う。

減薬5か月目突入 きつい

鬱病の減薬を始めて5か月目に突入しました。

このタイミングで周囲多くの変化が発生し、非常にきつい状態となっています。

・職場の席替え

・部署異動

・周囲の昇進（僕は昇進しませんでした）

・過去の仕事のミスが発覚

同時に上記の出来事が発生して、頭の中が混乱しているようです。

症状として、感覚過敏（音）と希死念慮が出てきているので、注意して日々を過ごそうと思います。

VBAでmastodonに繋ぐ

自分用メモ

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

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 ベーシック [模擬問題プログラム付き]

mastodonで遊ぶ

遊びの準備

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

Mastodon API の叩き方 · GitHub

さて、何しようか。