最简单的vb6访问Web服务(WSDL)的组件

最新推荐文章于 2025-09-05 10:53:23 发布

原创最新推荐文章于 2025-09-05 10:53:23 发布 · 1.3w 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#web服务 #vb #soap #string #integer #url

.net 专栏收录该内容

18 篇文章

订阅专栏

作者发布了自己开发的SOAP组件，并提供下载链接及示例代码。该组件旨在方便用户进行Web服务调用，作者邀请社区成员试用并反馈意见以便进一步完善。

(声明：魏滔序原创，转贴请注明出处。)
闲暇之余写了这个SOAP组件，下载试用的请回复一下。
请把你试用中遇到的问题告诉我，我完善后开源。
下载地址：http://www.chenoe.com/developer/library/soap.dll

示例代码：
Option Explicit
Private WithEvents SOAP As SOAPClient
Private Sub Command1_Click()
Dim url As String
Dim a As String, b As String, c As Integer

    url = "http://www.chenoe.com/WebService/WS.asmx"       '只为测试，本地址无效。
    SOAP.Timeout = 10000
    If SOAP.Initialize(url, , , 0) Then
        MsgBox SOAP.CallWebService("GetProtocol", a, b, c)
    End If
End Sub

Private Sub Form_Load()
Set SOAP = New SOAPClient
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set SOAP = Nothing
End Sub

Private Sub SOAP_Error(ByVal Code As Long, ByVal Description As String, ByVal ServerResult As String)
MsgBox Description & vbCrLf & ServerResult '错误信息
End Sub

Private Sub SOAP_Progress(ByVal Value As Long)
Me.ProgressBar1.Value = Value '显示进度
End Sub