Question

我想从omeagle.com更改textarea - ＆gt;文字作弊

textarea在HTML中有这个代码：

<textarea class="chatmsg " cols="80" rows="3"></textarea>

在visual basic中，我编程webbrowser1以导航到此页面。如何更改textarea中的文本？

我已经尝试过这个：

WebBrowser1.Document.All.Item("chatmsg").InnerText = "mycontent"
WebBrowser1.Document.All("chatmsg_area").InnerText = "this works"
WebBrowser1.Document.All("chatmsg_body").InnerText = "this works"
More ....

Answer 1

您无法按类名获取元素。您可以遍历所有元素并检查类名。

Set NodeList = WebBrowser1.Document.getElementsByTagName("*")
For Each Elem in NodeList
    If Elem.GetAttribute("class") = "chatmsg " Then

        Elem.InnerText = "mycontent"

    End If
Next

Answer 2

为您的textarea提供ID，然后按其ID访问。

<textarea id="text1"></textarea>
....
WebBrowser1.Document.All("text1").innerText = "New text"

Visual Basic - 更改textarea内容

2 个答案: