16,554
社区成员
发帖
与我相关
我的任务
分享
ivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim stream As New MemoryStream
Dim xmlseting As New XmlWriterSettings
xmlseting.Encoding = Encoding.UTF8
xmlseting.ConformanceLevel = ConformanceLevel.Document
xmlseting.Indent = True
Dim Xmldoc As XmlWriter = XmlWriter.Create(stream, xmlseting)
Xmldoc.WriteStartDocument(False)
Xmldoc.WriteStartElement("epp", "urn:iana:xml:ns:epp-1.0")
Xmldoc.WriteAttributeString("xmlns", "xsi", "", "http://www.w3.org/2001/XMLSchema-instance")
Xmldoc.WriteAttributeString("xmlns", "schemaLocation", "", "urn:iana:xml:ns:epp-1.0 epp-1.0.xsd")
Xmldoc.WriteStartElement("command")
Xmldoc.WriteStartElement("create")
Xmldoc.WriteAttributeString("xmlns", "domain", "", "1")
Xmldoc.WriteStartElement("create", "1")
' Xmldoc.WriteAttributeString("xmlns", "domain", "", "urn:iana:xml:ns:domain-1.0")
Xmldoc.WriteAttributeString("xsi", "schemaLocation", "", "urn:iana:xml:ns:domain-1.0 domain-1.0.xsd")
Xmldoc.WriteEndElement()
Xmldoc.WriteEndElement()
Xmldoc.WriteEndElement()
Xmldoc.WriteEndElement()
Xmldoc.Flush()
MsgBox(Encoding.UTF8.GetString(stream.ToArray()))