- Код: Выделить всё
Dim iHTMLCol As HtmlElementCollection
Dim iHTMLEle As HtmlElement
Dim curElement As HtmlElement
Dim BtnLogin As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
iHTMLCol = WebBrowser1.Document.GetElementsByTagName("input")
For Each iHTMLEle In iHTMLCol
If (iHTMLEle.Name = "username") Then
iHTMLEle.SetAttribute("value", TextBox1.Text)
Next
А как вставить текс в textarea?.
PS: Пробывал
- Код: Выделить всё
If (iHTMLEle.Name = "message") Then
iHTMLEle.SetAttribute("value", TextBox1.Text)
Next
но что ставить вместо value? или как-то по другому вставлять текст в textarea?