|
新建 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.DescriptionEnd Sub （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
