Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click '这里是处理两个
Dim doc As New XmlDocument
Dim XmlFilePath As String = String.Empty
Dim sMsg As String = String.Empty
Dim strGetHardWareHash As String = String.Empty
Try
XmlFilePath = "http://10.41.21.91:808/CHECKMESSAGE/test.xml"
doc.Load(XmlFilePath)
If CType(sender, Button).Tag = "Button1" Then
ReadXmlFileContent(strGetHardWareHash, doc.DocumentElement)
Me.Label1.Text = "HARDWAREHASH:" & strGetHardWareHash
Else
ReadXmlFileContent("No", doc.DocumentElement)
End If
Catch ex As Exception
Throw ex
End Try
End Sub
Private Sub ReadXmlFileContent(ByRef strGetHardWareHash As String, ByVal fatherNode As Xml.XmlNode)
Try
Dim childNode As Xml.XmlNode
Me.Label2.Text = ""
For Each childNode In fatherNode.ChildNodes
If strGetHardWareHash = "No" Then
Me.Label2.Text = Me.Label2.Text & childNode.Name & childNode.InnerXml & Chr(13) & Chr(10)
Else
If childNode.Name = "HARDWAREHASH" Then
strGetHardWareHash = childNode.InnerXml
End If
End If
Next
Catch ex As Exception
Throw ex
End Try
End Sub
End Class