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

发布时间：2020-12-17 07:42:08 所属栏目：百科来源：网络整理

导读：由于工作需要，需要vb提交xml数据到服务器上，所以，需要找到一个好的方法。之前有代码使用了MSXML2.XMLHTTP对象进行xml数据取得，而且链接是https形式的，于是就参照代码提交,写了下面这么一个函数，来进行操作 1 Private Function CallAPI(url1 As String

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

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

 1 Private Function CallAPI(url1 As String,filePath 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 = MSXML2.XMLHTTP 9     xmlHttp.Open POST",url1,False post method to
10     xmlHttp.setRequestHeader Content-Typeapplication/xml" xml type of http request xml，not text/xml
11     xmlHttp.send (document.xml)
12     clear
13     Nothing
14     15 End Function

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

1     xmlHttp.send (document.xml) 

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

 5     document.Load filePath
 6 
Dim xmlHttps As WinHttp.WinHttpRequest
Set xmlHttps = WinHttp.WinHttpRequest.5.1 9     xmlHttps.Open False
10     xmlHttps.setRequestHeader "
11 
12     xmlHttps.send document.xml
13  
14     DoEvents
15     
16  　　执行了上面的代码之后程序正常结束，但是远端的服务器中的数据没有变化，查看了xmlHttps.status之后发现，提示没有权限，嗯，服务器那边需要用户名和密码验证的，这边没有设置登录用户名和密码，于是加了一句
11     xmlHttps.SetCredentials 用户名 密码",HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
12 
13     xmlHttps.send document.xml
14  
15     DoEvents
16     
17  　　执行了代码之后发现，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.ServerXMLHTTP
3     Set serverxml = MSXML2.ServerXMLHTTP4     serverxml.Open False,0); font-family:'Courier New'!important; line-height:1.5!important">用户名5     serverxml.setRequestHeader 6     serverxml.send document.xml
7 ... 
 　　注：WinHttp.WinHttpRequest对象需要添加Microsoft WinHTTP Services,version 5.1组件的引用
 　　　　MSXML2.XMLHTTP和MSXML2.ServerXMLHTTP需要添加Microsoft MsXml组件的引用
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!