vba中使用Selenium

xiao99hui · 发表于 2021-6-5 17:27

源理发表于 2018-12-19 07:13
六、元素定位这里我会花大量篇幅来写一下元素定位。为什么呢，其实各位看客可以说是对Excel模型、vb ...

Selenium用谷歌输入账号密码怎么不行，求解？
Sub 测试()
Dim cd As New ChromeDriver
cd.Start
cd.Get "http://tmsgd.savecloud.cn:8092/gytms/mainFrame.html"
cd.FindElementById("login_name").SendKeys "admin"
cd.FindElementById("password").SendKeys "12345678"
cd.FindElementById("loginButton").Click
Stop '看看网页上是不是填好了数据,
'当然现在所有注册页都有防我们这种恶意注册的机制，行为验证是我这种技术破不了的
cd.Quit
End Sub

新建 XLS 工作表.zip (9.67 KB, 下载次数: 5)

luhui001 · 发表于 2021-6-7 15:05

已收藏，正在慢慢学习，感谢楼主！！

a8737461 · 发表于 2021-6-11 17:23

谢谢楼主分享!

schliemann · 发表于 2021-7-15 15:35

mark 周末抽空学习一下。

2234074713 · 发表于 2021-8-10 17:03

源理发表于 2018-12-28 11:19
class如果是唯一的你就能精准定位到那个，如果不是唯一的，你看他第几个
用数组定位是那个就行了

具体是怎么定位

waptx · 发表于 2021-9-19 21:22

大佬，能写个代码吗？一直看不懂啊，只要这个网址：https://www.ickd.cn/shentong.html#No=772014208345571
抓取最后一条更新路由：已签收。把信息发送到Range（A1）
先谢了！

行者之路 · 发表于 2021-10-2 20:56

https://github.com/florentbr/SeleniumBasic 具体文件可以看这个

zouhy0442 · 发表于 2021-10-29 16:40

给大神跪了，太牛了

约定的童话 · 发表于 2021-11-9 16:55

For i = 2 To UBound(arr) Set ele = cb.FindElementById("txtNo") '输入 ele.SendKeys arr(i, 2) cb.Wait 1000 Set ele = cb.FindElementById("ibtnSearch") '搜索 ele.Click cb.Wait 2000 brr = Split(cd.Text, Chr(10)) Next登录上输入信息点击查询之后如何获取当前网页返回的信息？

goldowl2011 · 发表于 2021-11-21 21:11

Mark.Thanks a lot.

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

[原创] vba中使用Selenium