Imports System.Xml
Imports System.Xml.XPath
Imports System.Net
Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Public Function GetNodes(ByVal query As String) As List(Of XPathNavigator)
        Dim doc As New XmlDocument()
        doc.LoadXml(inetReadFile( _
          "http://api.eve-online.com/account/Characters.xml.aspx?userID=676096" & _
          "&apikey=ACDD612BEC73459B9092CB7A43175476C553287AEFB24041BB4259AE789" & _
          "B10C"))
        Dim nav As XPathNavigator = doc.CreateNavigator()
        Dim ni As XPathNodeIterator = nav.Select(query)
        Dim list As New List(Of XPathNavigator)
        While ni.MoveNext()
            list.Add(ni.Current)
        End While
        Return list
    End Function
 
    Private Function inetReadFile(ByVal sURL As String) As String
        Dim sBuffer As String
        Dim oRequest As WebRequest = WebRequest.Create(sURL)
        oRequest.Method = "GET"
        Dim oResponse As WebResponse = oRequest.GetResponse()
        Dim oStream As New StreamReader(oResponse.GetResponseStream())
        sBuffer = oStream.ReadToEnd()
        oStream.Close()
        oResponse.Close()
        Return sBuffer
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
        Dim d As List(Of XPath.XPathNavigator) = GetNodes("/eveapi/result")
        Dim type As String = d(0).SelectSingleNode("rowset").Value
        MessageBox.Show(type)
    End Sub
End Class

 
 
<?xml version='1.0' encoding='UTF-8'?>
<eveapi version="2">
  <currentTime>2010-11-17 01:56:10</currentTime>
  <result>
    <rowset name="characters" key="characterID" _
      columns="name,characterID,corporationName,corporationID">
      <row name="Tikom Braun" characterID="1411494823" corporationName="Terra" & _
      "Corp - Mining Corporation" corporationID="1829835529" />
      <row name="Tikon Braun" characterID="1711523770" corporationName="Terrae" & _
      "Filii" corporationID="98001442" />
    </rowset>
  </result>
  <cachedUntil>2010-11-17 01:57:08</cachedUntil>
</eveapi>