LINE Notify API の代わりの LINE Messaging API　WSH

2024-11-23

パクリ31発目！！

パクリ元

内容

Line Notify から終わっちゃうよ？いいの？困っちゃうよ？て来てたので追い詰められて。

公式アカウント作成からMessagingAPI設定、グループID取得まで

パクリ元1つ目のページそのまま。

スクリプト作成

パクリ元1つ目では Arduino や GAS でのソースだが、私の場合はPCローカル環境、しかも何もプログラム開発/実行環境を入れない状態での昔からの対応なので、、なんとWSH(VBScript)！いねぇよ今どきそんなやつぁ！！bat ファイルの実行時にメール（テキストファイル）を引数に喰わせる感じで。

to_line_messagingAPI.bat
@echo off
cscript %~dp0/to_line_messagingAPI.vbs %1
to_line_messagingAPI.vbs
Dim text
Dim FileName: FileName = WScript.Arguments( 0 )
Dim Msg: Set Msg = CreateObject( "CDO.Message" )
Dim Src: Set Src = CreateObject( "ADODB.Stream" )

Src.Open
Src.LoadFromFile FileName
Msg.DataSource.OpenObject Src, "_Stream"
text = Msg.Subject
text = text & "\n"
text = text & replace(replace(replace(Msg.TextBody, Chr(13) & Chr(10), "\n"), Chr(13), "\n"), Chr(10), "\n")
Src.Close
'--------------------------------------------------------------------------
Dim http: Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim url: url = "https://api.line.me/v2/bot/message/push"
Dim groupId: groupId = <LINE_GROUP_ID>
Dim jsonString: jsonString = "{""to"": """ & groupId & """,""messages"":[{""type"": ""text"",""text"":""" & text & """}]}"
Dim token: token = <CHANNEL_ACCESS_TOKEN>

With http
    .Open "POST", url, False
    .setRequestHeader "Content-Type", "application/json"
    .SetRequestHeader "Authorization", "Bearer " & token
    .Send jsonString
End With

雑感

古い環境のものはなるべく触らぬが吉。

LINE

Posted by ak