スレッド一覧 Page11 - DOBON.NETプログラミング道掲示板

環境/言語:[Windows10、VB.NET2022]　
分類:[.NET]　

お世話になります。

ヤフーのアカウントで、
開発用のテストアカウントを設け、
ヤフーのWebAPIを使用するのに必要な、
「クライアントID」を割り振ってもらっています。

また、認証を求めるWebAPIを使用するのに必要な、
アクセストークンという認証文字列を受け取るためのURLである、
「コールバックURL」を指定しています。

ヤフーのアクセストークンを取得するためのアクセス先が、
「Authorizationエンドポイント」と言い、接続先は、
URL： https://auth.login.yahoo.co.jp/yconnect/v2/authorization
サポートするHTTPメソッド： GET/POST
です。

（参照）
Authorizationエンドポイント
https://developer.yahoo.co.jp/yconnect/v2/authorization_code/authorization.html

プログラムにおいては、
Form1上のButton1をクリックすると、
このURLに接続し、自動ログインがなされ、
アクセストークン情報を含むJSONデータが返り、
RichTextBox1に表示するようにしたいです。

そこで、次のようなコードを記述しました。

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

Imports System.IO
Imports System.Text

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs)
Handles Button1.Click

Dim TargetURL As String

TargetURL="https://auth.login.yahoo.co.jp/yconnect/v2/authorization?client_id=<クライアントID>&response_type=token(or code)&scope=openid&redirect_uri=<コールバックURL>&output=json"

Using client As New System.Net.Http.HttpClient()
Using response1 As System.Net.Http.HttpResponseMessage = client.GetAsync(TargetURL).Result

Dim responseBody1 As String = response1.Content.ReadAsStringAsync().Result
RichTextBox1.Text = responseBody1.ToString

End Using
End Using

End Sub

End Class

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

これを実行しますと、
RichTextBox1には、JSONデータではなく、
ヤフーのログイン画面のHTMLが返ります。
自動ログインができていません。

ここで、TargetURLも文字列を、ブラウザのURL欄に手動で入れて実行すると、
ヤフーのログイン画面が表示されます。
ヤフーのログインでは、パスワードが固定ではなく、
ユーザーIDを入力したら、ワンタムパスワードを発行し、
メールまたはスマホのSMSに届いたパスワードを画面に手入力して、
ログインします。
そうすると、指定していた「コールバックURL」のサイトがリダイレクト表示され、URL欄に、「#access_token=」とアクセストークンが表示されます。

この一連の手続きを手動ではなく自動で行いたいので、
次のようなコードを検討しました。

「TargetURL＝」の後ろの部分です。

ワンタイムパスワード認証は、Basic認証ではないのかもしれませんが、
まずは書いてみました。

（参照）
https://teratail.com/questions/373083
---------------------------------------------

'Basic認証するユーザ名とパスワード
Dim userName = "<ユーザーID>"
Dim userPassword = ""

'リクエストの生成
Dim request = New HttpRequestMessage
request.Method = HttpMethod.Post
request.RequestUri = New Uri(TargetURL)

'Basic認証ヘッダを付与する
request.Headers.Authorization
=
New System.Net.Http.Headers.AuthenticationHeaderValue
("Basic", Convert.ToBase64String(Encoding.ASCII.GetBytes
(String.Format("{0}:{1}", userName, userPassword))))

'リクエストの送信
Dim httpClient = New HttpClient()
Dim response2 = httpClient.SendAsync(request)
RichTextBox2.Text = response2.ToString

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

これを実行しますと、
RichTextBox2には、
次のような文字列が返ります。

System.Runtime.CompilerServices.AsyncTaskMethodBuilder`1+AsyncStateMachineBox`1[System.Net.Http.HttpResponseMessage,System.Net.Http.HttpClient+<<SendAsync>g__Core|83_0>d]

上記のコードでは、
userPassword = ""
のため、当然ログインができないのだと思いますが、
ワンタイムパスワードをここでどのように記述すればよいのか、
わかりませんでした。

また、PostAsyncを使用する気もすればよい気もするのですが、
ここでの使い方が分かりませんでした。

（参照）
HttpClient.PostAsync メソッド
https://learn.microsoft.com/ja-jp/dotnet/api/system.net.http.httpclient.postasync?view=net-8.0

WebRequestでPOSTする方法はネットに例があったのですが、
廃止されているとのことでした。

（参照）
認証が必要なページをダウンロードする
http://dobon.net/vb/dotnet/internet/usecredentials.html
WebRequest、WebClient、ServicePoint は廃止されている
https://learn.microsoft.com/ja-jp/dotnet/core/compatibility/networking/6.0/webrequest-deprecated

以上、長くなってしまいましたが、
ワンタイムパスワードを使用するサイトに自動ログインしてアクセストークンを含むJSONデータを取得するには、どのようにしたらよいか。

可能な範囲でご指導いただきたく、どうぞよろしくお願い申し上げます。