易截截图软件、单文件、免安装、纯绿色、仅160KB

如何用VB采集部分网页数据

要采集的页面:http://city.qzone.qq.com/html/user/searchpro.htm#mod=0&act=city&cd=120000&pg=1

我想把搜索出来的QQ都采集出来,该怎么做。看了下代码好像不是普通的那种,网址里把1改成2没用。
是不是要会员才行?你的连接我用浏览器浏览会变成:
http://city.qzone.qq.com/html/user/searchpro.htm#mod=0&act=city&cd=120000


不要会员的,那个后面的pg=1基本的无效的,不管改成2还是3都是在第一页,当点击底部的页码1234时浏览器地址会变化1234等等


学习

学习

再学习

引用
http://city.qzone.qq.com/json.php?mod=sososearch&act=page&type=city&jsontype=str&callback=searchProCb&xb=1&nl=3&cd=120000&pg=7

得到的是下面一串东西:
searchProCb({"responseHeader": {"status":"0","QTime":"8"},"response": {"numFound":"10000000","currentNum":"10000","results":[],"CorrectPin": [],"SimilarWords": []}});

引用
http://city.qzone.qq.com/json.php?mod=sososearch&act=page&type=city&jsontype=str&callback=searchProCb&xb=1&nl=3&cd=120000&pg=7

知道了,其实这个我也抓包抓到的,测试的时候也将引用页放进去了,只是sendata有点问题,现在好了,不过还是谢谢你

学习


相关问答:

vb打印问题


Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

VB文件操作

Private Sub Command1_Click()

    Dim m As Integer    '接受文本框一的数值
    Dim n As Integer  '接受文本框二的数值
    Dim k As Integ ......

vb adodb.stream write写入网页代码为utf8编码的问题

从网页通过inet控件的Inet1.GetChunk读取其代码,然后想转换为汉字,转换代码如下
Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim strRecText As String
    Dim st ......

VB/VB.Net如何实现用Label在不同位置移动的效果?

还记得上微软网站更新系统补丁时,每当勾选一个升级项时,在当前勾选的位置会出现一个带文字的黑框平滑的飞向已选数量的位置上并加1,当取消勾选时以相反的方向从已选数量的位置上飞回并减1,这个效果动感有个性,现 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号