Конвертировать командную строку CURL в VBA

Question

В CURL я могу использовать эту строку

curl --data 'DataToBeSent' https://example.com/resource.cgi

Я изо всех сил пытаюсь преобразовать такую ​​строку для использования в VBA, и это моя попытка до сих пор

Sub POST_Method_Example()
Dim myMessage As String

myMessage = "DataToBeSent"

With CreateObject("MSXML2.ServerXMLHTTP")
    .Open "POST", "https://example.com/resource.cgi"

    .setRequestHeader "Content-Type", "multipart/form-data; boundary==------------------------d74496d66958873e"
    .send sData(myMessage)
    Debug.Print .ResponseText
End With
End Sub

Но это выдает ошибку в ответе json. Как я могу заставить это работать для VBA?

Я могу заставить его работать на почтальоне, назначив URL, и на вкладке Body я выбрал «form-data» и назначил KEY: text и VALUE: DataToBeSent. Это возвращает успешное ответ.

Answer 1

См. multipart / form-data о том, когда использовать.

Sub POST_Method_Example()

    With CreateObject("MSXML2.ServerXMLHTTP")
        .Open "POST", "https://example.com/resource.cgi"
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send "text=Data to be sent"
        Debug.Print .ResponseText
    End With

End Sub