Set xh = CreateObject("Microsoft.XMLHTTP")
xh.Open "POST",url,0
xh.setRequestHeader "Content-Length", Len(body)
xh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
xh.Send(body)
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 2
MyStream.Open
MyStream.WriteText xh.responseText
MyStream.Position = 0
postHtml=MyStream.ReadText
MyStream.Close
set xh=nothing
=============================================
互相学习电话微信：18611436777（加微信注明事由）
