- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]抓取数据一开始就出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152830)
-- 发布时间：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
请问何解，
我想得到该网页上小程序码的网址，请问能给出答案吗
-- 发布时间：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
至于怎么分析网页数据请自行学习解决，这里不提供给这方面的技术支持
-- 发布时间：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，用法如下，获取到的居然不是，求大神帮忙解决
上面这个能获取到店铺头像，但是用同样方法获取不到小程序码的图片网址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
-- 发布时间：2020/8/20 11:48:00
--
这里不提供网页的数据分析和抓取技术支持，请自行学习解决
[此贴子已经被作者于2020/8/20 11:47:50编辑过]