vbs调用WebService -- 使用xmlhttp

具体调用的代码：

'向指定的文件写入文本, 并指定是否是添加内容
Function Z_WriteFile(sFileName, sText, bAppend)
    Dim fs, fso, iomode
    if bAppend = True Then
        iomode = 8              'ForAppending
    else
        iomode = 2              'ForWriting
    end if

    set fs = CreateObject("Scripting.FileSystemObject")
    set fso = fs.OpenTextFile(sFileName, iomode, True)  '第三个参数表明文件不存在，则新建文件
    fso.WriteLine sText
    fso.Close

    set fso = Nothing
    set fs = Nothing
    Z_WriteFile = True
End Function

Dim 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 Then
    Dim sNodeList, sResult
    xmlDOC.load(objHTTP.responseXML)
    set sNodeList = xmlDoc.getElementsByTagName("double")
    sResult = sNodeList(0).Text
    sText = "2+3=" & sResult
else
    sText = "调用WebService出错，请检查"
end if

Z_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;
        else
            return 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文件中。