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)

所以到目前为止,这会从我的文本框中获取文本并将其发送到网络浏览器,但我也需要它在网站上进行搜索。

我正在使用的网站在 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 回答