【已解决】.aspx网抓的坎

约定的童话 · 发表于 2021-10-29 05:39

本帖最后由约定的童话于 2021-11-10 15:39 编辑

求助.jpg

红色那句报错，Win10 64位+Office 2021 32位解决方案核心代码：
t = Application.RandBetween(1, 8) * 1000 '1-8秒的随机
      cb.Get "http://www.hnbzw.com/Standard/StdSearch.aspx" '打开网站，模拟登陆
      Set ele = cb.FindElementById("txtNo") '锁定输入框
      ele.SendKeys arr(i, 2)
      Set ele = cb.FindElementById("ibtnSearch") '点击搜索按钮
      ele.Click
      cb.Wait t '随机延迟一下
      ar = Split(cb.PageSource, Chr(10)) '获取全部网页元素
IE版本.jpg

zpy2 · 发表于 2021-10-29 08:15

估计是还没加载完成，标签还没渲染，不存在这个 id,油猴子了解一下，不错的。

chis3 · 发表于 2021-10-29 12:19

可能太快了吧
加些wait 或什麼 .busy = false之類

sheeboard · 发表于 2021-10-29 15:15

可能是网页有多个frame组成，元素不在默认frame里

tspliu · 发表于 2021-10-29 16:55

用selenium吧，一点问题都没有
新建位图图像.jpg

约定的童话 · 发表于 2021-10-29 18:23

zpy2 发表于 2021-10-29 08:15
估计是还没加载完成，标签还没渲染，不存在这个 id,油猴子了解一下，不错的。

加了等待要好久，造成假死，所以没敢用

约定的童话 · 发表于 2021-10-29 18:26

本帖最后由约定的童话于 2021-10-29 18:40 编辑

tspliu 发表于 2021-10-29 16:55
用selenium吧，一点问题都没有

selenium属实强大，VBA针对这种aspx的数据获取貌似无解了，太复杂了

约定的童话 · 发表于 2021-10-29 18:27

sheeboard 发表于 2021-10-29 15:15
可能是网页有多个frame组成，元素不在默认frame里

你那边也报错吗？

约定的童话 · 发表于 2021-10-29 18:27

chis3 发表于 2021-10-29 12:19
可能太快了吧
加些wait 或什麼 .busy = false之類

加了造成假死，没敢上

约定的童话 · 发表于 2021-11-9 20:52

tspliu 发表于 2021-10-29 16:55
用selenium吧，一点问题都没有

element.click之后咋获取当前页面的元素？

		自动登录	找回密码
密码			免费注册

[求助] 【已解决】.aspx网抓的坎

评分