Dim jsonString As String = ""
Dim reader = New JsonTextReader(New StringReader(jsonString))
Dim response = New GetRoomListResponse()
Dim currentProperty as string = ""
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()
Public Class GetRoomListResponse
Public Exception As String