1

我正在尝试制作一个单击基于 html 的按钮的 VB 程序，但我被卡住了：/

按钮的 HTML 代码是

<button onclick=";return true;" class=" yt-uix-button yt-uix-button-default yt-uix-button-size-default" type="submit" role="button"> <span class="yt-uix-button-content"> Posten </span> </button>

我已经试过了

 Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
    For Each element As HtmlElement In allelements
        If element.GetAttribute("class") = " yt-uix-button yt-uix-button-default yt-uix-button-size-default" Then
            element.InvokeMember("click")
        End If
    Next

但它不起作用提前谢谢

4

1 回答 1

1

您可以尝试使用 ID 和名称：

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

编辑你没有身份证...好吧，这不是问题。我用你的按钮创建了（在参考资料中，我称之为“htmlpage”）基本的 HTML 页面：

<!DOCTYPE html>
<html>
   <head>
      <title>Example</title>
   </head>
   <body>
      <h3>Content goes here</h3>
      <button onclick="alert('Button clicked!');" class=" yt-uix-button yt-uix-button-default yt-uix-button-size-default" type="submit" role="button"> <span class="yt-uix-button-content"> Posten </span> </button>
   </body>
</html>

我不知道你想做什么，所以按钮将显示带有文本“Button clicked”的警报。我救了你的课。

然后我创建了两个按钮。第一个按钮将加载此文档：

WebBrowser1.DocumentText = My.Resources.htmlpage

第二个将完成工作：

For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("button")
            Dim ElementClass As String = "yt-uix-button yt-uix-button-default yt-uix-button-size-default"

            If element.OuterHtml.Contains(ElementClass) Then
                element.InvokeMember("Click")
            End If
        Next

它对我有用。它应该与来自网络的页面一起使用。对不起，英语不是我的母语，也许我误解了什么？

于 2013-07-24T11:21:34.287 回答