向Microsoft圖形API發布請求

我正在嘗試使用 vba 代碼請求訪問令牌。將我在 VBA 中給出的所有引數放入郵遞員時，我得到一個訪問令牌沒問題，但是在 VBA 代碼中使用它時，它給出了錯誤

“請求正文必須包含以下引數：'grant_type'”

    Dim objRequestGetToken As Object, JSONGetToken As Object
    Dim strUrlGetToken As String, strClientID As String, strClientSecret As String, strResource As String, strBody As String
    Dim blnAsyncGetToken As Boolean

    strClientID = "XXX"
    strClientSecret = "XXX"
    strRecourse = "00000003-0000-0ff1-ce00-000000000000/XXX.sharepoint.com@XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX"
    
    strBody = "{""grant_type"":""client_credentials"",""client_id"":""" & strClientID & """,""client_secret"":""" & strClientSecret & """,""resource"":""" & strRecourse & """}"

    Set objRequestGetToken = CreateObject("MSXML2.XMLHTTP.6.0")
    strUrlGetToken = "https://accounts.accesscontrol.windows.net/XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX/tokens/OAuth/2/"
    blnAsyncGetToken = False
    Debug.Print strBody

    With objRequestGetToken
        .Open "POST", strUrlGetToken, blnAsyncGetToken
        .SetRequestHeader "Content-Type", "application/json;odata=verbose"
        .SetRequestHeader "Accept", "application/json;odata=verbose"
        .send strBody
        'spin wheels whilst waiting for response
        While objRequestGetToken.readyState <> 4
            DoEvents
        Wend
        Set JSONGetData = JsonConverter.ParseJson(objRequestGetToken.ResponseText)
    End With

    Debug.Print objRequestGetToken.ResponseText

我知道這可能是VBA 發布方法請求正文（“MSXML2.XMLHTTP”）的重復請求：決議 JSON 時出錯：^ 期待 '{' 或 '['但我不知道為什么我的正文沒有被正確發送前面提到的帖子似乎沒有幫助。

郵遞員要求：

任何形式的幫助將不勝感激！

編輯：這是最終使其作業的代碼:)

    Dim objRequestGetToken As Object, JSONGetToken As Object
    Dim strUrlGetToken As String, strClientID As String, strClientSecret As String, strResource As String, strBody As String
    Dim blnAsyncGetToken As Boolean

    strClientID = "XXX"
    strClientSecret = "XXX"
    strRecourse = "00000003-0000-0ff1-ce00-000000000000/XXX.sharepoint.com@XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX"
    
    strBody = "{""grant_type"":""client_credentials"",""client_id"":""" & strClientID & """,""client_secret"":""" & strClientSecret & """,""resource"":""" & strRecourse & """}"

    Set objRequestGetToken = CreateObject("MSXML2.XMLHTTP.6.0")
    strUrlGetToken = "https://accounts.accesscontrol.windows.net/XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX/tokens/OAuth/2/"
    blnAsyncGetToken = False
    Debug.Print strBody

    With objRequestGetToken
        .Open "POST", strUrlGetToken, blnAsyncGetToken
        .SetRequestHeader "application", "x-www-form-urlencoded"
        .SetRequestHeader "Accept", "application/json;odata=verbose"
        .send strBody
        'spin wheels whilst waiting for response
        While objRequestGetToken.readyState <> 4
            DoEvents
        Wend
        Set JSONGetData = JsonConverter.ParseJson(objRequestGetToken.ResponseText)
    End With

    Debug.Print objRequestGetToken.ResponseText

uj5u.com熱心網友回復：

strBody = "grant_type=client_credentials&client_id=" & strClientID & "&client_secret=" & strClientSecret & "&resource=" & strRecourse

并將標題更改為 x-www-form-urlencoded

With objRequestGetToken
    .Open "POST", strUrlGetToken, blnAsyncGetToken
    .SetRequestHeader "application", "x-www-form-urlencoded"
    .SetRequestHeader "Accept", "application/json;odata=verbose"
    .send strBody
    'spin wheels whilst waiting for response
    While objRequestGetToken.readyState <> 4
        DoEvents
    Wend
    Set JSONGetData = JsonConverter.ParseJson(objRequestGetToken.ResponseText)
End With

應該可以解決問題。

標籤：擅长 vba 休息 microsoft-graph-api

上一篇：GKE-混合Kubernetes集群

下一篇：JiraRESTAPI-從資源中獲取所有用戶資料