Imports System

Imports System.Linq

Imports System.Collections.Generic

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

' https://stackoverflow.com/questions/44057418/json-rpc-application-adding-byte-array-to-jtoken

​

Public Class TestClass

    Public Function daliSend(url As String, universe_id As Integer, bytes As Byte(), expect_answer As Boolean, send_twice As Boolean) As String

​

        Dim rpcObject As New JObject() From { _

            {"Id", generateRandomString()}, _

            {"Jsonrpc", "2.0"}, _

            {"method", "dali.send"}, _

            {"params", New JObject() From { _

                {"universe_id", universe_id}, _

                    {"bytes", JToken.FromObject(Array.AsReadOnly(bytes))}, _

                {"expect_answer", expect_answer}, _

                {"send_twice", send_twice} _

            }} _

        }

​

        Dim json As String = JsonConvert.SerializeObject(rpcObject).ToLower()

        Return json

    End Function

    Public Function generateRandomString() as Integer

        Return 0

    End Function

End Class

​

Public Module Module1

    Public Sub Main()

​

        Console.WriteLine("Environment version: {0}", Environment.Version)

        Console.WriteLine("Json.NET version: {0}", GetType(JsonSerializer).Assembly.FullName)

        Console.WriteLine("")

​

        Dim test as new TestClass()

        Dim json = test.daliSend("http://test", 0, new byte () { 187,0 }, true, true)

​

        Console.WriteLine(json)

    End Sub

​

End Module