以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于从网址取数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150649)

--  作者：做自己 --  发布时间：2020/6/3 20:37:00 --  关于从网址取数据 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) 最后一句这里我直接调用就提示语法错误怎么回事

--  作者：有点蓝 --  发布时间：2020/6/4 8:06:00 --   调用接口请使用HttpClient：http://www.foxtable.com/mobilehelp/topics/0246.htm