[VB2010] Problem mit JSON

[Cave Johnson]

Hallo,

Ich habe versucht ein Programm zu schreiben, um mir die letzten TBM Transaktionen anzuzeigen.
Nur leider hängt dies beim Lesen der JsonStrings.
Ich benutze Library dafür.

Hier ist mein Code:

Imports Newtonsoft.Json
Imports System.Net
Imports System.IO

Public NotInheritable Class SplashScreen1

    Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        System.Threading.Thread.Sleep(1000)
        Me.Hide()
        Dim webClient As New System.Net.WebClient
        Dim result As String = webClient.DownloadString("http://www.elitepvpers.com/theblackmarket/api/transactions.php?u=2556636&type=received&secretword=nope.avi")
        Dim reader As JsonTextReader
        reader = New JsonTextReader(New StringReader(result))
        Dim Data() As String
        While (reader.Read())
            Dim i As Integer
            i = 0
            ReDim Preserve Data(i)
            [COLOR="Red"]Data(i) = reader.Value("eg_transactionid").ToString[/COLOR]
            MsgBox(Data(i))
            i = i + 1

        End While

    End Sub

End Class

secretword Zensiert
Das rote ist der Fehler, nur habe ich keine Ahnung wie ich den beheben kann.
Edit: habe es über XML geregelt, funktioniert super!

[Kraizy​]

Docus werden nicht umsonst geschrieben:

JsonTextReader reader = new JsonTextReader(new StringReader(json));
while (reader.Read())
{
if (reader.Value != null)
Console.WriteLine("Token: {0}, Value: {1}", reader.TokenType, reader.Value);
else
Console.WriteLine("Token: {0}", reader.TokenType);
}

[Cave Johnson]

Scheint als hätte ich mein Problem gefunden, es wurden vorher 2 leere Debug Msgboxen angezeigt, daher kam die NullReferenceException, nun ist das ein Bug auf Elitepvpers seite oder liegt es an mir?