vb6.0使用WebBrowser控件，如何实现网页按钮点击

Question

vb6.0使用WebBrowser控件，如何编程实现网页按钮点击，已知网页源代码如下，无ID。
div val="2" class="gotobtn jsgotobtn">继续学习

提示，VB6.0+WebBrowser使用下列代码无效。
Dim X As Object
For Each X In WebBrowser1.document.getElementsByTagName("a")
If Trim(X.innerText) = "继续学习" Then
X.Click
Exit For
End If
Next

Answer 1

该回答引用ChatGPT
在VB6.0中使用WebBrowser控件实现网页按钮点击，可以通过模拟鼠标点击的方式来实现。具体步骤如下：
1. 获取按钮元素
首先需要获取到要点击的按钮元素，可以通过WebBrowser控件的document属性获取网页的DOM结构，然后使用getElementsByTagName方法获取所有的按钮元素，再通过遍历找到需要点击的按钮元素。
示例代码：

Dim btn As Object
For Each btn In WebBrowser1.document.getElementsByTagName("div")
    If btn.className = "gotobtn jsgotobtn" Then
        '找到了需要点击的按钮元素
        Exit For
    End If
Next

2. 模拟鼠标点击
获取到需要点击的按钮元素后，可以使用其fireEvent方法模拟鼠标点击事件。具体来说，可以使用"onclick"事件触发器来模拟点击事件，代码如下：

btn.fireEvent "onclick"

完整代码示例：

Dim btn As Object
For Each btn In WebBrowser1.document.getElementsByTagName("div")
    If btn.className = "gotobtn jsgotobtn" Then
        '找到了需要点击的按钮元素
        btn.fireEvent "onclick" '模拟鼠标点击
        Exit For
    End If
Next

注意：如果按钮元素的点击事件是通过JavaScript代码绑定的，那么上述方法可能无效。此时可以尝试使用eval方法执行JavaScript代码来触发点击事件，具体代码如下：

WebBrowser1.document.parentWindow.eval "document.getElementsByClassName('gotobtn jsgotobtn')[0].click();"