activex not working (wodHttpDLX)

by tomer, Tuesday, April 16, 2024, 09:57 (13 days ago)

Hi

I have a code that works in vba

Dim httpRequest
Set httpRequest = CreateObject("MSXML2.ServerXMLHTTP.6.0")

httpRequest.SetOption 2, 13056

httpRequest.Open "POST", tokenUri, True

httpRequest.setRequestHeader "AUTHORIZATION:", "BASIC ZjM1MGIyNGIwOWQ2NTRkZDd"

httpRequest.setRequestHeader "Content-Type:", "application/x-www-form-urlencoded"

httpRequest.Send tokenRequestBody

Do While httpRequest.readyState <> 4

DoEvents
httpRequest.waitForResponse (1)
Loop

Debug.Print httpRequest.status
Debug.Print httpRequest.responseText

i want to use activex and i'm not getting the same result

wodHttpDLX1.URL = tokenUri

wodHttpDLX1.Request.Headers.Add "AUTHORIZATION", "BASIC ZjM1MGIyNGIwOWQ2NTRkZDd"
wodHttpDLX1.Request.Headers.Add "Content-Type", "application/x-www-form-urlencoded"

wodHttpDLX1.Post tokenRequestBody

Debug.Print wodHttpDLX1.Response.StatusCode
Debug.Print wodHttpDLX1.Response.Body