Imports System

Imports Newtonsoft.Json

Imports System.IO

​

Public Class Program

​

    Public Shared Sub Main()

        Dim jsonString As String = ""

        Dim reader = New JsonTextReader(New StringReader(jsonString))

        Dim response = New GetRoomListResponse()

        Dim currentProperty as string = ""

        While reader.Read()

            If reader.Value IsNot Nothing Then

                If reader.TokenType = JsonToken.PropertyName Then currentProperty = reader.Value.ToString()

                If currentProperty = "Code" Then response.Code = Int32.Parse(reader.Value.ToString())

                If currentProperty = "Message" Then response.Message = reader.Value.ToString()

                If currentProperty = "Exception" Then response.Exception = reader.Value.ToString()

            Else

            End If

        End While

    End Sub

End Class

​

Public Class GetRoomListResponse

    Public Exception As String

    Public Message As String

    Public Code As Integer

End Class

​