Question

我正在尝试使用MS Excel VBA连接到API。登录所需的参数是授权类型，用户名和密码。

我想出了下面的代码，但是我收到了错误：

{＆＃34;错误＆＃34;：＆＃34; unsupported_grant_type＆＃34;}

任何人都可以告诉我我在做错的地方吗？

Sub test()

Dim objHttp As Object
Dim json As String
Dim user, password As String

user = "user1"
password = "password1"
json = "{""grant_type"":""password"",""username"":""" & user & """,""password"":""" & password & """}"

MsgBox json

Dim result As String

Set objHttp = CreateObject("MSXML2.XMLHTTP")
url = "http://dummywebsite.com"
objHttp.Open "POST", url, False

objHttp.SetRequestHeader "Content-type", "application/json"
objHttp.Send (json)
result = objHttp.ResponseText

MsgBox result

End Sub

代码实际上正在运行，这是由于在使用其他用户帐户进行测试后的用户权限。

Answer 1

尝试：

标题： -内容类型：application / x-www-form-urlencoded -接受字符集：UTF-8 -授权：[您的授权码]

身体：用户名= [用户名]＆密码= [密码]＆grant_type =密码

错误不支持的授权类型

1 个答案: