VB6.0在WebBrowser下无法触发提交按钮

Question

VB6.0在WebBrowser下无法触发<提交试卷>按钮，请求帮助
已知此方式WebBrowser1.document.getElementById("rWaqiaFByAeNfCkL").Click无效。

网页源代码：div class="west" handler="west" solt="west"> div class="ds_container ds_control no_padding" id="rWaqiaFByAeNfCkL" style="top: 0px; width: 300px; bottom: 0px; margin-right: 0px; margin-left: -300px;" ctrl_type="Container" caption="WestView"> div class="ds_exam_timer"> div class="ds_exam_post">提交试卷</div

Answer 1

在VB6.0中，可以通过WebBrowser控件来模拟用户在网页上的操作，包括点击按钮、填写表单等。如果您想在WebBrowser中触发提交试卷按钮，可以按照以下步骤进行操作：

1. 首先，您需要在WebBrowser控件中加载试卷页面。可以使用WebBrowser的Navigate方法来加载页面，例如：

WebBrowser1.Navigate "http://www.example.com/exam.html"

1. 加载页面后，您需要等待页面加载完成。可以使用WebBrowser的DocumentComplete事件来检测页面是否加载完成，例如：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL = "http://www.example.com/exam.html" Then
        ' 页面加载完成，可以进行操作
    End If
End Sub

1. 页面加载完成后，您可以使用WebBrowser的Document对象来获取页面中的元素，例如按钮。可以使用Document的GetElementsByTagName方法来获取所有的按钮元素，例如：

Dim buttons As Object
Set buttons = WebBrowser1.Document.GetElementsByTagName("button")

1. 获取按钮元素后，您可以遍历所有的按钮元素，找到提交试卷按钮。可以使用按钮元素的InnerText属性来获取按钮的文本内容，例如：

Dim button As Object
For Each button In buttons
    If button.InnerText = "提交试卷" Then
        ' 找到提交试卷按钮，可以进行点击操作
        button.Click
        Exit For
    End If
Next

1. 点击按钮后，您需要等待页面重新加载。可以使用WebBrowser的DocumentComplete事件来检测页面是否重新加载完成，例如：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL = "http://www.example.com/result.html" Then
        ' 页面重新加载完成，可以获取结果
    End If
End Sub

以上就是在VB6.0中使用WebBrowser控件触发提交试卷按钮的步骤。需要注意的是，由于WebBrowser控件是基于Internet Explorer的，因此可能存在兼容性问题。如果您遇到了问题，可以尝试使用其他的浏览器控件或者第三方库来实现。