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

etsure

wcymiss 发表于 2014-10-23 09:53
之前提过，QQ软件也可以用Fiddler抓包。
我们来抓抓群成员的清单。
1、打开fiddler，打开群聊天窗口，“群 ...

qq国际版的不能抓取

etsure

kangatang 发表于 2014-11-1 00:09
看立即窗口

睡醒的我

wcymiss 发表于 2014-10-31 14:52
这里留个空位，有精力就再写个登录。。

接下去是上传了。。

大师，我提一个登录例子的建议..像银行的网上银行的用户名登录，这种例子极少看到
1、比如中国银行的网上银行登录 https://ebsnew.boc.cn/boc15/login.html
2、比如中国农业银行的个人网银卡号登录  https://easyabc.95599.cn/commbank/netBank/zh_CN/CommLogin.aspx
好吧，谢谢大师！
我们公司出纳资金部门，有上百张银行卡，每张都有交易记录和余额每天查，汇总给董事长，所以才有此想法做一个自动生成的...

liangdonghao222

睡醒的我 发表于 2014-11-1 09:34
大师，我提一个登录例子的建议..像银行的网上银行的用户名登录，这种例子极少看到
1、比如中国银行的网上 ...

登陆的例子楼主已经说了，翻翻帖子吧

renahu

吴老师，在fiddler中怎么在json中查找汉字呀？有些编码把汉字写成\uxxxx\uxxxx，所以没法搜中文，除非把中文转成\uxxxx\uxxxx，就能搜到，而json中就有中文，但不知道在这里面怎么搜

renahu

renahu 发表于 2014-11-1 10:26
吴老师，在fiddler中怎么在json中查找汉字呀？有些编码把汉字写成\uxxxx\uxxxx，所以没法搜中文，除非把中文 ...

我在百度地图里面搜 “餐饮”，搜出的画面左侧列出：全聚德，北京宴。。。，在fiddler中不搜这几个中文名字，搜什么呀，也没数字可搜

liangdonghao222

renahu 发表于 2014-11-1 10:35
我在百度地图里面搜 “餐饮”，搜出的画面左侧列出：全聚德，北京宴。。。，在fiddler中不搜这几个中文名 ...

建议重新看一下帖子里面的教程，昨晚再看一次，其实吴姐讲的很详细的了

VBA万岁

wcymiss 发表于 2014-10-31 14:52
这里留个空位，有精力就再写个登录。。

接下去是上传了。。

期待中......

rorbin36

wcymiss 发表于 2014-10-21 11:25
vba网抓常用方法：

1、xmlhttp/winhttp法：

楼主好人，学习中！

onlycxb

renahu 发表于 2014-11-1 10:26
吴老师，在fiddler中怎么在json中查找汉字呀？有些编码把汉字写成\uxxxx\uxxxx，所以没法搜中文，除非把中文 ...

看到总是有人纠结汉字编码问题，现提供一段代码，希望别被误导。
因为涉及到的一些函数会因不同情况而返回不同的结果。（为防止歧义，对网上搜集的无用函数进行了删减）

1. Sub 转码示例01()
   
2.     Debug.Print escape("搜房网")                                '输出结果：%u641C%u623F%u7F51
   
3.     Debug.Print ChtoJ3("搜房网")                                '输出结果：\u641c\u623f\u7f51
   
4. 
   
5.     Debug.Print unescape("%u641C%u623F%u7F51")          '输出结果：'搜房网
   
6.     Debug.Print unescape("\u641c\u623f\u7f51")                   '输出结果：搜房网
   
7. End Sub

复制代码

1. Function escape(strInput As String) As String
   
2.     With CreateObject("msscriptcontrol.scriptcontrol")
   
3.         .Language = "JavaScript"
   
4.         escape = .Eval("escape('" & strInput & "');")
   
5.     End With
   
6. End Function

复制代码

1. Function unescape(strTobecoded As String) As String
   
2.     With CreateObject("msscriptcontrol.scriptcontrol")
   
3.         .Language = "JavaScript"
   
4.         unescape = .Eval("unescape('" & strTobecoded & "');")
   
5.     End With
   
6. End Function

复制代码

1. Function ChtoJ3(szCode As String)
   
2.     With CreateObject("MSScriptControl.ScriptControl")
   
3.         .Language = "JavaScript"
   
4.         .addcode "function decode(str){return escape(str).replace(/%/g,'\\')}"
   
5.         ChtoJ3 = .Eval("decode('" & szCode & "')")
   
6.     End With
   
7. End Function
   

复制代码

JavaScript有大量的类似函数，可以结合实际稍加改造拿来用。