Question

我只是想知道如何在文本输入功能上实现发送按钮。

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代码中没有标记名称，它只有类，值和输入类型。有任何想法吗？

Answer 1

你可以这样处理

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

使用类在vb.net中使用vb按钮与webbrowser进行交互

1 个答案: