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

liangdonghao222

liangdonghao222 发表于 2014-11-4 14:02
谢谢吴姐，但我还想问一下，，，一些需要上传图片的？也是按照那个上传文件那样做还是？？

吴姐   get  的网址后面有动态参数怎么办？？？那是不能循环查询？

VBA万岁

wcymiss 发表于 2014-10-24 12:07
提取数据-下载文件
知道下载文件的真实地址，就能很方便的用xmlhttp或winhttp下载文件。

老师，我这里运行代码时会弹出如下错误，是否需要添加什么引用，还是需要编写自定义函数ByteToFile？

VBA万岁

VBA万岁 发表于 2014-11-5 10:57
老师，我这里运行代码时会弹出如下错误，是否需要添加什么引用，还是需要编写自定义函数ByteToFile？

回看本帖，解决了——复制11楼的转码函数ByteToFile到代码中即可。

wcymiss

liangdonghao922 发表于 2014-11-4 20:38
吴姐，假如抓包这样的地址   get方式     http://www.131458.com/handler/TaobaoInfo.ashx?nickCode=%u4E ...

呃，Token找到算法不难，关键Javascript不熟悉，被那个extend给难了下，最后还是自己草草定义个方法。

1. Sub Main()
   
2.     Dim strText As String
   
3.     Dim strJS As String
   
4.     Dim Token, c, nickCode
   
5.     nickCode = "为y消得人憔悴"
   
6.    
   
7.     With CreateObject("MSXML2.XMLHTTP")
   
8.         .Open "GET", "http://www.131458.com/js/jquery.js?verr=108", False
   
9.         .Send
   
10.         strText = .responsetext
    
11.         
    
12.         strJS = Split(strText, "})(window);")(1) '抠出所需Javascript代码
    
13.         strJS = "var jQuery={};jQuery.extend=function(a){jQuery.Token=a.Token};" & strJS '定义extend方法
    
14.         Token = JSEval(strJS & ";jQuery.Token('" & nickCode & "');") '计算Token值
    
15.         
    
16.         .Open "GET", "http://www.131458.com/js/taobao.js?ver=1115", False
    
17.         .Send
    
18.         strText = .responsetext
    
19.         c = Split(Split(strText, "token+""&c=")(1), """")(0)
    
20. 
    
21.         .Open "GET", "http://www.131458.com/handler/TaobaoInfo.ashx?nickCode=" & JSEval("escape('" & nickCode & "')") & "&token=" & Token & "&c=" & c & "&_=" & Rnd, False
    
22.         .Send
    
23.         strText = .responsetext
    
24.         Debug.Print strText
    
25.     End With
    
26. End Sub
    
27. Function JSEval(s As String) As String
    
28.     With CreateObject("MSScriptControl.ScriptControl")
    
29.         .Language = "javascript"
    
30.         JSEval = .Eval(s)
    
31.     End With
    
32. End Function

复制代码

这个js文件里的代码前半部分估计和IE6不兼容。否则用htmlfile导入这个文件执行下函数就出来了。现在却要抠来抠去的，还要自己定义extend。

无姓人

请问吴姐，我为什么运行13楼的代码，逐语句到.send就出现错误。
最开始13楼的代码能正常运行，也能取数，后来不知道什么原因死机后，再进来运行13楼的代码就不行了。如图：

wcymiss

无姓人 发表于 2014-11-5 14:00
请问吴姐，我为什么运行13楼的代码，逐语句到.send就出现错误。
最开始13楼的代码能正常运行，也能取数，后 ...

试试这样：
关闭excel，用IE浏览器，打开那个链接。

如果能打开，就打开excel运行代码，仍然出错的话，估计是excel的问题了。

如果IE打不开，检查下IE里的设置。比如代理服务器什么的，是不是被设置了。

blanksoul12

網抓實在有太多其他問題了,原來只學了入門,很多網也抓不出來,給大家玩玩,吴姐請不要出手,等大家有興趣而又找不到才出手吧.
http://club.excelhome.net/thread-1163441-1-1.html

renahu

wcymiss 发表于 2014-10-21 11:33
个人偏爱fiddler的原因：（唠叨话，可略过）

1、fiddler不需要寄生在浏览器中，且可抓到多个浏览器的包。 ...

吴老师，谢谢您的献花，想问个问题
网抓到了图片地址，怎么让图片在表里显示出来？
http://club.excelhome.net/thread-1163537-1-1.html

renahu

renahu 发表于 2014-11-5 16:06
吴老师，谢谢您的献花，想问个问题
网抓到了图片地址，怎么让图片在表里显示出来？
http://club.excelh ...

谢谢老师，可以插入图片了，太棒了，不知道网上抓来的这个图，是死的还是活的，但愿第二天能够更新

无姓人

wcymiss 发表于 2014-11-5 14:14
试试这样：
关闭excel，用IE浏览器，打开那个链接。

谢谢吴姐！问题解决了！原来是网址不通造成的，现在好了！看来还要加个判断，判断网址通不通