主题：[求助]用UDPClient与网站通讯代码编写

参考代码

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\test.xml")
Dim ndList  = xmlDoc.GetElementsByTagName("PLANT")

For i As Integer = 0 To ndList.count - 1
    Dim COMMON As String = ndList(i).Item("COMMON").InnerText
    Dim BOTANICAL As String = ndList(i).Item("BOTANICAL").InnerText
    Dim ZONE As String = ndList(i).Item("ZONE").InnerText
   
    output.show(COMMON & " " & BOTANICAL & " " & ZONE)
Next

参考代码

Dim msg As String = ""
Dim req = System.Net.WebRequest.Create("http://www.w3school.com.cn/example/xmle/plant_catalog.xml")
req.Method = "get"

Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd

pos.Close
stm.Close
reader.close

'output.show(str)
 

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(str)
Dim ndList  = xmlDoc.GetElementsByTagName("PLANT")

For i As Integer = 0 To ndList.count - 1
    Dim COMMON As String = ndList(i).Item("COMMON").InnerText
    Dim BOTANICAL As String = ndList(i).Item("BOTANICAL").InnerText
    Dim ZONE As String = ndList(i).Item("ZONE").InnerText
   
    output.show(COMMON & " " & BOTANICAL & " " & ZONE)
Next