VB.NET 解析JSON数据过程

' 定义一个名为“解析JSON”的子过程，并传递一个字符串类型参数 str
Sub 解析JSON(ByVal str As String)
    
    ' 创建一个对象 ScriptObj 并将其设置为“MSScriptControl.ScriptControl”类的实例
    Dim ScriptObj As Object
    ScriptObj = CreateObject("MSScriptControl.ScriptControl")
    
    ' 允许 UI 操作
    ScriptObj.AllowUI = True
    
    ' 将脚本语言设置为 JavaScript
    ScriptObj.Language = "JavaScript"
    
    ' 向 ScriptObj 对象添加代码，该代码将变量 data 设置为传入的 JSON 字符串 str 
    ScriptObj.AddCode("var data = " & str & ";")
    
    ' 从 JSON 数据中提取文本和图标信息
    ' 使用 ScriptObj.Eval 方法来执行 JavaScript 代码并返回结果
    ' 这里的代码是从 data 文本数组的第二个元素中提取 icon 属性，并将其赋值给 Message 变量
    Dim Message = ScriptObj.Eval("data.text[1].icon")
    
    ' 在消息框中显示提取出来的信息
    MsgBox(Message)
End Sub