cURL tương đương trong VBA?

Question

Tôi có API cho ứng dụng của mình, cho phép tôi thực hiện yêu cầu cURL cho ứng dụng đó. Tôi cần triển khai thực hiện điều này vào VBA để cơ sở dữ liệu trên máy tính của tôi có thể kích hoạt yêu cầu CURL cho ứng dụng web của tôi.

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

Tôi có thể triển khai điều này trong Access VBA bằng cách nào? Tôi có thể sử dụng WinHttp.WinHttpRequest.5.1 không? Bất kỳ ví dụ nào? Cảm ơn Adam,

Answer 1

Giải quyết ngay bây giờ, hoạt động tốt. Để thuận tiện cho người khác.

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)