不懂html也来学网抓（xmlhttp/winhttp+fiddler）

renahu · 发表于 2014-12-1 13:58

wcymiss 发表于 2014-12-1 10:08

吴老师，附件中是我抓图书的类别和按类别ID循环抓各类别的总数，我尝试把您提供的frmid代码放进去，获取那个和时间有关的数字（其实像您说的，不用这个frmid确实能够获得这些数据，我就是想看看加上这个动态参数会怎么样），但出现“自动化”错误，不知哪里出错了，麻烦您有空帮我看看，谢谢

抓图书类别和总数.rar (23.49 KB, 下载次数: 10)

renahu · 发表于 2014-12-1 14:34

renahu 发表于 2014-12-1 13:58
吴老师，附件中是我抓图书的类别和按类别ID循环抓各类别的总数，我尝试把您提供的frmid代码放进去，获取 ...

唉，错误太低级了，谢谢老师，不过他的错误提示也太奇怪了，还自动化错误

终于学到点通过html对象利用网页中的公式进行计算的方法，感觉很朦胧，只能照猫画虎，没完全理解，比如父窗体求值.parentWindow，老师能不能给推荐个网址，想了解一下html对象的使用方法

renahu · 发表于 2014-12-1 14:39

renahu 发表于 2014-12-1 13:58
吴老师，附件中是我抓图书的类别和按类别ID循环抓各类别的总数，我尝试把您提供的frmid代码放进去，获取 ...

我就没明白这个网站弄这么个动态参数，目的何在呀，不用提起，就用同一个参数，把它当成静态的不是一样可以抓取吗，呵呵，弄这么个数唬人的吧？

renahu · 发表于 2014-12-1 14:52

wcymiss 发表于 2014-11-18 15:30
getm32str函数所在js文件名：
https: //passport.58.com/js/v6/source/828ef34c77a2cbed693ba874ce570df ...

https: //passport.58.com/rsa/ppt_security.js 这个js文件的代码包含了JQuery的语法

吴老师，所谓JQuery的语法大概特点是不是前面带$？，比如我网上查到的：$("#test").hide()，是不是看到有这种标记的句子就考虑下载JQuery文件？

renahu · 发表于 2014-12-1 15:02

renahu 发表于 2014-12-1 14:39
我就没明白这个网站弄这么个动态参数，目的何在呀，不用提起，就用同一个参数，把它当成静态的不是一样可 ...

连POST都不是唬人的。.Open "GET", "http://www.rtshutu.com/basedata/format/release/aspx/1aecf7e5000b940bce.aspx?&pinst=1ad691ca0000cc0bce&navruid=" & brr(i, 0), False

没明白什么意思

wcymiss · 发表于 2014-12-1 15:59

本帖最后由 wcymiss 于 2014-12-1 16:07 编辑

renahu 发表于 2014-12-1 15:02
连POST都不是唬人的。.Open "GET", "http://www.rtshutu.com/basedata/format/release/aspx/1aecf7e5000b ...

Sub 抓图书类别和总数()
Dim i As Integer
Dim strText As String
Dim arr, brr()
Dim objWB As Object
Dim objHTTP As Object
Const strURL As String = "http://www.rtshutu.com/basedata/format/release/aspx/1aecf7e5000b940bce.aspx?pinst=1ad691ca0000cc0bce&navruid="
Const ParentNavruid As String = "1ad180a50009a40bce"
Set objWB = Sheets("分类数据")
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
With objHTTP
.Open "GET", strURL & ParentNavruid, False
.Send
arr = Split(.ResponseText, "div class=""navseccl"" id=""")
ReDim brr(0 To UBound(arr), 0 To 2)
brr(0, 0) = ParentNavruid
brr(0, 1) = "全部"
brr(0, 2) = Split(Split(arr(UBound(arr)), "readonly=""true"">")(1), "<")(0)
For i = 1 To UBound(arr)
brr(i, 0) = Split(arr(i), """>")(0)
brr(i, 1) = Split(Split(arr(i), """ title=""")(1), """")(0)
.Open "GET", strURL & brr(i, 0), False
.Send
brr(i, 2) = Split(Split(.ResponseText, "readonly=""true"">")(1), "<")(0)
Next
End With
With objWB
.Range("a6:c" & .Rows.Count).ClearContents
.[a6:c6] = [{"类别ID","类别","总数"}]
.[a7].Resize(UBound(brr) + 1, 3) = brr
End With
Set objWB = Nothing
Set objHTTP = Nothing
End Sub

复制代码

不过这个网站用POST的话速度快。因为它的responsetext的字节少。

renahu · 发表于 2014-12-1 16:24

本帖最后由 renahu 于 2014-12-2 15:40 编辑

wcymiss 发表于 2014-12-1 15:59
不过这个网站用POST的话速度快。因为它的responsetext的字节少。

但 post 有个 XML参数，太长了，还是老师这个简单，看着舒服

我的58同城的终于可以登录了，发个附件（含账号），供大家练习用吧

我怎么发现有的时候总是提示登录不成功，如果你去网页手动登录后，就算再退出，你用程序登录就会总是成功，很奇怪

今晚好像全面改版了，这几个参数全部玩儿失踪，这个58今天早上又好了，搞什么名堂
又搞了一个赶集网登陆，感觉太简单，都有点怀疑是否真登陆上了，让吴老师给看看

登陆练习2.rar (27.48 KB, 下载次数: 33)

renahu · 发表于 2014-12-2 11:46

wcymiss 发表于 2014-12-1 15:59
不过这个网站用POST的话速度快。因为它的responsetext的字节少。

吴老师，我发现163改版后，真是太难登陆了，我感觉参数 rcode应该是加了密的登陆密码，可就是搜索不到这个参数，如果某个参数总也搜索不到，一般有什么对策？

renahu · 发表于 2014-12-2 13:05

wcymiss 发表于 2014-12-1 15:59
不过这个网站用POST的话速度快。因为它的responsetext的字节少。

吴老师，觉赶集网没有真正登陆上，必须手动登陆后，才能通过代码查个人信息，一旦退出，并清历史记录
把excel重启，执行代码，提示验证不成功

renahu · 发表于 2014-12-2 13:29

wcymiss 发表于 2014-12-1 15:59
不过这个网站用POST的话速度快。因为它的responsetext的字节少。

163原来那个地址在fiddler里已经找不到了，现在用fiddler查到的地址很难登陆上

		自动登录	找回密码
密码			免费注册

[原创] 不懂html也来学网抓（xmlhttp/winhttp+fiddler）

点评

点评

点评

点评

点评