Question

我正在尝试为facebook制作自动化软件。所以我试图按类名在文本区域插入一些文本，因为它上面没有任何ID，但是它没有工作。

这是我的代码：

的TextArea：

<div class="innerWrap">
    <textarea 
        class="uiTextareaAutogrow input autofocus mentionsTextarea textInput DOMControl_placeholder" 
        title="Με τι ασχολείστε σήμερα;" 
        name="xhpc_message_text" 
        placeholder="Με τι ασχολείστε σήμερα;" 
        role="textbox" aria-autocomplete="list" autocomplete="off" 
        aria-expanded="false" aria-owns="typeahead_list_u_jsonp_10_13" 
        aria-haspopup="true" 
        onkeydown="run_with(this, [&quot;legacy:control-textarea&quot;], function()
            {TextAreaControl.getInstance(this)});" 
        id="u_jsonp_10_14" 
        aria-label="Με τι ασχολείστε σήμερα;" 
        style="height: 63px;">Με τι ασχολείστε σήμερα;
    </textarea>
</div>

和我的代码：

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim pulledtags = WebBrowser1.Document.GetElementsByTagName("*")
        For Each Elem In pulledtags
            If Elem.GetAttribute("class") = "uiTextareaAutogrow input autofocus mentionsTextarea textInput DOMControl_placeholder" Then

                Elem.InnerText = TextBox1.Text

            End If
        Next

    End Sub

TextBox1上有一个值。

此致

Answer 1

首选document.getElementsByClassName("a b c")，它对类的顺序不可知。

使用Value而不是InnerText：

 Elem.Value = TextBox1.Text

根据名称或类名visual basic填充文本区域

1 个答案: