Option Explicit
Private Const SoapAction = _
"http://zeus:8080/Portal/services"
Private Const END_POINT_URL = _
"http://zeus:8080/Portal/services"
Private Const CALC_NS = "http://zeus:8080/Portal/services"
Private Function Execute(ByVal Method As String, _
ByVal A As String, _
ByVal B As String) As String
Dim Serializer As SoapSerializer30
Dim Reader As SoapReader30
Dim ResultElm As IXMLDOMElement
Dim FaultElm As IXMLDOMElement
Dim Connector As SoapConnector30
Set Connector = New HttpConnector30
Connector.Property("EndPointURL") = END_POINT_URL
Connector.Connect
' binding/operation/soapoperation
' Connector.Property("SoapAction") = SoapAction & Method
Connector.BeginMessage
Set Serializer = New SoapSerializer30
Serializer.Init Connector.InputStream
Serializer.StartEnvelope
Serializer.StartBody
Serializer.StartElement Method
Serializer.StartElement "term"
Serializer.WriteString CStr(A)
Serializer.EndElement
Serializer.StartElement "bank"
Serializer.WriteString CStr(B)
Serializer.EndElement
Serializer.EndElement
Serializer.EndBody
Serializer.EndEnvelope
Connector.EndMessage
Set Reader = New SoapReader30
Reader.Load Connector.OutputStream
If Not Reader.Fault Is Nothing Then
MsgBox Reader.FaultString.Text, vbExclamation
Else
Execute = CDbl(Reader.RpcResult.Text)
End If
End Function
Private Sub Command1_Click()
MsgBox Execute("getTodaysSaltRequest", "000", "MCM1")
End Sub