主题：[求助]大家新年好！上班第一天来求助了，关于json的

试出来了

        Dim json As String = XMLH.responseText
        Dim ScriptControl As Object, data  As Object, JscriptCode As String
        JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
        ScriptControl = CreateObject("MSScriptControl.ScriptControl")
        With ScriptControl
            .Language = "Javascript"
            .Timeout = -1
            .AddCode(JscriptCode)
            data = .Run("toObject", json)
        End With

判断data.message的值就可以了！