码栈对页面元素的处理已经很完整,但是是在实现更复杂的后台逻辑或调用其它平台接口时,却没有能更好的解决
所以自己搭建了个webservice的服务,码栈通过调用自己的服务,再由自己的服务实现更复杂的逻辑处理或调用其它平台的接口,并返回处理结果,这可以大大拓展码栈的使用范围
以下是自己写的调用webservice服务的一个例子,仅供参考~
Func test()
Dim $objHTTP
Dim $strEnvelope
Dim $strReturn
Dim $objReturn
Dim $dblTax
Dim $strQuery
Dim $value
; Initialize COM error handler
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$objHTTP = ObjCreate("Microsoft.XMLHTTP")
$objReturn = ObjCreate("Msxml2.DOMdocument.3.0")
; Create the SOAP Envelope
$strEnvelope = "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:taob=""http://taobao.task.goelia.com.cn""> <soapenv:Header/> <soapenv:Body> <taob:getItemsbyOuterid/> </soapenv:Body></soapenv:Envelope>"
; Set up to post to our local server
$objHTTP.open("post", 【自己的服务地址】, False)
; Set a standard SOAP/ XML header for the content-type
$objHTTP.setRequestHeader("Content-Type", "text/xml;charset=UTF-8")
; Set a header for the method to be called
$objHTTP.setRequestHeader("SOAPAction", "urn:getItemsbyOuterid")
;J_MsgBox("Content of the Soap envelope : " & @CR & $strEnvelope & @CR & @CR)
; Make the SOAP call
$objHTTP.send($strEnvelope)
; Get the return envelope
$strReturn = $objHTTP.responseText
;J_View_Write(1, 2, $strReturn)
;J_MsgBox("strReturn : " & $strReturn & @CR & @CR)
$objReturn.loadXML($strReturn)
$dblTax = $objReturn.SelectNodes("soapenv:Envelope/soapenv:Body/ns:getItemsbyOuteridResponse/ns:return")
;J_MsgBox("$max:" & $dblTax.length)
For $objNode in $dblTax
J_MsgBox($objNode.selectSingleNode("ax21:outerId" ).Text)
Next
;J_View_Write(1, 3, $Soap)
;J_MsgBox($Soap)
EndFunc ;==>test
版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。