有问题吗？我测试通过啊：
'...
Dim msc As Object, data1 As Object
Dim json As String = clipboard.gettext 'json数据赋值到剪贴版
Dim js_Code As String
js_Code = "function js(json) {eval(""var o=""+json);return o;}"
msc = CreateObject("MSScriptControl.ScriptControl")
With msc
.Language = "Javascript"
.Timeout = -1
.AddCode(js_code)
data1 = .Run("js",json)
End With
output.show(data1.msg)
output.show(data1.result.number)
output.show(data1.result.type)
output.show(data1.result.deliverystatus)
For each obj as object in data1.result.list
output.Show(obj.time)
output.show(obj.status)
next
加好友 
发短信
Post By：2016/12/12 22:08:00 [显示全部帖子]
