VBA代码发送授权不起作用的HTTP GET请求

Question

我一直在访问一个网站并输入3个参数和一个授权来访问数据。处理后，数据显示在网站的“响应窗口”中，我手动选择全部并将其复制到文本文件中。授权密钥适用于一天，我只需要在每次提出请求时更新3个参数。

我必须重复这个过程大约50次。

我在1年前尝试过使用此网站上某人的示例代码，我没有错误，似乎没有连接。

我很高兴尝试通过手动输入授权密钥代码来实现它。这需要大部分编码。

Sub Test()
    Dim sUrl As String, sAuth As String

    sUrl = "https://cl.nnn.nnnn.com/api/tracking/game/play?gameId=2017121601&gamekey=57444&playId=51"
    sAuth = "NGS AKIAIX2XXXXXXXXXPOTKDQ:XXXXXXXXXXXkfmT7enl6I="

    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", sUrl, False
        .SetRequestHeader "Authorization", "Basic " & sAuth
        .Send
        Debug.Print .ResponseText
        Debug.Print .GetAllResponseHeaders
    End With
End Sub