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

wcymiss

t13564865256 发表于 2015-5-22 17:18
js.addcode ("suwenkai = " & .responsetext)
            slen = js.eval("suwenkai.conte ...

这两句代码的作用是在vba里运行javascript代码，一般是用来解析json数据的。我文章里在处理json数据那部分有讲到。要学会这样的用法，必须先学习javascript。

wcymiss

xuzong 发表于 2015-5-20 21:02
应该就是这个函数来解码的decodeURIComponent(URIstring)
到目前为止，还没有找到在VBA的版本，抓狂

你还是没有仔细看帖啊。。。

lcjy11185

严重做个记号，不懂html也来网抓。

oceanintergy

谢谢吴美女，我这几天试了下，发现用您教的方法，也可以抓出来。（虽然是企业内网的flash格式）

ak47ok

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

试试，就不知自己能否搞定。谢谢！

ak47ok

wcymiss 发表于 2014-10-21 13:19
常用代码及自定义函数：

1、网抓主体代码：代码里的很多""就是留给你的填空题。。。

试了一个，可行，接下来看看如何批量下载了，谢谢！
Sub Main()
    Const strFileName As String = "C:\Downloads\28.jpg"
    With CreateObject("MSXML2.XMLHTTP") 'CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "http://121.40.211.8/api/getservice?orgid=cdyxy&ObjId=m.20110919-SGD-888-0178.ft.cebx.1&UserName=cdyxy00010&MetaId=m.20110919-SGD-888-0178&cult=CN&dbsource=dlib&Time=2015-5-24 10:56:21&Sign=7D0C468211ECF0A916CD5412058B0344&Rights=1-0_00&width=1600&height=2400&page=6&ServiceType=imagepage", False
        .Send
        ByteToFile .responsebody, strFileName
    End With
End Sub
Sub ByteToFile(arrByte, strFileName As String)
    With CreateObject("Adodb.Stream")
        .Type = 1 'adTypeBinary
        .Open
        .Write arrByte
        .SaveToFile strFileName, 2 'adSaveCreateOverWrite
        .Close
    End With
End Sub

ak47ok

wcymiss 发表于 2014-10-21 13:19
常用代码及自定义函数：

1、网抓主体代码：代码里的很多""就是留给你的填空题。。。

要变量，谢谢！

ak47ok

还是没有攻克VBA怎样使用代理来下载，下没几页应给封IP了，谢谢！
Sub Main()
For ii = 1 To [a1]
Dim strFileName As String
    strFileName = "C:\Downloads\" & [b1] & ii & ".jpg" '" & ii & "
    With CreateObject("MSXML2.XMLHTTP") 'CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "http://121.40.211.8/api/getservice?orgid=cdyxy&ObjId=m.20110919-SGD-888-0178.ft.cebx.1&UserName=cdyxy00010&MetaId=m.20110919-SGD-888-0178&cult=CN&dbsource=dlib&Time=2015-5-24 13:27:47&Sign=3BE1B075E9DFB43891568947B3C74E8E&Rights=1-0_00&width=1600&height=2400&page=" & ii & "&ServiceType=imagepage" & ii & "&ServiceType=imagepage", False
        .Send
        ByteToFile .responsebody, strFileName
    End With
Next
End Sub
Sub ByteToFile(arrByte, strFileName As String)
    With CreateObject("Adodb.Stream")
        .Type = 1 'adTypeBinary
        .Open
        .Write arrByte
        .SaveToFile strFileName, 2 'adSaveCreateOverWrite
        .Close
    End With
End Sub

ak47ok

还是每页下载的时间间隔太短？

kszcs

谢谢分享，学习收藏