网页登录问题

jerryclj

<input class="login_btn" type="submit" value="登录">
<input class="login_btn" type="button" value="忘记密码">

各位大师 ,请问像上面这种没有ID名,classname也不可用的按钮如何点呀?求解
Option Explicit



Private Sub CommandButton1_Click()
Dim doc As Object
Set doc = Me.WebBrowser1.document

'填写内容
doc.getElementById("username").innerText = "131081197612051096" 'Me.TextBox1
doc.getElementById("pwd").innerText = "888888" 'Me.TextBox2


'提交表单

doc.getElementsBycalssname("login_btn").Click

End Sub



Private Sub UserForm_Initialize()
    Me.WebBrowser1.navigate "http://www.hebgb.gov.cn"

End Sub

perfect131

注意大小写，你也可以用 doc.querySelector ,仅供参考
document.getElementsByClassName('login_btn').item(0).click();
document.querySelector("input[class='login_btn']").click();

jerryclj

perfect131 发表于 2022-12-12 19:38
注意大小写，你也可以用 doc.querySelector ,仅供参考
document.getElementsByClassName('login_btn').ite ...

谢谢您这么快就给了一个方法.
我转了一下vba里的语句进行了测试,没成功
语句是这样改的
document.getElementsByClassName("login_btn").item(0).click'单引号我的vba不认
document.querySelector("input[class='login_btn']").click

perfect131

jerryclj 发表于 2022-12-12 20:15
谢谢您这么快就给了一个方法.
我转了一下vba里的语句进行了测试,没成功
语句是这样改的

不是 document.getElementsByClassName 是 doc.getElementsByClassName

jerryclj

老师,真不行,我把操作视频录下来了,各种试的方法
测试过程

jerryclj

jerryclj 发表于 2022-12-16 21:00
老师,真不行,我把操作视频录下来了,各种试的方法
测试过程

怪不得没人回复了，测试过程的视频链接，审核完没了，靠