网页采集(网页抓取)教程第三课-获取网络图片四种方法,如何判断WebBrowser控件导航结束

liucqa

kangatang 发表于 2012-7-23 14:39
但是在POST的时候，返回结果页面还是要等待的。(尤其对于响应较慢的网页)
而IE打开页面是有进度条的。

进度条是通过http头得到的数据计算的，xmlhttp之类的通过异步方式实时检查http头大概也可以模拟吧，你试试吧

软件爱好者

学习的來了

蘿肥

好东西哦..{:soso_e100:}

bright_chen7

顶起！好文章！

小和子

请教老师，我用第三种方法抓图片，抓一个，成功了，但是我现在有很多图片的网址，我想设置一个循环，让这个程序自动的一个一个的抓。但是好像失败了，提示：拒绝的权限，错误70。
请教老师，这个该怎么解决啊？
一下是我的代码：
Sub HttpDownNetFile()
    Dim nUrl As String, localFilename As String
    Dim XmlHttp As Object, ayrHttpBody() As Byte
    Dim c As Range
   
    For Each c In Worksheets("keyboard").Range("b2:b298") ’我的网址就在这个单元格里
   
    nUrl = c.Value
    localFilename = ThisWorkbook.Path & c.Row & ".png"

    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "GET", nUrl, False       '异步下载
    XmlHttp.Send

    Do Until XmlHttp.ReadyState = 4
        DoEvents
    Loop
   
    If XmlHttp.Status = 200 Then
        ayrHttpBody() = XmlHttp.ResponseBody
        Open localFilename For Binary As #1
        Put #1, , ayrHttpBody()
        Close #1
        MsgBox "成功"
    Else
        MsgBox "失败"
    End If
    Set XmlHttp = Nothing
Next


End Sub

小和子

大师，我解决了，把False改成True就好了，改成异步下载。谢谢，谢谢

liucqa

小和子 发表于 2012-8-10 14:25
请教老师，我用第三种方法抓图片，抓一个，成功了，但是我现在有很多图片的网址，我想设置一个循环，让这个 ...

按F8单步跟踪      

小和子

再次请教大师：我有一些图片的网址，单独点击都能打开，但是我用上面的方法逐条去下载的时候，有些下载不下来，我查看了一下XmlHttp.Status，那些下不下来的都是0.请问这是怎么回事呢？

liucqa

小和子 发表于 2012-8-10 16:16
再次请教大师：我有一些图片的网址，单独点击都能打开，但是我用上面的方法逐条去下载的时候，有些下载不下 ...

除了wb控件，别的方法都不是100%通用的。

你抓包看http提交的过程就知道了

无姓人

大师太有才了，让我受益非浅！找这方面的知识我找了好久，真希望大师能继续讲下去！～！