Const strURL = "https://localhost:8666"  ' or http://localhost:8555
Const strXML = "<?xml version='1.0' ?>" _
& "<MonetraTrans>" _
& "<Trans identifier='1'>" _
& "<Username>vitale</Username>" _
& "<Password>test</password>" _
& "<Action>SALE</Action>" _
& "<Account>4012888888881</Account>" _
& "<ExpDate>0512</ExpDate>" _
& "<Amount>12.00</Amount>" _
& "</Trans>" _
& "<Trans identifier='2'>" _
& "<Username>vitale</Username>" _
& "<Password>test</password>" _
& "<Action>SALE</Action>" _
& "<Account>5454545454545454</Account>" _
& "<ExpDate>0512</ExpDate>" _
& "<Amount>12.12</Amount>" _
& "</Trans>" _
& "</MonetraTrans>"
 
Public Sub Main()
Dim xmlHttp As New MSXML2.ServerXMLHTTP40
Dim xmlDom As New DOMDocument40
Dim xmlResp As String
Dim retval As Integer
Dim xmlDoc As New MSXML2.DOMDocument40
Dim oNode As IXMLDOMNode
Dim oNodes As IXMLDOMNodeList
Dim pNode As IXMLDOMNode
Dim attr As IXMLDOMAttribute
Dim output As String
Dim Status As String
 
xmlHttp.open "Post", strURL, False
' Some newer versions of MSXML2 seem to not default to ignoring
v5.1.4 XML Protocol Specification 18
 
 
'   all SSL errors as MSXML2 v4.0 did.  Set that option here as
'   most people don't implement fully signed certificates in
'   Monetra:
'   Must set SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS (2)
'   to SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS (13056)
xmlHttp.setOption 2, 13056 ' ignore SSL errors
xmlHttp.setRequestHeader "Content-Type", "text/xml"
xmlHttp.send strXML ' Diese Stelle muss abgewandelt werden
xmlResp = xmlHttp.responseXML.xml
 
Set xmlHttp = Nothing
xmlDom.loadXML (xmlResp)
' check return code
Set oNode = xmlDom.selectSingleNode( _
"//MonetraResp/DataTransferStatus" _
)
 
If (Not oNode Is Nothing) Then
   Set attr = oNode.Attributes.Item(0)
   If (attr.Name = "code") Then
      Status = attr.Value
      output = output + "Status : " + _
      Status + vbNewLine + vbNewLine
   End If
End If
 
' Fehlerabhandlung, z.Z. uninteressant
 
End Sub