主题：XML声明

很简单，给名为【XML_POST】的元素赋值你【xml】的内容即可。

看看 http://www.foxtable.com/mobilehelp/scr/0159.htm

原生的post请求，参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73839&replyID=509448&skin=1

你想问什么？

你怎么写代码生成xml的？直接拼接字符串？还是用xmlDocument？

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\201510020.xml")
Dim root As System.XML.XmlNode  = xmldoc.SelectSingleNode("Document/Events/Event/DataField")
msgbox(root Is Nothing)
Dim xel As System.XML.xmlelement = xmldoc.CreateElement("Data")
xel.SetAttribute("Code","889824100000")
xel.SetAttribute("CorpOrderID","201510020     ")
xel.SetAttribute("Actor","")
xel.SetAttribute("ActDate","2015-10-22")
xel.SetAttribute("CorpProductID","")
xel.SetAttribute("CorpBatchNo","")
xel.SetAttribute("ProduceDate","2015-08-28")
xel.SetAttribute("ToCorpID","")
root.appendchild(xel)
xmldoc.save("d:\201510020.xml")

http://www.baidu.com/baidu?wd=System.XML.XmlDocument&tn=monline_4_dg

具体你的问题

dim str as string = "<?xml version=""1.0"" encoding=""utf-8"" ?><call command=""transfer""><ext id=""801""><dst>802</dst><unique>2209017600</unique><time>2017-03-27</time><checksum>095a93d74bed6f96b219287363c7d750</checksum></ext></call>"
msgbox(str)