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

ziarat

Private Sub cbnLoad_Click()
     Dim nPicture As Picture

    Set nPicture = LoadNetPicture(tbxURL.Value)                                              '将图片下载到对象
     If Not nPicture Is Nothing Then
         SavePicture nPicture, ThisWorkbook.Path & Application.PathSeparator & "\MyImg.bmp"   '保存到硬盘
         Image1.Picture = nPicture
     Else
         tbxURL.Value = "链接地址错误，不能获取图片"
     End If
End Sub

Public Function LoadNetPicture(ByVal strImgSrcName As String) As Picture
     Dim riid As GUID
     riid.Data1 = &H7BF80980: riid.Data2 = &HBF32: riid.Data3 = &H101A
     riid.Data4(0) = &H8B: riid.Data4(1) = &HBB: riid.Data4(2) = &H0
     riid.Data4(3) = &HAA: riid.Data4(4) = &H0: riid.Data4(5) = &H30
     riid.Data4(6) = &HC: riid.Data4(7) = &HAB
     OleLoadPicturePath StrPtr(strImgSrcName), 0&, 0&, 0&, riid, LoadNetPicture
End Function

Private Sub UserForm_Initialize()
     Dim URL$
     URL = "http://www.baidu.com/img/baidu_logo.gif"             '链接地址
     tbxURL.Value = URL
End Sub

老师，这段代码怎么搞哦，怎么"tbxURL"这个变量老报错，可否发个附件？？感激不尽哦。

liucqa

ziarat 发表于 2012-9-23 13:56
Private Sub cbnLoad_Click()
     Dim nPicture As Picture

你先做个窗体，控件Name看代码。如果不会的话，就找个地方上课去

fc03

技术帖啊，学习了！

ziarat

liucqa 发表于 2012-9-23 15:00
你先做个窗体，控件Name看代码。如果不会的话，就找个地方上课去

做了，但是，图片那个地方的name应该是什么呢？
中间那一段不知道为何总是报错。

beijingboy

好课堂，确实值得认真学习。

longatdream

都是高人啊！

qimenblog

看了楼主的文章后,我深深地感到了自已的浅薄,向楼主看齐的心立即涌上心头,一腔热血的激情下,我弱弱地问一下:
在第一种方法中
Public Function LoadNetPicture(ByVal strImgSrcName As String) As Picture
    Dim riid As GUID           我这儿不能识别GUID对象,我想问楼主,是不是需要添加什么引用啊,还是别的什么原因?
    riid.Data1 = &H7BF80980: riid.Data2 = &HBF32: riid.Data3 = &H101A
    riid.Data4(0) = &H8B: riid.Data4(1) = &HBB: riid.Data4(2) = &H0
    riid.Data4(3) = &HAA: riid.Data4(4) = &H0: riid.Data4(5) = &H30
    riid.Data4(6) = &HC: riid.Data4(7) = &HAB
    OleLoadPicturePath StrPtr(strImgSrcName), 0&, 0&, 0&, riid, LoadNetPicture
End Function

qimenblog

liucqa 发表于 2012-7-22 18:03
三、使用 Microsoft.XMLHTTP 对象，下载网页文件（也可以是图片等其他文件）到硬盘

Sub HttpDownNetFile ...

楼主说：在这里采用异步下载的方式可以避免下载时间过长。我想问：如果设置了等待时间是不是也能解决这个问题呢？而且代码更健壮。

qimenblog

liucqa 发表于 2012-7-22 18:04
四、可以使用WebBrowser控件来导航页面，并遍历图片。这个方法需要熟练掌握控件的使用，适合中高级水平的人 ...

老师,你讲得实在是太精彩了，我真是受益匪浅。不过第四种办法，我这里总显示内存溢出的错误。不知何故。

周秦汉

测试能用，非常感谢大师分享！


受教了！