Imports Newtonsoft.Json

Public Class AnswerDTO

   Private m_nThreadIndex As Integer
   Public ReadOnly Property nThreadIndex As Integer
      Get
         Return m_nThreadIndex
      End Get
   End Property

   Private m_nId As Integer
   Public ReadOnly Property nId As Integer
      Get
         Return m_nId
      End Get
   End Property

   Private m_ExecEnvironment As EXECENVIRONMENTS
   Public ReadOnly Property ExecEnvironment As EXECENVIRONMENTS
      Get
         Return m_ExecEnvironment
      End Get
   End Property

   Private m_nResult As Integer
   Public ReadOnly Property nResult As Integer
      Get
         Return m_nResult
      End Get
   End Property

   Private m_Args As New Dictionary(Of String, String)
   Public ReadOnly Property Args As Dictionary(Of String, String)
      Get
         Return m_Args
      End Get
   End Property

   <JsonConstructor>
   Sub New(nThreadIndex As Integer, nId As Integer, ExecEnvironment As EXECENVIRONMENTS, nResult As Integer, Args As Dictionary(Of String, String))
      m_nThreadIndex = nThreadIndex
      m_nId = nId
      m_ExecEnvironment = ExecEnvironment
      m_nResult = nResult
      m_Args = Args
   End Sub

End Class