Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "https://www.opencai.net/open.html", True) '获得实时信息
XMLH.send(Nothing)
Do While XMLH.readyState <> 4
Application.DoEvents
Loop
'把数据json数据转化成对象
Dim json As String = XMLH.responseText
Dim ScriptControl As Object, data2 As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o= "" + json);return o;} "
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
ScriptControl .Language = "Javascript"
ScriptControl .Timeout = -1
ScriptControl .AddCode(JscriptCode)
data2 = ScriptControl .Run("toObject", json)
最后一句这里我直接调用就提示语法错误怎么回事
加好友 
发短信
Post By：2020/6/3 20:37:00 [只看该作者]
