InvokeMember单击不起作用

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

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

我不知道该放什么。“签到”不起作用。我需要用什么来改变它？

Answer 1

我的第一个问题是，如果您单步执行调试器，它是否会到达InvokeMember行，或者字符串比较是否真的在InnerHtml中找不到“登录”？

在过去使用webbrowser控件时，我必须在InvokeMember (DoEvents处理消息队列中的所有消息)之后放置一个“Application.DoEvents(https://msdn.microsoft.com/en-us/library/system.windows.forms.application.doevents(v=vs.110%29.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1))”。这对性能来说很糟糕，但如果你碰到了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

我也遇到了同样的问题，我试图使用invoke member click，但它不起作用，我找到的解决方案是在我使用之前：

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

我插入了：

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

这使得代码如下：

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

提示

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