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")

EDITあなたは ID を持っていません... OK、それは問題ではありません。ボタンを含む基本的な HTML ページを作成しました (「参考文献」では「htmlpage」と呼びます)。

<!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>

何をしたいのかわからないので、ボタンには「ボタンがクリックされました」というテキストのアラートが表示されます。あなたのクラスを保存しました。

次に、2 つのボタンを作成しました。最初のボタンはこのドキュメントをロードします:

WebBrowser1.DocumentText = My.Resources.htmlpage

そして2番目は仕事をします：

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 のページで動作するはずです。申し訳ありませんが、英語は私の母国語ではありません。何か誤解している可能性がありますか?

于 2013-07-24T11:21:34.287 に答える