vbs调用WebService -- 使用xmlhttp
具体调用的代码:
'向指定的文件写入文本, 并指定是否是添加内容
Function Z_WriteFile(sFileName, sText, bAppend)Dim fs, fso, iomodeif bAppend = True Theniomode = 8 'ForAppendingelseiomode = 2 'ForWritingend ifset fs = CreateObject("Scripting.FileSystemObject")set fso = fs.OpenTextFile(sFileName, iomode, True) '第三个参数表明文件不存在,则新建文件fso.WriteLine sTextfso.Closeset fso = Nothingset fs = NothingZ_WriteFile = True
End FunctionDim objHttp, xmlDoc, sText, sXml
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Set xmlDOC = CreateObject("MSXML.DOMDocument")
strWebserviceURL = "http://192.168.2.39/webservice1/service.asmx/addition"
strRequest = "i=2&j=3"
objHTTP.Open "POST", strWebserviceURL, False
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.Send(strRequest)if objHTTP.Status = 200 ThenDim sNodeList, sResultxmlDOC.load(objHTTP.responseXML)set sNodeList = xmlDoc.getElementsByTagName("double")sResult = sNodeList(0).TextsText = "2+3=" & sResult
elsesText = "调用WebService出错,请检查"
end ifZ_WriteFile "ResultVoice.txt", sText, False
webservice是由vs.net2010(c#)开发的,核心代码如下:
using System;
using System.Web;
using System.Web.Services;
using System.Web.Services.Protocols;[WebService(Namespace = "http://tempuri.org/")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
public class Service : System.Web.Services.WebService
{public Service () {//如果使用设计的组件,请取消注释以下行 //InitializeComponent(); }[WebMethod(Description = "Let's say \"Hello\"")]public string Hi(){return "Hello World, Happy New Year";}[WebMethod(Description = "Hello JoeBlack")]public string Hello(string username){return username + ", Happy New Year";}[WebMethod(Description = "求和的方法")]public double addition(double i, double j){return i + j;}[WebMethod(Description = "求差的方法")]public double subtract(double i, double j){return i - j;}[WebMethod(Description = "求积的方法")]public double multiply(double i, double j){return i * j;}[WebMethod(Description = "求商的方法")]public double division(double i, double j){if (j != 0)return i / j;elsereturn 0;}}
为了让WebService启用对HttpGet和HttpPost协议的支持(默认配置只支持Soap协议),需要在WebService项目的Web.config中添加以下内容:
<system.web><!--设置 compilation debug="true" 可将调试符号插入已编译的页面中。但由于这会影响性能,因此请仅在开发过程中将此值设置为 true。--><compilation debug="true" targetFramework="4.0"></compilation><!--通过 <authentication> 节可以配置安全身份验证模式,ASP.NET 使用该模式来识别来访用户身份。 --><!--配置WebService支持HttpPost和HttpGet协议--><webServices><protocols><add name="HttpPost" /><add name="HttpGet" /></protocols></webServices><authentication mode="Windows"/>
运行下就可以看到处理后的结果,都写入到了ResultVoice.txt文件中。
转载于:https://www.cnblogs.com/joeblackzqq/archive/2011/03/01/1967748.html
vbs调用WebService -- 使用xmlhttp相关推荐
- Javascript+xmlhttp调用Webservice
1. 创建webservice,为了免于落俗我稍稍修改了创建webserice的默认webmethod.^_^ using System; using System.Web; using Syste ...
- [转]几种调用WebService的方法
1. 在JavaScript中调用WebService 1<script language="javascript"> 2function PostRequest ...
- 高级渗透之VBS调用WMI接口
vbs调用WMI接口复制文件: Set objWMIService = GetObject("winmgmts://./root/CIMV2") Set colFiles = ob ...
- 64位系统VBS调用32位COM组件
64位系统VBS调用32位COM组件 标签: 32位, 64位, COM, COM组件, VB, VBS, VBScript 标题: 64位系统VBS调用32位COM组件 作者: Demon 链接: ...
- PB调用WebService方式总结
文章目录 测试WebService接口 SOAP协议调用 HTTP方式调用SOAP 通过inet对象调用 通过XMLHTTP调用 HTTP方式直接调用 通过inet对象调用 通过XMLHTTP调用 P ...
- 关于js实现的Ajax调用,webService,一般处理程序,aspx
记得以前学的时候,网上的资料一大堆,就是没几个看的懂,都是理论,包括我目前看的mvc书都是一样,废话一堆,其实东西没那么难,让作者把某个技术吹上天了. 下面是一些初学者,比较实用的代码,欢迎大虾指导. ...
- java 调用webservice的各种方法总结
http://www.blogjava.net/zjhiphop/archive/2009/04/29/webservice.html 现在webservice加xml技术已经逐渐成熟,但要真正要用起 ...
- xml提示无法连接到远程服务器,异步调用WebService时,如何捕捉“无法连接远程服务器”异常...
在winform窗体中调用webservice,过程如下: ①Form1中弹出Form2 Form2 form2 = new Form2(); form2.ShowDialoag(); ②Form2中 ...
- delphi 企业微信消息机器人_简单用VBS调用企业微信机器人发定时消息的方法
去年在企业微信群当中突然看到多了一个叫多群机器人的东西: 企业微信群机器人 以为是升级了什么黑科技,看了下说明,原来目前功能是一个接收自定义消息的Webhook接口,可以通过调用接口把自定义消息推送到 ...
最新文章
- 前端 重构时需要注意的事项_驾驶式扫地车的功能特点和使用时需要注意事项...
- 【MM配置】Purchasing 采购配置
- Rxjs merge 学习笔记
- 戴尔win10插耳机还外放_通州附近戴尔笔记本电脑维修哪家强-北京信维佳业科技有限公司...
- 从未在一起更让人遗憾_二十不惑强行悲伤结尾,我们本可以在一起,才最让人遗憾...
- Linux比较大文件内容,Linux系统最大文件打开数优化,解决Too many open files报错
- 学生每日计划表_学霸宅家都干什么?浙大学生近700份居家作息计划表泄露秘密...
- Python案例:获取全国城市列表(区号与名称)
- linux mysql 修改root密码_MySQL忘了root密码,如何修改?
- 没有博士学位,照样玩转TensorFlow深度学习
- 【WWW2021】图结构估计神经网络
- 大型网站技术架构读书笔记
- iOS之解决崩溃Collection was mutated while being enumerated.
- zynq uart0和uart1设置
- 推荐三款动态壁纸软件,足够让你的桌面惊艳!
- c++ sprintf
- tm1650中文资料_TM1650+msp430单片机 调试及遇到问题的总结
- 1X的示波器探头为什么会降低示波器带宽
- python二进制数据存入数据库_python+ mysql存储二进制流的方式
- 2014年24如何改变球段魔尺视频教程