带有Vb.net的Square应用编程接口

Question

Dim myUri = New Uri("https://squareup.com/v2/locations")

Dim RQ As HttpWebRequest = TryCast(WebRequest.Create(myUri), HttpWebRequest)

RQ.PreAuthenticate = True    
RQ.Headers.Add("Authorization", "Bearer" & Token) '''Token is a Shared string assigned to my current Access Token
RQ.Method = "GET"
RQ.Accept = "application/json"
RQ.ContentType = "application/json"


Using response As HttpWebResponse = TryCast(RQ.GetResponse(), HttpWebResponse) '''''"The remote server returned an error: (404) Not Found."

Square-Connect API非常新，并且没有vb.net示例，所以这是我所能得到的。我不能通过最后一行。无论我怎么尝试，我总是得到一个404错误。谁知道为什么。

如果我在终端中使用这个命令(用我的访问令牌替换Token)，那么我会在vb.net中得到我想要的结果。

curl -H“授权:持有者令牌”https://connect.squareup.com/v2/locations

Answer 1

square的人很快就发现了我的问题，所以下面是可用的代码：

 Dim myUri = New Uri("https://connect.squareup.com/v2/locations")
    Dim RQ As HttpWebRequest = TryCast(WebRequest.Create(myUri), HttpWebRequest)

    RQ.PreAuthenticate = True
    RQ.Headers.Add("Authorization", "Bearer " + Token) 'Token is a Shared string assigned to my current Access Token
    RQ.Method = "GET"
    RQ.Accept = "application/json"
    RQ.ContentType = "application/json"


    Using response As HttpWebResponse = TryCast(RQ.GetResponse(), HttpWebResponse)