xmlhttp POST не работает

Question

Я пытаюсь отправить транзакции на сервер, используя клиент промежуточного программного обеспечения (он называется Cohesion). Ниже мой код (осина):

Dim xmlhttp 'As Object 

Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 

xmlhttp.Open "POST", "http://server_ip/Databox-dr/CohesionConnect.asmx/GetHostReply", False 

'using only http://server_ip/Databox-dr/CohesionConnect.asmx doesn't work, either 

xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
'xmlhttp.setRequestHeader "Content-Length", "128" 

xmlhttp.send "50000000000MSUF" 

Set xmlhttp = Nothing 

документация у меня есть (и это все из него) будет говорить мне это:

HTTP POST Ниже запрос POST образец HTTP и ответ. Показанные заполнители должны быть заменены фактическими значениями.

POST /DATABOX-DR/CohesionConnect.asmx/GetHostReply HTTP/1.1 
Host: server_ip 
Content-Type: application/x-www-form-urlencoded 
Content-Length: length 

sTran=string 



HTTP/1.1 200 OK 
Content-Type: text/xml; charset=utf-8 
Content-Length: length 

<?xml version="1.0" encoding="utf-8"?> 
<string xmlns="http://fidelityifs.com/webservices">string</string> 

(длина и строки нужно заменить реальные значения)

Что я делаю неправильно? Как установить длину строки? Спасибо!

Answer 1

Попробуйте это:

Dim xmlhttp As Object 
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.Open "POST", "http://server_ip/Databox-dr/CohesionConnect.asmx/GetHostReply", False 
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 

tosend = "50000000000MSUF" 
s = "sTran=" & tosend 

xmlhttp.setRequestHeader "Content-Length", Len(s) 

xmlhttp.send s