VB.net 我从TCP中接收到 !{"messHead":{"msgCode":"0x53","msgId":"8a8dca6a4d1943d49d9664e08aeac699"},"messBody":{"recipeName":"2718","recipeBody":"52 61 72 21 1A 7 1 0 33 92 B5 E5 A 1 5 6 0 5 1 1 80 80 0 D4 63 85 66 24 2 3 B B8 0 4 DB 0 20 E8 C2 F8 C1 80 3 0 8 32 37 31 38 2F 44 54 31 A 3 2 56 CB EE C9 39 89 D9 1 C7 A8 35 34 43 23 F8 40 43 FE 24 52 E1 8 42 5F F5 A4 14 47 1A 79 F1 4D BA A7 3F 67 BD C5 B4 E2 91 8 73 2 7A DB 5A B8 CB 19 D9 28 DA 96 18 86 93 E6 97 1A C0 9E 7E A9 5E 2 BD 99 1E 2 3 B 0 5 0 10 0 0 0 0 80 0 0 4 32 37 31 38 A 3 2 C6 7 C4 9D 38 8A D9 1 1D 77 56 51 3 5 4 0"}}# recipeBody后面的数据是我所需要的字节数据

你可以通过以下代码来解析这个消息：

Dim message As String = "{'messHead':{'msgCode':'0x53','msgId':'8a8dca6a4d1943d49d9664e08aeac699'},'messBody':{'recipeName':'2718','recipeBody':'52 61 72 21 1A 7 1 0 33 92 B5 E5 A 1 5 6 0 5 1 1 80 80 0 D4 63 85 66 24 2 3 B B8 0 4 DB 0 20 E8 C2 F8 C1 80 3 0 8 32 37 31 38 2F 44 54 31 A 3 2 56 CB EE C9 39 89 D9 1 C7 A8 35 34 43 23 F8 40 43 FE 24 52 E1 8 42 5F F5 A4 14 47 1A 79 F1 4D BA A7 3F 67 BD C5 B4 E2 91 8 73 2 7A DB 5A B8 CB 19 D9 28 DA 96 18 86 93 E6 97 1A C0 9E 7E A9 5E 2 BD 99 1E 2 3 B 0 5 0 10 0 0 0 0 80 0 0 4 32 37 31 38 A 3 2 C6 7 C4 9D 38 8A D9 1 1D 77 56 51 3 5 4 0'}}"
Dim recipeBody As String = JObject.Parse(message)("messBody")("recipeBody").ToString()
Dim byteData As Byte() = recipeBody.Split(" "c).[Select](Function(x) Byte.Parse(x, System.Globalization.NumberStyles.HexNumber)).ToArray()

这里使用了 Newtonsoft.Json 库来解析 JSON 格式的消息，然后将 recipeBody 字符串中的十六进制字节数据转换为 Byte 数组。