Perform a curl command (HTTP request to a website)

[bartvanleeuwen55]

Hi


I have a simple curl-command to post data to a Wordpress website.
The website respons OKE when the command is executed using the Postman-application.

But no way I can get it running in Visual Basic.

The curl command is:
curl --user "useradmin:userspassword"\
-X POST \
-H "Content-Type: application/json" \
-d '{"username":"jane","password":"secret","email":"j ane@example.com","first_name":"jan01","last_name": "jansen01"}' \
http://www.lrc100test.nl/wp-json/wp/v2/users

[Edgar]

Try this:

Sub SendHttpRequest()
    Dim url As String
    Dim httpRequest As Object
    
    url = "http://www.lrc100test.nl/wp-json/wp/v2/users"
    
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    
    With httpRequest
        .Open "POST", url, False
        .SetRequestHeader "Authorization", "Basic " & Base64Encode("useradmin:userspassword")
        .SetRequestHeader "Content-Type", "application/json"
        .send "{""username"":""jane"",""password"":""secret"",""email"":""jane@example.com"",""first_name"":""jan01"",""last_name"":""jansen01""}"
        While .ReadyState <> 4
            DoEvents
        Wend
        MsgBox .responseText
    End With
    
    Set httpRequest = Nothing
End Sub

I leave the Base64Encode function on your own. When you use --user you need to encode the string "useradmin:userspassword"

Postman must have it built in, but you have to craft your own base64encode function.

[RoyM]

My problem is similar. I am trying to convert a cURL commands to VBA. This is the first GET that initiates retrieving up to 200 records in JSON format.

cURL.exe --request GET --Url 'mywebaddress' --user 'myemailaddress.com:mytoken' --header 'Accept: application/json'

The following returns a status 403 Unauthorized. I haven't been able to figure out how to get it to work.

Dim objHTTP As Object
Dim sUrl As String
Dim sStatus as String
sUrl = "mywebaddress"
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
With objHTTP
	.Open "GET", sUrl, False
	.SetCredentials "myemailaddress", "mytoken", 0
	.setRequestHeader "Accept", "application/json"
	.send
End With
sStatus = objHTTP.status

Then a GET is executed in loop to retrieve all the rest of the data, 200 records at a time. The only difference is adding a couple options to the web address.


Lastly, I execute the DELETE cURL against each user to uncheck them from being active users.

cURL.exe --request DELETE --url 'myotherwebaddress' --user 'myemailaddress:mytoken' --header 'Accept: application/json'

I've spent many hours googling and trying to find the solution. Hopefully someone can help me. Thanks