ms-access - VBA中的等效卷曲？

Question

我的应用程序有一个 API，它允许我向它发出 cURL 请求。我需要将它实现到 VBA 中，以便我的桌面数据库可以向我的 Web 应用程序发出 CURL 请求。

curl -i --user admin@admin.com:password -X PUT -d "test=testing" https://mywebsite.com/api

如何在 Access VBA 中实现这一点？我可以使用 WinHttp.WinHttpRequest.5.1 吗？有什么例子吗？谢谢亚当，

Answer 1

现在解决了，伙计们，效果很好。为了其他人的方便。

TargetURL = "https://www.mysite.co.uk/app/api/v1/test"
Set HTTPReq = CreateObject("WinHttp.WinHttpRequest.5.1")
HTTPReq.Option(4) = 13056 '
HTTPReq.Open "PUT", TargetURL, False
HTTPReq.SetCredentials "user", "password", 0
HTTPReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
HTTPReq.send ("test[status]=" & Forms!curl!Text0.Value & "&test2[status]=" & Text2.Value)
MsgBox (HTTPReq.responseText)