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

ppfjob

研究中, 一定要解决我的问题!!

onlycxb

wcymiss 发表于 2014-10-27 14:05
JSON转换成vba对象

JSON数组在vba内需要用For Each来获取其元素： JSON对象在vba内可直接用“对象.属性” ...

建议采取
CallByName(objJSON.mydata, "name", VbGet)
另一法：定义name对象

1. Sub Test()
   
2.     Const strJSON As String = "{""name"":""甲"",""age"":36}"
   
3.     Dim objJSON As Object, name As Object
   
4.     Dim Cell
   
5.     With CreateObject("msscriptcontrol.scriptcontrol")
   
6.         .Language = "JavaScript"
   
7.         .AddCode "var mydata=" & strJSON
   
8.         Set objJSON = .CodeObject
   
9.     End With
   
10.     Debug.Print objJSON.mydata.age
    
11.     Debug.Print objJSON.mydata.name           '此句在先行定义name对象的情况下，经测试可以通过
    
12. End Sub
    

复制代码

VBA万岁

wcymiss 发表于 2014-10-27 14:05
JSON转换成vba对象

JSON数组在vba内需要用For Each来获取其元素：JSON对象在vba内可直接用“对象.属性” ...

看了链接（3），才知道还有“[原创] 在VBA中使用JAVASCRIPT和VBSCRIPT（3）”这个帖子。

onlycxb

onlycxb 发表于 2014-10-27 14:34
建议采取
CallByName(objJSON.mydata, "name", VbGet)
另一法：定义name对象

复wcymiss ：感谢你的鲜花，这对于我来讲是一种鼓励！此name非彼name吧。一个是变量，一个是属性名。先行定义的用处仅仅是避免了自动大写。但若代码里有vba其他对象的name属性，也会变成小写。这样会不会造成其他困扰呢？

       事先定义对象类型，没有通过Set方式指定。又因是小写所以不会冲突。在特定范围内使用是可以的。如objJSON.mydata.name限定了只是mydate这个层次下的name（非Name属性名称），是可以区分的。又如length，可用多处，代表的是指定的变量或对象，所以还是可以用的。
      如果代码中有其他Name属性，有可能存在干扰。这可能要换一种方式，比如set...,这里可能要灵活处理。所以也在贴子中首先强调了。建议采取CallByName(objJSON.mydata, "name", VbGet)方式。

kangatang

xmyjk 发表于 2014-10-26 16:08
玩一玩。呵呵，我登陆没选下次自动登陆，过一天左右sue和sup就失效了，就没法用了。
所以呵呵，如果要 ...

某些的网站行为如果分析的比较深，会发现很有意思。无论是网页脚本控制的客户端行为（分析网页脚本可知大概），还是服务器端程序的行为（我们看不到源码），背后都有网站设计者制定的一套游戏规则。要跟它玩就得知道游戏规则。它所制定的那么多规则，很大一方面就是为了用户的信息安全。感谢分享。。

wcymiss

编写JavaScript代码处理JSON（一）

个人为了练习分析JavaScript、JSON的能力，常编写JavaScript处理JSON成一个“表格文本”，放入剪贴板后粘贴到工作表内。

此法需要学习JavaScript知识。http://www.w3school.com.cn/js/index.asp

仍以之前的JSON数据为例：

1. Sub Test()
   
2.     Const strJSON As String = "[{""name"":""甲"",""age"":36,""children"":[{""name"":""甲儿"",""age"":10},{""name"":""甲女"",""age"":7}]},{""name"":""乙"",""age"":28,""children"":[{""name"":""乙女"",""age"":6}]}]"
   
3.     Dim strJS As String
   
4.     Dim strTable As String
   
5.    
   
6.     '为了编写方便，假设每个Person的children数组里至少有一个元素：
   
7.     strJS = "var mydata=" & strJSON _
   
8.         & ";var i,j;var s='name\tage\tchildname\tchildage\r';" _
   
9.         & "for(i=0;i<mydata.length;i++){for(j=0;j<mydata[i].children.length;j++)" _
   
10.         & "{s+=mydata[i].name+'\t'+mydata[i].age+'\t'+mydata[i].children[j].name+'\t'+mydata[i].children[j].age+'\r'}};"
    
