51Testing软件测试论坛

标题: 调用xmlhttp的send方法，如果传参数是XML-data，用VBS要怎样实现？ [打印本页]

作者: deadhunter 时间: 2015-1-20 17:27
标题: 调用xmlhttp的send方法，如果传参数是XML-data，用VBS要怎样实现？
Dim http
set Actions=loadXMLDoc("C:\Documents and Settings\Administrator\桌面\自动化测试手机短信\testxml.xml")
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "POST", "http://192.168.22.224:7205/test?wsdl", False
http.SetRequestHeader "Content-Type", "text/xml"
'http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send Actions.xml
WScript.Echo http.responseText

后台收到报文为空。

作者: 土土的豆豆 时间: 2015-1-27 15:38
差不多如下：
Dim xmlHttp, aaa
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
url = urlCheck("http://192.168.22.224:7205/test?wsdl")
xmlHttp.open "post", "http://192.168.22.224:7205/test?wsdl", False
xmlHttp.setrequestheader "content-type", "application/x-www-form-urlencoded"
xmlHttp.send parameter
Do
Loop Until xmlHttp.readyState = 4
postHttp = xmlHttp.responseText
Set xmlHttp = Nothing

好久没搞了你试试对不对

作者: deadhunter 时间: 2015-1-28 10:15
parameter这个参数是什么？我要转的是XML，主要是服务器收到参数错误

作者: deadhunter 时间: 2015-1-28 10:17
我现在的问题是传XML报文，后台服务器解释报文错误

作者: mylihao 时间: 2015-2-15 20:38
楼主传的是XML吧？我估计可能是XML中的特殊字符导致，需要转义~

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)