vb 调用java的webServices

 

    VB调用Java的webServices:

        第一步： 首先需要下载soapsdk.exe程序后进行安装，安装完VB工程里面会有Microsoft Soap Type Library v3.0

      第二步： 打开VB6.0 建立标称exe  并引用Microsoft Soap Type Library v3.0

        实现代码：

Dim objSoapClient As New SoapClient30
Dim userName As String
Dim passWd As String
Dim slname As String
Dim lang   As String
Dim dcName As String

Dim dltype As Integer
Set objSoapClient = CreateObject("mssoap.SoapClient30")
Call objSoapClient.MSSoapInit("http://10.0.2.204:6888/bosws/services/EASLogin?wsdl")
If Err <> 0 Then
MsgBox "初始化SOAP失败" + Err.Description
Else
MsgBox "初始化成功"
End If
userName = "user"
passWd = "kduser"
slname = "eas"     '帐套名称
dcName = "0001"     '注册中心
lang = "L2"
dltype = 2
Call objSoapClient.login(userName, passWd, slname, dcName, lang, dltype, "")
If Err <> 0 Then
MsgBox "EAS登录失败" + Err.Description
Else
MsgBox "登录成功"
End If