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

acs

2022.07.26既読 3152

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

コメント1

前の投稿
次の投稿Driveの1ファイルの上限を 10GBから増やしてもらいたい
リスト

まだ、解決できませんか?
今すぐ実際に使用しているLINE WORKSユーザーに質問してみましょう。