如何使用 vb.net 将网站标题文本从 Web 浏览器显示到标签

Question

大家好，我需要帮助，因为我的网站上有一个文本区域，我想使用 vb.net 显示文本区域中的文本，从 Web 浏览器到标签……我该怎么做我已经使用了以下编码。

这是我的网络浏览器编码。

<textarea class="cadr" id="bar" name="saisie"style="height: 260px; width: 700px;"> simple text</textarea>

vb.net编码如下

WebBrowser1.Document.GetElementById(label1.text).GetAttribute("value", "bar")

Answer 1

您描述的元素没有 ID，因此您必须求助于 TEXTAREA 及其 DIV 父级的 className（以减少获取错误元素的机会）。

<div class="labelapper"><textarea rows="3" cols="80" class="Label">text1</textarea></div>

可以用GetElementsByTagName()代替GetElementsById()，然后过滤结果

像这样：

Imports System.Linq
' [...]

dim innerText = String.Empty
dim textArea = WebBrowser1.Document.GetElementsByTagName("TEXTAREA").
    OfType(Of HtmlElement)().
    FirstOrDefault(Function(elm) elm.GetAttribute("className") = "Label" AndAlso 
        elm.Parent.GetAttribute("className") = "labelapper")
if textArea IsNot Nothing Then
    innerText = textArea.InnerText
End If

编辑：原帖中的 HtmlElement 已更改，现在显示 ID

dim textArea = WebBrowser1.Document.GetElementById("bar")
if textArea IsNot Nothing Then
    label1.Text = textArea.InnerText
End If