在网络浏览器内的文本框中输入文本

Question

我正在通过Web浏览器连接到网站，然后我想在留言板上发布消息。

这是文本框的HTML：

<div class="fr-element fr-view" dir="ltr" contenteditable="true" style="min-height: 100px;" aria-disabled="false" spellcheck="true"><p>TEXT GOES HERE</p></div>

我尝试了以下2个代码：

For Each CurrentElement As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
    If CurrentElement.GetAttribute("class") = "fr-element fr-view" Then
        CurrentElement.InnerText = TextBox1.Text
    End If
Next

For Each CurrentElement As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
    If CurrentElement.GetAttribute("class") = "fr-element fr-view" Then
       For Each InnerCurrentElement As HtmlElement In CurrentElement.GetElementsByTagName("p")
            InnerCurrentElement.InnerText = RichTextBox1.Text
       Next
    End If
Next

他们都不做任何事情

我什至还没有真正搞过HTML，因此我不确定我可以搜索什么来解决我的问题，因为我能够处理其他文本框，例如如下所示的登录框：] >

<input type="text" class="input" name="login" autofocus="autofocus" autocomplete="username" id="aaaaa">

我正在通过Web浏览器连接到网站，然后我想在留言板上发布一条消息。这是文本框的HTML：

]]

您必须这样做在WebBrowser完成加载文档之后

。下面是一个小例子：

    WebBrowser1.ScriptErrorsSuppressed = True
    WebBrowser1.Navigate("https://html.com/tags/input/")
    AddHandler WebBrowser1.DocumentCompleted, Sub(senderObj As Object, eObj As WebBrowserDocumentCompletedEventArgs)
                                                  Dim inputs As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
                                                  If inputs IsNot Nothing AndAlso inputs.Count > 0 Then
                                                      For Each current As HtmlElement In inputs
                                                          current.SetAttribute("value", "Eurekaaaaaaaaaaaaaaaaaaaaa")
                                                      Next

                                                  End If
                                              End Sub

Answer 1

您必须这样做在WebBrowser完成加载文档之后