'先引入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