小白也抓网——分享网抓作品

renahu

VBA万岁 发表于 2014-11-21 08:57
我觉得第5句应改为：
s =IIf(Len(s) = 4, "", "00") & s

我觉得第5句应改为：
\u6211\u89C9\u5F97\u7B2C5\u53E5\u5E94\u6539\u4E3A\uFF1A

第一行的内容转成第二行的内容，其中的5没有转

某均

弱弱的问个，如果我想搜的是省份，该怎么改的？

某均

renahu 发表于 2014-11-1 18:59
补充内容 (2014-11-9 14:16):
练习二

准确点说，关于百度地图的抓取，如果我想在 省级地图上搜索，如何调整？
另外这个城市的编码是怎么获取的？

renahu

某均 发表于 2014-11-21 14:50
准确点说，关于百度地图的抓取，如果我想在 省级地图上搜索，如何调整？
另外这个城市的编码是怎么获取的 ...

怎么把百度地图的搜索结果全部导出到Excel文件
http://club.excelhome.net/thread-1156314-1-1.html

VBA万岁

renahu 发表于 2014-11-21 12:20
我觉得第5句应改为：
\u6211\u89C9\u5F97\u7B2C5\u53E5\u5E94\u6539\u4E3A\uFF1A

关于字符串与其unicode码之间的互换，请参见如下代码：

1. Private Function Encode(strEncode As String) As String
   
2.     Dim i As Long
   
3.     Dim chrTmp As String
   
4.     Dim ByteLower As String
   
5.     Dim ByteUpper As String
   
6.     Dim strReturn As String
   
7.     For i = 1 To Len(strEncode)
   
8.         chrTmp$ = Mid(strEncode, i, 1)
   
9.         ByteLower$ = Hex$(AscB(MidB$(chrTmp$, 1, 1)))
   
10.         If Len(ByteLower$) = 1 Then ByteLower$ = "0" & ByteLower$
    
11.         ByteUpper$ = Hex$(AscB(MidB$(chrTmp$, 2, 1)))
    
12.         If Len(ByteUpper$) = 1 Then ByteUpper$ = "0" & ByteUpper$
    
13.         strReturn$ = strReturn$ & "\u" & ByteUpper$ & ByteLower$
    
14.     Next
    
15.     Encode = strReturn$
    
16. End Function
    
17. 
    
18. Sub 获取字符串unicode码()
    
19.     ActiveCell = "HTTP://www.apabi.com/ValidateCode.aspx我觉得第5句应改为："
    
20.     MsgBox Encode(ActiveCell)
    
21.     ActiveCell.Offset(1) = Encode(ActiveCell)
    
22.     ActiveCell.Offset(1).Select
    
23. End Sub
    
24. 
    
25. Function unescape(strTobecoded As String) As String
    
26.     With CreateObject("msscriptcontrol.scriptcontrol")
    
27.         .Language = "JavaScript"
    
28.         unescape = .Eval("unescape('" & strTobecoded & "');")
    
29.     End With
    
30. End Function
    
31. 
    
32. Sub 根据unicode码返回字符串()
    
33.     MsgBox unescape(ActiveCell)
    
34.     ActiveCell.Offset(-1).Select
    
35. End Sub
    

复制代码

VBA万岁

VBA万岁 发表于 2014-11-21 16:43
关于字符串与码之间的互换，请参见如下代码：

其中，Encode函数的出处见于如下帖子1楼的第2段代码：
http://club.excelhome.net/forum.php?mod=viewthread&tid=1146746

ak47ok

coby001 发表于 2014-11-19 14:11
你用一下迅雷的批量下载
看看迅雷是如何设置超时和重连次数的~
以及下载失败是如何显示

向老师学习，
我一贯是用迅雷以列表下载的方法来下载已抓包的读秀电子书！

VBA万岁

VBA万岁 发表于 2014-11-18 10:51
在ThisWorkbook中增加如下代码（红色字体部分），以在打开工作薄时获取图书分类数据。

Private Sub Wo ...

第3版的在打开工作簿时，为了方便看到工作表中的验证码，可在ThisWorkbook中加上如下代码以使窗体最大化：
Application.WindowState = xlMaximized

ak47ok

renahu 发表于 2014-11-21 12:20
我觉得第5句应改为：
\u6211\u89C9\u5F97\u7B2C5\u53E5\u5E94\u6539\u4E3A\uFF1A

麻烦老师有空帮手看看
http://club.excelhome.net/thread-1147786-1-1.html

我在本帖也提了类似问题，谢谢！

renahu

coby001 发表于 2014-11-19 23:23
不错，有进步，用了异步方式，速度快多了

缺点：用了太多的 msgbox，会令人厌烦的。

老师，我发现异步抓取时，一旦抓取中途断网后，大部分情况下，readystate=4，status=12007（服务器名称无法被解析），这时如果把网重新连上，可以继续抓取。但是一旦遇到readystate=1，status=<未指定的错误>，则再连上网，就算重新建立xmlhttp对象，重新发送请求后，回应总是readystate=1，status=<未指定的错误>，无法继续抓取，除非重启excel，不知如何处理？