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

パクリ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
雑感
古い環境のものはなるべく触らぬが吉。
ディスカッション
コメント一覧
まだ、コメントがありません