Wyciąganie danych z xml

[filip1234]

Mam problem otóż nie wiem jak wyciągnąć dane z xml, posiadam kod który otrzymane dane convertuje na xml i usuwa nie potrzebne rzeczy ale nie potrafię wyciągnąć potrzebnych danych, m.in liczba graczy online i całkowita liczba slotów

 

API PlayerCount:

 

http://mcapi.ca/examples/query-api

 

Mój kod:

Public Sub convert_online()
        Try
            result = result.Replace("[", "")
            result = result.Replace("]", "")

            Dim node As XNode = JsonConvert.DeserializeXNode(result, "Root")

            result = node.ToString()
            'konsola.AppendText(responseFromServer + vbCrLf)
            '-------------------------- Get the UUID from the XML ----------------------------
            'MsgBox(syn)
            konsola.AppendText(result + vbCrLf + vbCrLf + vbCrLf + vbCrLf)
            GetPlayer()

        Catch ex As Exception
              'Nothing doing
        End Try
    End Sub

    Public Sub GetPlayer()
        Try
            Dim aaa As Byte
            Dim aLine As String
            Dim strReader As New StringReader(result)

            While True
                aLine = strReader.ReadLine()
                If aLine Is Nothing Then
                    Exit While
                Else
                    If aLine.Contains("<players>") Then
                        'MsgBox(aLine)
                        'put the UUID to variable...
                        aLine = aLine.Replace("<players>", "")
                        aLine = aLine.Replace("</players>", "")
                        aLine = aLine.Replace(" ", "")
                        OnlinePlayer = aLine

                        Exit While
                    End If
                    If aLine.Contains("<online>") Then
                        'MsgBox(aLine)
                        'put the UUID to variable...
                        aLine = aLine.Replace("<online>", "")
                        aLine = aLine.Replace("</online>", "")
                        aLine = aLine.Replace(" ", "")
                        aaa = aLine

                        Exit While
                    End If
                End If
            End While
            konsola.AppendText("--OnlinePlayer: " + aaa.ToString + vbCrLf)
        Catch ex As Exception
            konsola.AppendText(ex.Message)

        End Try
    End Sub

[filip1234]

Forget it, poradziłem sobie