Question

我正在尝试创建一个单击基于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

但它不起作用提前致谢

Answer 1

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

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

编辑您没有ID ......好吧，这不是问题。我用你的按钮创建了（在参考资料中，我称之为“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>

我不知道你想做什么，所以按钮会显示带有“点击按钮”文字的提醒。我救了你的班级。

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

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

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

单击HTML按钮

1 个答案: