Question

这是我的代码

            Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
        For Each CurElement As HtmlElement In PageElements
            If InStr(CurElement.InnerHtml, "Sign In") Then
                CurElement.InvokeMember("click")
            End If
        Next

HTML图片：http://prntscr.com/611gpe

我不知道应该放在那里。那个“登录”不起作用。我需要改变它吗？

Answer 1

我的第一个问题是，如果您单步执行调试器是进入InvokeMember行还是字符串比较真的没有在InnerHtml中找到“登录”？

在过去使用webbrowser控件时，我必须在InvokeMember之后放置一个“Application.DoEvents”（DoEvents处理消息队列中的所有消息）。这对于性能来说太糟糕了，但是如果你正在使用InvokeMember行，它可能会使你的代码正常工作。

例如，我有这个扩展方法（在WebBrowser控件之外），它根据当前页面或任何子框架中的ID单击一个元素（我继续调用DoEvents，否则它将无法工作，表现并不是我的目标）：

    ''' <summary>
    ''' Clicks the HTML elements.
    ''' </summary>
    ''' <param name="id"></param>
    ''' <param name="wb"></param>
    ''' <remarks></remarks>
    <Extension()> _
    Public Sub ClickElement(ByVal wb As WebBrowser, ByVal id As String)
        If wb.Document Is Nothing Then Exit Sub

        If wb.Document.Window.Frames.Count > 0 Then
            For Each hw As HtmlWindow In wb.Document.Window.Frames
                hw.Document.GetElementById(id).InvokeMember("click")
            Next
        Else
            wb.Document.Window.Document.GetElementById(id).InvokeMember("click")
        End If

        Application.DoEvents()
    End Sub

Answer 2

我有同样的问题，我试图使用调用成员点击它不会工作，我发现的解决方案是在我使用之前：

WebBrowser1.Document.GetElementById("CertainButtonID").InvokeMember("focus")

我插入了：

WebBrowser1.Document.GetElementById("CertainButtonID").InvokeMember("focus")
WebBrowser1.Document.GetElementById("CertainButtonID").InvokeMember("click")

使代码如下：

{{1}}

提示

使用Document.GetElementById而不是循环文档中的所有元素

InvokeMember单击不起作用

2 个答案:

提示