使用MSXML2.ServerXMLHTTP代替XMLHTTP处理VB5应用程序的POST请求以处理HTTPS

我一直在使用XMLHTTP向WCF（在windows服务中自托管）端点发出HTTP POST请求（来自VB5应用程序），并使用下一个代码，一切都正常工作

Dim xmlhttp As MSXML2.XMLHTTP30
Dim blnSuccess As Boolean
Dim resp, strTit, strRes As String
Dim intPos1, intPos2, intPos3 As Integer
Dim mType As VbMsgBoxStyle

Set xmlhttp = New MSXML2.XMLHTTP30
xmlhttp.Open "POST", strURL, False
xmlhttp.setRequestHeader "Man", "POST " & strURL & " HTTP/1.1"
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.setRequestHeader "SOAPAction", strSOAPAction
Call xmlhttp.send(strSoap)

但是，由于我被要求从HTTP更改为HTTPS，我必须通过将证书绑定到端口来将WCF更改为add和SSL证书，并且在处理来自postman的请求时一切正常，但问题是，当我尝试在我的VB应用程序上测试它时，它不起作用，并提示我此错误运行时错误-214669728（800c0008）指定资源的下载失败。因此，在进行一些研究时，我将代码更改为使用SeverXMLHTTP而不是XMLHTTP和setOption来绕过证书错误，如下面的代码所示

Dim xmlhttp As MSXML2.ServerXMLHTTP30
Dim blnSuccess As Boolean
Dim resp, strTit, strRes As String
Dim intPos1, intPos2, intPos3 As Integer
Dim mType As VbMsgBoxStyle

Set xmlhttp = New MSXML2.ServerXMLHTTP30
xmlhttp.Open "POST", strURL, False
xmlhttp.setRequestHeader "Man", "POST " & strURL & " HTTP/1.1"
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.setRequestHeader "SOAPAction", strSOAPAction
xmlhttp.setOption 2, 13056
blnSuccess = False

Call xmlhttp.send(strSoap)

问题是，正如名字所说，SeverXMLHTTP必须用于服务器应用程序，而不是客户端，因为我的VB在这个上下文中起作用。我提到了这个

我担心这是否是一条正确的道路，但在阅读本文时 我想我将不会有问题，甚至这个对象点之间使用服务器到服务器的通信

有没有人能告诉我一点，到目前为止，我在测试中观察到的一切都很好，但我还没有使用这个对象的经验。 谢谢