VB解析Json字符串

利用MSScriptControl调用JScript可以轻松解析Json字符串，并返回一个Json对象供给VB使用。

窗口代码如下：

'用户昵称: 留下些什么
'个人简介: 一个会做软件的货代
'CSDN网址：https://blog.csdn.net/zezese
'电子邮箱：31319180@qq.com


Option Explicit

Private Sub Command1_Click()

    Dim strJson As String

    strJson = "{""NickName"":""留下些什么"", ""Email"":""31319180@qq.com""}"
    
    Dim Json As Object
    
    Set Json = GetJsonOjbect(strJson)
    
    MsgBox Json.NickName & " : " & Json.Email

End Sub


Public Function GetJsonOjbect(strJson As String) As Object
    
    Dim JSScriptControl As Object
    Set JSScriptControl = CreateObject("MSScriptControl.ScriptControl")
    JSScriptControl.Language = "JScript"
    
    Dim strJSCode As String
    strJSCode = "var Json = " & strJson & ";"
    
    JSScriptControl.AddCode strJSCode

    Set GetJsonOjbect = JSScriptControl.CodeObject.Json
    
    Set JSScriptControl = Nothing
    
End Function