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

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

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

 1 Private Function CallAPI(url1 As String, filePath As String) 2     'load file 3     Dim document As MSXML2.DOMDocument 4     Set document = CreateObject("MSXML2.DOMDocument") 5     document.Load filePath  'load xml file 6     'send data to server 7     Dim xmlHttp As MSXML2.XMLHTTP 8     Set xmlHttp = CreateObject("MSXML2.XMLHTTP") 9     xmlHttp.Open "POST", url1, False 'post method to10     xmlHttp.setRequestHeader "Content-Type", "application/xml" 'xml type of http request xml，not text/xml11     xmlHttp.send (document.xml)12     'clear13     Set xmlHttp = Nothing14     Set document = Nothing15 End Function

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

1     xmlHttp.send (document.xml)

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

 1 Private Function CallAPI(url1 As String, filePath As String) 2     'load file 3     Dim document As MSXML2.DOMDocument 4     Set document = CreateObject("MSXML2.DOMDocument") 5     document.Load filePath 6  7     Dim xmlHttps As WinHttp.WinHttpRequest 8     Set xmlHttps = CreateObject("WinHttp.WinHttpRequest.5.1") 9     xmlHttps.Open "POST", url1, False10     xmlHttps.setRequestHeader "Content-Type", "application/xml"11 12     xmlHttps.send document.xml13  14     DoEvents15     16 End Function

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

 1 Private Function CallAPI(url1 As String, filePath As String) 2     'load file 3     Dim document As MSXML2.DOMDocument 4     Set document = CreateObject("MSXML2.DOMDocument") 5     document.Load filePath 6  7     Dim xmlHttps As WinHttp.WinHttpRequest 8     Set xmlHttps = CreateObject("WinHttp.WinHttpRequest.5.1") 9     xmlHttps.Open "POST", url1, False10     xmlHttps.setRequestHeader "Content-Type", "application/xml"11     xmlHttps.SetCredentials "用户名 ", "密码", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER12 13     xmlHttps.send document.xml14  15     DoEvents16     17 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提交的效果：

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

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

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