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

renahu

renahu 发表于 2014-11-28 15:11
吴老师，ifrmid好像也不是随机数吧，他应该是：年月日时分秒帧+好像跟页数有关的数（比如第一页总是25）， ...

呵呵，还真可以，ifrmid不变，只把xml中的页数改过来就可以翻页了，看来这个属于加密失败的吧，呵呵，我把它想得太复杂了，本想也提取一下函数，甚至JS文件，看来还是没有达到锻炼目的呀

顺便问一下老师，那xml那么长的一长串，想放进“” 可费了半天劲，一次放不进去，只能分段往里面粘贴，不知有什么好方法吗

renahu

wcymiss 发表于 2014-11-26 21:53
可以登录的，只是你对登录的判定有问题。最后的responsetext里包含“欢迎您”字符串的话即为登录。

...

吴老师，虽然i动态参数frmid不用管，把它当成静态参数用照样可以抓出数据，但我还是想知道如何用这个网提供的函数生成这个动态参数的值，我主要是想学学如何提取这个函数来生成动态参数，主要是方法，能否麻烦老师给指点一下，谢谢

renahu

wcymiss 发表于 2014-11-16 22:05
经过多次测试，发现也不是漏了两个参数的问题，是登录网站进行查询时，需要设置下发送头里的cookie。

...

又仔细阅读了一遍搜房网（我觉得163的肯定改版了，太难了）的登陆，发现winhttp。xmlhttp其实获取header里的cookie都是三个，内容完全一样，但最后验证只有winhttp成功，吴老师这是怎么回事？

后来我干脆把验证网页（查询个人信息）的整个cookie代码全部复制粘贴到 send后面，还是winhttp成功，XMLHTTP就是验证不成功，好奇怪呀

renahu

wcymiss 发表于 2014-10-29 16:27
复杂登录二：58同城登录

吴老师，58的登陆代码执行有误，我发现老师把网址输错了，http后面多了个s（是不是58给改了吧？），另外p1,p2的计算也出现错误，请老师再执行看看

wcymiss

renahu 发表于 2014-11-29 09:33
吴老师，虽然i动态参数frmid不用管，把它当成静态参数用照样可以抓出数据，但我还是想知道如何用这个网提 ...

1. Sub Main()
   
2.     Static ruidIndex As Integer
   
3.     Dim strText As String
   
4.     With CreateObject("MSXML2.XMLHTTP")
   
5.         .Open "GET", "http://www.rtshutu.com/basedata/format/release/aspx/1aecf7e5000b940bce.aspx?&pinst=1ad691ca0000cc0bce", False
   
6.         .Send
   
7.         strText = .responseText
   
8.     End With
   
9.     With CreateObject("HTMLFILE")
   
10.         .write strText & "<script>var ruidIndex=" & ruidIndex & "</script>"
    
11.         Debug.Print .parentWindow.eval("GenerateRUID()")
    
12.         ruidIndex = ruidIndex + 1
    
13.     End With
    
14. End Sub

复制代码

renahu

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

谢谢老师，顺便问一下，这个单词ruid什么意思？是什么缩写？网上查不到，ruidIndex是。。索引，记录什么的？

renahu

renahu 发表于 2014-12-1 10:13
谢谢老师，顺便问一下，这个单词ruid什么意思？是什么缩写？网上查不到，ruidIndex是。。索引，记录什么的 ...

看了（许多条件语句），就是没看懂这个参数是干嘛的，我执行了您提供的代码，感觉像是登陆的次数

renahu

renahu 发表于 2014-12-1 08:42
吴老师，58的登陆代码执行有误，我发现老师把网址输错了，http后面多了个s（是不是58给改了吧？），另外p ...

可是https时
    '获取主页面的源代码
    objXML.Open "GET", strHost & "/login", False
    objXML.Send   ‘这个地方就出错了，去掉s就好了

renahu

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

    '找到所需的第三个JS文件名并GET到缓存
    strText = objXML.responsetext
    CopyToClipbox (strText)
    arrJSFile(2) = Split(Split(strText, "try{var d=""")(1), """")(0) & Split(Split(strText, "just"":""")(1), """")(0) & "_102.js"
    objXML.Open "GET", arrJSFile(2), False
    objXML.Send

吴老师，第三个JS文件后面好像多了个 _102 ，现在p1,p2倒是通过了，但最后提示不成功，看来这个JS可能完全不同了，慢慢找吧

suyunlong123

千呼万唤 终于等到了一个适合菜鸟的基础东东  谢谢楼主分享