现在公开一个DHT网络爬虫网络爬虫供大家一起交流

我引用网站的代码只能提示解析到第一层，关于后面刚开始没方向，乱试了一通，没弄出来，最后才明白json的关键，直接上代码希望后别人也提个醒。 
效果可以看下具体51搜索展示http://www.51bt.cc，结合Xunsearch全文检索技术，可以达到毫秒级的数据搜索

前面代码我就不截了，直接把最重要的贴出来 


dim objtest 
Call InitScriptControl 
Set objtest = getJSONObject(status) 
dim productinfo 
getJSArrayItem productinfo, objtest.data, 0 


就是以前data这一项里面的数据不知道怎么拿。 


现在知道了，希望可以帮助别人。