VB.NETからのメッセージ送信について

API 全般

2022.08.31既読 2319

API2.0を利用して、外部EXEからLINEWORKSにメッセージを送るモジュールを開発しています。

アクセストークン取得時に、下記のエラーが出たり、出なかったりする事象が発生しております。

実行している端末それぞれで挙動が異なり、環境に依存しているような気もしますが、

何か対応案があれば教えてください。

　端末A：エラーは発生しない。常に成功する。

　端末B：たまにメッセージ送信が成功し、ほとんどの場合、エラーが発生する。

　　　　　※モジュールを再起動すると成功するが、2回目・3回目以降からエラーとなる。

　端末C：何度実行してもエラーとなる。

---------------------------

System.Net.WebException: リモートサーバーがエラーを返しました: (400) 要求が不適切です

---------------------------

Dim tokenEndpoint As String = "https://auth.worksmobile.com/oauth2/v2.0/token"

Using client As New WebClient()

client.Encoding = Encoding.UTF8

Dim content As New NameValueCollection()

content("assertion") = {tokenString}

content("grant_type") = "urn:ietf:params:oauth:grant-type:jwt-bearer"

content("client_id") = {ClientID}

content("client_secret") = {ClientSecret}

content("scope") = "bot,bot.read"

Dim response As String = Encoding.UTF8.GetString(client.UploadValues(tokenEndpoint, "POST", content))

Dim result As Object = JsonConvert.DeserializeObject(Of Object)(response)

Return CType(result, Newtonsoft.Json.Linq.JObject).Item("access_token").ToString()

End Using

LINE WORKS