VBA中的等效cURL？

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)