如何在 VB 上单击 js 按钮

Question

我正在使用 Visual Basic 12。我的表单中有一个网络浏览器。我想点击它，但我遇到了问题。按钮是一个 javascript 按钮。所以这段代码不起作用：

WebBrowser1.Document.All("button id").InvokeMember("click")

这是按钮的hmtl。我如何点击它。

<a class="single_like_button btn3-wrap" onclick="openFbLWin_407311();">
                                        <span>&nbsp;</span><div class="btn3">Like</div></a>

Answer 1

三个选项：

1. 直接执行javascript函数本身
2. 使用 InnerHTML 搜索所有 A 元素
3. 使用 ClassName 搜索所有 A 元素

直接执行javascript函数本身

编辑：感谢 pquest 指出您可以直接执行 javascript 函数：

Browser.InvokeScript("openFbLWin_407311");

更复杂（并且不是真正必要的）：

WbBrowser.Navigate( new Uri("javascript:(function(){ openFbLWin_407311(); })();") )

---

使用 InnerHTML 搜索所有 A 元素

看看下面的问题：Click an HTML link inside a WebBrowser Control

在您的情况下，基于该链接，如下所示：

Dim links As HtmlElementCollection
links = WebBrowser1.Document.GetElementsByTagName("A")

For Each link As HtmlElement In links
   If link.InnerHtml.IndexOf("Like") <> -1 Then
            link.InvokeMember("Click")
   End If
Next

---

使用 ClassName 搜索所有 A 元素

 If link.GetAttribute("className") = "single_like_button btn3-wrap" Then
    link.InvokeMember("Click")
 End If

---

所有三种方法：

VB.net

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Url = New Uri("file:///D:/clickJSbutton.html")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Method 1: Execute javascript directly
         Browser.InvokeScript("openFbLWin_407311");
         'WebBrowser1.Navigate(New Uri("javascript:(function(){ openFbLWin_407311(); })();"))

        'Method 2: Find the link from all links
        Dim links As HtmlElementCollection
        links = WebBrowser1.Document.GetElementsByTagName("A")

        For Each link As HtmlElement In links
            'Method 2B: Using some kind of inner html
            If link.InnerHtml.IndexOf("Like") <> -1 Then
                link.InvokeMember("Click")
            End If

            'Method 2C: Using className as identifier
            If link.GetAttribute("className") = "single_like_button btn3-wrap" Then
                link.InvokeMember("Click")
            End If

        Next

    End Sub
End Class