11.     strTable = JSEval(strJS)
    
12.     Debug.Print strTable
    
13.    
    
14.     CopyToClipbox strTable
    
15.     Cells.Clear
    
16.     Range("a1").Select
    
17.     ActiveSheet.Paste
    
18. End Sub
    
19. 
    
20. Function JSEval(strJS As String) As String
    
21.     With CreateObject("MSScriptControl.ScriptControl")
    
22.         .Language = "javascript"
    
23.         JSEval = .Eval(strJS)
    
24.     End With
    
25. End Function
    
26. 
    
27. Sub CopyToClipbox(strText As String)
    
28.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
29.         .SetText strText
    
30.         .PutInClipboard
    
31.     End With
    
32. End Sub

复制代码

JavaScript的'\t'相当于 vbTab，'\r'相当于 vbCr，取出值后，每列之间用'\t'连接，每行之间用'\r'连接，这样的文本复制到剪贴板后，可直接粘贴到工作表形成表格数据。

本法非主流，不喜勿用！

bluexuemei

wcymiss 发表于 2014-10-27 14:05
JSON转换成vba对象

1、JSON数组在vba内需要用For Each来获取其元素：

关于name，也可以这样解决

1. Sub Test()
   
2.     Const strJSON As String = "{""name"":""甲"",""age"":36}"
   
3.     Set ojs = CreateObject("msscriptcontrol.scriptcontrol"): ojs.Language = "jScript"
   
4.     y = ojs.eval("eval(" & strJSON & ")['name']")
   
5.     MsgBox y
   
6. End Sub
   

复制代码

wcymiss

编写JavaScript代码处理JSON（二）

以70楼的获取QQ群成员列表的数据为例，再上一个处理JSON的例子：

1. Sub Main()
   
2.     Const gc As String = "" '群号
   
3.     Const bkn As String = "" '从fiddler中获取
   
4.     Const uin As String = "" 'QQ号
   
5.     Const skey As String = "" '从fiddler中获取
   
6.     Dim strText As String
   
7.     Dim strJS As String
   
8.     Dim strTable As String
   
9.    
   
10.     With CreateObject("WinHttp.WinHttpRequest.5.1")
    
11.         .Open "GET", "http://qinfo.clt.qq.com/cgi-bin/qun_info/get_group_members_new?gc=" & gc & "&bkn=" & bkn, False
    
12.         .setRequestHeader "Cookie", "uin=o" & uin & "; skey=" & skey
    
13.         .Send
    
14.         strText = .responsetext
    
15.     End With
    
16.    
    
17.     strJS = "var mydata=" & strText _
    
18.         & ";var x,qq,s='qq号\t昵称\t群名片\t等级\r';" _
    
19.         & "var mems=mydata.mems,cards=mydata.cards,lv=mydata.lv,lvname=mydata.levelname;" _
    
20.         & "for(x in mems){qq=mems[x].u;s+=qq+'\t'+mems[x].n+'\t'+(cards[qq]||'')+'\t'+lvname['lvln'+lv[qq].l]+'\r'}"
    
21.     strTable = JSEval(strJS)
    
22. 
    
23.     CopyToClipbox strTable
    
24.     Cells.Clear
    
25.     Range("a1").Select
    
26.     ActiveSheet.Paste
    
27. End Sub

复制代码

此JSON数据内的很多对象都以QQ号为属性名，如mems[qq]可得该成员基本信息，cards[qq]得到群名片信息。所以可以遍历mems对象后获取qq号和昵称，再获取该qq群名片信息和等级信息组成table表。

如果不用JavaScript语句处理此JSON，因为群名片和群员等级在不同的对象里，取出后需要按照QQ号用字典来定位匹配。这样代码就相对较长了。有兴趣的朋友可以写个练练手。

wcymiss

作业四

除了我上面的用javascript代码处理的方式，用其他方式提取群成员列表。包括：qq号、昵称、群名片、等级。

renahu

onlycxb 发表于 2014-10-22 08:25
作业2、网站：http://www.caac.gov.cn/S1/GNCX/，     操作：点击“查询”，获取航班信息数据。'顺便把航 ...

你这个航班价位信息不全啊，机票价格，只有一个，还是重复的，别的价位都没抓出来