调试出错 看看怎么修正，TEXT.XML 任意
目标实现功能：POST*.xml格式的数据，取回响应数据
Dim FileName As String = "test.xml"
Dim doc As New System.XML.XmlDocument
try
doc.LoadXml(FileName)
catch ex As Exception
End Try
Dim xmlHttp As new System.MSXML2.XMLHTTPClass
Dim backxmlstring As String =""
Dim strURL As String = ""
try
xmlHttp.open("post", strURL, False, "", "")
xmlHttp.send(doc.InnerXml)
backxmlstring = xmlHttp.responseText.ToString()
catch
backxmlstring = "Can not open the target Url"
End Try
output.show(backxmlstring)
加好友 
发短信
Post By：2013/8/9 12:18:00 [只看该作者]
