这个网站页面如何批量查询?
这个网站页面如何批量查询?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编辑过]