这个网站页面如何批量查询?
这个网站页面如何批量查询?https://zy.xywlapi.cc/qqphone?phone=13005877034
最后面是手机号
oXml = CreateObject("MSXML2.XMLHTTP") cUrl = "https://zy.xywlapi.cc/qqphone?phone=13005877034" oXml.Open("GET", cUrl, .F.) oXml.Send() ? oXml.ResponseText * 剩下的,就是解析json了, oJs = CREATEOBJECT("ScriptControl") oJs.Language = "JavaScript" cJsonStr ='var dic1 = ' + oXml.ResponseText oJs.AddCode(cJsonStr) if oJs.CodeObject.dic1.status = 200 then ? "返回状态:" ,oJs.CodeObject.dic1.status ? "返回信息:" ,oJs.CodeObject.dic1.message ? "返回qq:" ,oJs.CodeObject.dic1.qq ? "返回地区:" ,oJs.CodeObject.dic1.phonediqu else ? "返回状态:" ,oJs.CodeObject.dic1.status ? "返回信息:" ,oJs.CodeObject.dic1.message endif
[此贴子已经被作者于2023-4-7 15:42编辑过]