在https的链接中vb使用post提交xml数据

　　由于工作需要，需要vb提交xml数据到服务器上，所以，需要找到一个好的方法。

　　之前有代码使用了MSXML2.XMLHTTP对象进行xml数据取得，而且链接是https形式的，于是就参照代码提交,写了下面这么一个函数，来进行操作

Private Function CallAPI(url1 As String, filePath As String)
    'load file
    Dim document As MSXML2.DOMDocument
    Set document = CreateObject("MSXML2.DOMDocument")
    document.Load filePath  'load xml file
    'send data to server
    Dim xmlHttp As MSXML2.XMLHTTP
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "POST", url1, False 'post method to
    xmlHttp.setRequestHeader "Content-Type", "application/xml" 'xml type of http request xml，not text/xml
    xmlHttp.send (document.xml)
    'clear
    Set xmlHttp = Nothing
    Set document = Nothing
End Function

　　但是，提交总是失败，在下面的这句代码就被中断，一直找不到原因。

    xmlHttp.send (document.xml)

　　突然想到http协议和https协议是不同的，可能在提交数据时有差异，猜测MSXML2.XMLHTTP对象应该不支持https，经过寻找找到另一个对象WinHttp.WinHttpRequest，于是有了下面的代码

Private Function CallAPI(url1 As String, filePath As String)
    'load file
    Dim document As MSXML2.DOMDocument
    Set document = CreateObject("MSXML2.DOMDocument")
    document.Load filePath

    Dim xmlHttps As WinHttp.WinHttpRequest
    Set xmlHttps = CreateObject("WinHttp.WinHttpRequest.5.1")
    xmlHttps.Open "POST", url1, False
    xmlHttps.setRequestHeader "Content-Type", "application/xml"

    xmlHttps.send document.xml
 
    DoEvents
    
End Function

　　执行了上面的代码之后程序正常结束，但是远端的服务器中的数据没有变化，查看了xmlHttps.status之后发现，提示没有权限，嗯，服务器那边需要用户名和密码验证的，这边没有设置登录用户名和密码，于是加了一句

Private Function CallAPI(url1 As String, filePath As String)
    'load file
    Dim document As MSXML2.DOMDocument
    Set document = CreateObject("MSXML2.DOMDocument")
    document.Load filePath

    Dim xmlHttps As WinHttp.WinHttpRequest
    Set xmlHttps = CreateObject("WinHttp.WinHttpRequest.5.1")
    xmlHttps.Open "POST", url1, False
    xmlHttps.setRequestHeader "Content-Type", "application/xml"
    xmlHttps.SetCredentials "用户名 ", "密码", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER

    xmlHttps.send document.xml
 
    DoEvents
    
End Function

　　执行了代码之后发现，xml对象的数据被正常提交。

总结：

　　1. MSXML2.XMLHTTP对象不能提交https数据到服务器上

　　2. WinHttp.WinHttpRequest对象需要显式的设置用户名和密码，在MSXML2.XMLHTTP对象使用的过程中，没有登录的话，会弹出用户名和密码输入框，而WinHttp.WinHttpRequest对象没有，直接提交数据后，提示没有权限

　　3. 提交xml对象时，设置的请求头部应该是"Content-Type", "application/xml"而不是"Content-Type", "text/xml"

其它对象也可以达到https提交的效果：

...    
    Dim serverxml As MSXML2.ServerXMLHTTP
    Set serverxml = CreateObject("MSXML2.ServerXMLHTTP")
    serverxml.Open "POST", url1, False, "用户名", "密码"
    serverxml.setRequestHeader "Content-Type", "application/xml"
    serverxml.send document.xml
...

　　注：WinHttp.WinHttpRequest对象需要添加Microsoft WinHTTP Services, version 5.1组件的引用

　　　　MSXML2.XMLHTTP和MSXML2.ServerXMLHTTP需要添加Microsoft MsXml组件的引用