双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何获取网页图片，请高手帮解决，谢谢了

2011-11-28 03:36:29 150 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

gxjr2008 墨衍会员 · AI 创作全网分发关注 + 加入社区

Python爬虫抓取js添加到网页的图片采用PyQt5+urllib3+BeautifulSoup4进行动态网页的图片抓取爬虫 &amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;心血来潮，想在某个网站抓取图片，结果用requests下载下来，却发现，里面不含有图片，也就是说，图片全是由js等代码放到页面上去的，所以，requests下载的页面并没有执行js内容，于是就不能从里面找到所要的图片。为了解决这个问题，聪明的网友们发现用PyQt... 阅读详情

网页代码如下：
联系方式：<span class="followMob"><label class='mobile' code="%02%34%18%15%0A%17%04%1A%36%00%19%24%31%39%0F%0E%1D%11%21%34%22%07" src="http://static.baixing.net/pages/mobile.php?c=%02%34%18%15%0A%17%04%1A%36%00%19%24%31%39%0F%0E%1D%11%21%34%22%07/3.jpg"></label>

请高手，劳烦一下，帮代码写出来，本人新手，，，谢谢了，，，只要获取图片地址就行了。。。谢谢啦

...全文

图片助手大揭秘！网页图片高效获取管理就靠它！在信息如洪流般奔涌的当下，图片宛如璀璨星辰，点缀着我们日常生活的每一处角落。无论是刷社交媒体时被精美的图片吸引，还是在浏览网页时需要收集资料图片，高效获取和管理这些图片资源都成了我们的迫切需求。然而，手动一张张下载、整理图片，不仅费时费力，还容易出错。别担心！一款名为图片助手（ImageAssistant）的浏览器扩展软件宛如救星降临，它专为解决网页图片获取与管理难题而生。接下来，就让我们一同揭开它的神秘面纱，探寻它的强大功能与独特魅力！阅读详情

gxjr2008

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

奋斗小青年 2011-11-29

打赏
举报

里面有固定格式的。先找到Img 再就是SRC后就是了

ZOUYONG0929 2011-11-28

打赏
举报

    With XMLHTTP60

        '可设置 异步 True 同步 False

        .open "GET", "http://www.XXX.com/3.jpg" & Path, True

        '异步通知回调函数

        .onreadystatechange = AEF   '回调函数 默认函数

        .send

'也可以使用同步 把AEF函数出来步骤放在下面

     End With



 function AEF()

  Dim ADOStream As ADODB.Stream

  Dim fso As Scripting.FileSystemObject

  '判读是否正确请求

  if XMLHTTP60.readyState <> 4 then exit function

  '接收数据 

  if XMLHTTP60.Status=200 then

     '数据下载完毕

     Set ADOStream = New ADODB.Stream

     Set fso = New Scripting.FileSystemObject

     ADOStream .Type = adTypeBinary

     ADOStream .open

     ADOStream .Write XMLHTTP60.responseBody

     ADOStream.SaveToFile  "X:\XXX.jpg", adSaveCreateOverWrite

     ADOStream.Close

   else

     'Error

  end if

end function



'网页图片地址截取 这个出来方式很多  比如 

X1=Instr(1,"样本","Src=") 

X2=Instr(1,"样本",".jpg")

ImageSrc=mid("样本",X1+4,X2-X1)  '+4 为 Src= 之后才是图片地址跳过 Src=

无·法 2011-11-28

打赏
举报

'此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程

Private Sub TestReg()

    Dim strData As String

    Dim reg As Object

    Dim matchs As Object, match As Object



    strData = "联系方式：<span class=""followMob""><label class='mobile' code=""%02%34%18%15%0A%17%04%1A%36%00%19%24%31%39%0F%0E%1D%11%21%34%22%07"" src=""http://static.baixing.net/pages/mobile.php?c=%02%34%18%15%0A%17%04%1A%36%00%19%24%31%39%0F%0E%1D%11%21%34%22%07/3.jpg""></label>  "



    Set reg = CreateObject("vbscript.regExp")

    reg.Global = True

    reg.IgnoreCase = True

    reg.MultiLine = True

    reg.Pattern = "class=""followMob"">.*?src=""(.+?)"""

    Set matchs = reg.Execute(strData)

    For Each match In matchs

        'Debug.Print match.Value

        Debug.Print match.SubMatches(0)

    Next

End Sub

gxjr2008 2011-11-28

打赏
举报

每次的图片地址是不一样的，，，

booksoon 2011-11-28

打赏
举报

直接从网页代码中读取http://static.baixing.net/pages/mobile.php?c=%02%34%18%15%0A%17%04%1A%36%00%19%24%31%39%0F%0E%1D%11%21%34%22%07/3.jpg就好了~~~

✦双11狂欢大促✦

如何获取网页图片，请高手帮解决，谢谢了

相关推荐

双11狂欢大促