VB6 采用SOAP协议进行提交/返回数据

新建 VB6 项目工程 引用 Microsoft XML ,

添加CommandButton命名为cmdRequest ，
添加 TextBox 命名为 txtResponseHeaders，
添加 TextBox 命名为 txtResponse

'----------------------------------------------------------

 Option Explicit

Private Sub cmdRequest_Click()
  Dim o As New XMLHTTP   ' 需要引用 Microsoft XML
  Dim s As String
 
On Error GoTo err_handler

  s = s & "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
  s = s & "<SOAP-ENV:Envelope" & vbCrLf
  s = s & "SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/""" & vbCrLf
  s = s & "xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/""" & vbCrLf
  s = s & "xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/""" & vbCrLf
  s = s & "xmlns:ns0=""capeconnect:GlobalWeather:GlobalWeather""" & vbCrLf
  s = s & "xmlns:xsd=""http://www.w3.org/2001/XMLSchema""" & vbCrLf
  s = s & "xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">" & vbCrLf
  s = s & "<SOAP-ENV:Body>" & vbCrLf
  s = s & "<ns0:getWeatherReport>" & vbCrLf
  s = s & "<code xsi:type=""xsd:string"">CYVR</code>" & vbCrLf
  s = s & "</ns0:getWeatherReport>" & vbCrLf
  s = s & "</SOAP-ENV:Body>" & vbCrLf
  s = s & "</SOAP-ENV:Envelope>" & vbCrLf
 
  o.open "POST", "http://live.capescience.com:80/ccx/GlobalWeather", False
  o.setRequestHeader "Content-Type", "text/xml"
  o.setRequestHeader "Connection", "close"
  o.setRequestHeader "SOAPAction", ""
  o.send s
  txtResponseHeaders.Text = o.getAllResponseHeaders
  txtResponse.Text = o.responseText

err_handler:
  If Err.Number <> 0 Then MsgBox "Error " & Err.Number & ": " & Err.Description
End Sub