Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]抓取数据一开始就出错


  共有3500人关注过本帖树形打印复制链接

主题：[求助]抓取数据一开始就出错
帅哥哟，离线，有人找我吗？
188802386
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		[求助]抓取数据一开始就出错  发帖心情 Post By：2020/7/23 11:51:00 [只看该作者]

如图
图片点击可在新窗口打开查看此主题相关图片如下：tim图片20200723114654.png
图片点击可在新窗口打开查看
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("https://dianpu.ke.com/1000001000262269")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
请问何解，
我想得到该网页上小程序码的网址，请问能给出答案吗
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/23 12:00:00 [只看该作者]

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("https://dianpu.ke.com/1000001000262269")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

至于怎么分析网页数据请自行学习解决，这里不提供给这方面的技术支持
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2020/8/20 11:20:00 [只看该作者]

‘获取店铺头像
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("https://dianpu.ke.com/1000001000262269")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
For Each dl As object In web.Document.GetElementsByTagName("DIV")
    If dl.GetAttribute("classname") = "agent-content" Then
        For Each dl1 As object In dl.GetElementsByTagName("Img")
            output.show(dl1.GetAttribute("src"))
        Next
    End If
Next
上面这个能获取到店铺头像，但是用同样方法获取不到小程序码的图片网址https://image1.ljcdn.com/params-compact/d8a2dbbfb8397845348fb2c329dd7b6f.jpeg，用法如下，获取到的居然不是，求大神帮忙解决
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("https://dianpu.ke.com/1000001000262269")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
For Each dl As object In web.Document.GetElementsByTagName("DIV")
    If dl.GetAttribute("classname") = "wxcode-wrapper" Then
        For Each dl1 As object In dl.GetElementsByTagName("Img")
            output.show(dl1.GetAttribute("src"))
        Next
    End If
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/20 11:48:00 [只看该作者]

这里不提供网页的数据分析和抓取技术支持，请自行学习解决


[此贴子已经被作者于2020/8/20 11:47:50编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询