基于IIS的VB.NET Webservice服务和VB6 Webservice客户端代码测试

前几篇笔记搭建起了相对完整的IIS服务，不论是静态html还是动态asp，或是cgi支持，都能在IIS上实现了。需要的时候可以回顾再看一下，确保建站顺利，搭建测试webservice才会顺利。

IIS CGI配置和CGI程序FreeBasic, VB6, VC 简单样例

IIS CGI配置和CGI程序FreeBasic, VB6, VC 简单样例_Mongnewer的博客-CSDN博客

IIS perl python cbrother php脚本语言配置及简单测试样例程序

IIS perl python cbrother php脚本语言配置及简单测试样例程序_Mongnewer的博客-CSDN博客

1. 在IIS的NewWeb站点上建立webservices文件夹，后面webservice的文件就完整地放在它下面。

2. 接下来用VS2022写webservice，创建 asp.net web应用程序(.NET Framework)

    配置新项时，保持默认不变。

在上面这页点创建，然后选空白类型的配置

然后，右键为项目添加一个 webservice 类

3. 修改一下模块默认的东西

     改成下面的样子

4. 编译，然后发布到站点

先验证连接是通的，然后发布。

显示发布成功了，到站点的webservice文件下查看的话，会有发布的文件。

下面是VB6写的访问webservice的客户端测试程序

微软为VB6开发了专门的toolkit，直接点安装，封装好的组件就都注册到系统中了，写程序时直接引用(这套toolkit我还要好好学学，内容有点丰富。)

安装好了 toolkit， 创建vb6标准exe程序，在默认窗体form1上放text1和text2文本框，再放个command1，然后，添加必要的引用。

Microsoft Soap Type Library v3.0 中可用的东西挺多的，用红框中的SoadClient30

在command1下写如下代码（做了修改，加入了出错处理）

Private Sub Command1_Click()
    Dim Mysoapclient
    Err.Clear
    Set Mysoapclient = CreateObject("MSSOAP.SoapClient30")
    If (Err <> 0) Then
        MsgBox "Initialization of the SOAP Toolkit failed."
        Return
    End If

    Call Mysoapclient.MSSoapInit("http://192.168.3.113:8087/webservice/WebService1.asmx?WSDL", "WebService1", "WebService1Soap")
    If (Err <> 0) Then
        MsgBox "Error initializing the WSDL file."
        Return
    End If
    text1.Text = Mysoapclient.HelloWorld
    text2.Text = Mysoapclient.Power(9)
End Sub

运行后，在text1中显示vb.net写的第一个helloworld方法结果，在text2中显示vb.net写的第二个power方法结果。

这是最近IIS配置、webservice发布和获取的知识断点通关学习的笔记和习练。生命不息，学习不止，继续努力。