0

私はすでに持っているテキスト入力機能に送信ボタンを実装する方法を考えています。

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    WebBrowser1.Document.All("q").SetAttribute("value", TextBox5.Text)

これまでのところ、これはテキストボックスからテキストを取得してWebブラウザーに送信しますが、Webサイトでも検索する必要があります.

私が使用している Web サイトには、HTML コードにタグ名がなく、クラス、値、および入力タイプしかありません。何か案は？

4

1 に答える 1

0

あなたはそれをこのように扱うことができます

Dim elems As HtmlElementCollection = webBrowser1.Document.GetElementsByTagName("button")
For Each elem As HtmlElement In elems
    Dim nameStr As [String] = elem.GetAttribute("class")
    If nameStr IsNot Nothing AndAlso nameStr.Length <> 0 Then
        ele.InnerText = TextBox5.Text
    End If
Next

必要な入力フィールドを見つけたら、ボタンを検索して要素でこれを呼び出すことができます

ele.InvokeMember("click")
于 2013-03-08T13:23:59.607 に答える