这个网站页面如何批量查询？ - 编程论坛

#2

hytizj0232023-04-07 15:03

没明白你的意思

#3

laowan0012023-04-07 15:07

返回值是个json，解析就行

#4

sdta2023-04-07 15:19

只有本站会员才能查看附件，请登录

#5

厨师王德榜2023-04-07 15:24

主要关键代码:

程序代码：

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编辑过]

#6

sdta2023-04-07 15:25

傲游、360显示结果

只有本站会员才能查看附件，请登录