|
本帖最后由 onlycxb 于 2014-11-13 12:53 编辑
snailzlf 发表于 2014-10-29 14:26
还是我自己来 结贴吧 看到上面有个很火的大神贴 用fiddler查看了下网页包 ,发现这个未显示的数据还是从 ... - Sub test()
- Dim DB, js
- With CreateObject("MSXML2.XMLHTTP")
- .Open "GET", "http://shanghai.anjuke.com/v3/ajax/nearby/?commid=106&cityid=11&callback=life_url_callback&J1415845726403 ", False
- .Send
- End With
- Set js = CreateObject("scriptcontrol")
- js.Language = "jscript"
- js.addcode ("var dy=" & Split(w.ResponseText, "life_url_callback")(1))
- Set DB = js.eval("dy.result")
- Debug.Print CallByName(DB.school, "name", VbGet) & ":" _
- & CallByName(DB.school, "distance", VbGet) / 1000 & "公里内学校,包括:" _
- & CallByName(DB.school.attr, "nursery", VbGet) & "所幼儿园," _
- & CallByName(DB.school.attr, "junior", VbGet) & "所小学," _
- & CallByName(DB.school.attr, "middlel", VbGet) & "所中学"
-
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|