VB.NET解析json字符串

如下，要解析的字符串：

JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"":""谢文泽""}}"
       

利用NuGet包管理器控制台安装好newtonsoft.json.输入命令：Install-Package Newtonsoft.Json

我建立了一个控制台程序：

运行结果：

代码：

Imports Newtonsoft.Json.Linq
Module Module1
    Sub Main()
        Dim js As JObject
        Dim JsonStr As String

        JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"":""谢文泽""}}"
        js = JObject.Parse(JsonStr)
        MsgBox(js.SelectToken("dataa").SelectToken("ppiUsername"))
    End Sub

End Module

使用scriptcontrol的话也是一样。添加引用到解决方案：

结果：