[戻]-35422/親

---

ワンタイムパスワードのサイトに自動ログインしてアクセストークンを得る

---

けい

最初--ｵました。

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

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が返� -->続き

05/12 19:05
[編|消]

---

ﾚｽを書く
1番最初のﾚｽ

---

Child K-Tai