VB.NET 如何在网络浏览器上填写此文本框
VB.NET How to fill this textbox on a webbrowser
正在尝试以编程方式在网络浏览器中填写此文本框。
<div class="chatmsgwrapper"><textarea rows="3" cols="80" class="chatmsg "></textarea></div>
我试过了,但根本不起作用...
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("chatmsgwrapper")
If element.GetAttribute("class") = "chatmsg " Then
element.SetAttribute("value", TextBox1.Text)
End If
Next
GetElementsByTagName()
不会通过 class 名称检索 HTML 元素。您的标签名称是 textarea
.
尝试以下...
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("textarea")
If element.GetAttribute("class") = "chatmsg " Then
element.SetAttribute("value", TextBox1.Text)
End If
Next
它不起作用,因为 chatmsgwrapper
是 class 名称,而不是标签名称。
您有 html 个标签 textarea
。
你可以得到属性"classname"(不是"class"),然后设置值。
这是在 VB2010 上测试的工作示例:
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("textarea")
If element.GetAttribute("classname") = "chatmsg " Then
element.SetAttribute("value", TextBox1.Text)
End If
Next
正在尝试以编程方式在网络浏览器中填写此文本框。
<div class="chatmsgwrapper"><textarea rows="3" cols="80" class="chatmsg "></textarea></div>
我试过了,但根本不起作用...
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("chatmsgwrapper")
If element.GetAttribute("class") = "chatmsg " Then
element.SetAttribute("value", TextBox1.Text)
End If
Next
GetElementsByTagName()
不会通过 class 名称检索 HTML 元素。您的标签名称是 textarea
.
尝试以下...
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("textarea")
If element.GetAttribute("class") = "chatmsg " Then
element.SetAttribute("value", TextBox1.Text)
End If
Next
它不起作用,因为 chatmsgwrapper
是 class 名称,而不是标签名称。
您有 html 个标签 textarea
。
你可以得到属性"classname"(不是"class"),然后设置值。
这是在 VB2010 上测试的工作示例:
For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("textarea")
If element.GetAttribute("classname") = "chatmsg " Then
element.SetAttribute("value", TextBox1.Text)
End If
Next