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 StringDim 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 = &#