vb Post XML 对象

'先引入Microsoft XML,v4.0
Function PostXML(url As String, xml As String) As String
    
    Dim I As Integer

    'xml = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "utf-8" & Chr(34) & "?>" 

    Dim h As MSXML2.ServerXMLHTTP40
    Dim X As MSXML2.DOMDocument40

    Set X = New MSXML2.DOMDocument40
    X.loadXML xml

    Set h = New MSXML2.ServerXMLHTTP40
    h.Open "POST", url, False
    h.setRequestHeader "Content-Type", "text/xml"
    h.send (xml)
    While h.readyState <> 4
        '不断循环，吓死你
    Wend
    
    PostXML = h.responseText
    
End Function