WebBrowser. Втавска текста в форуму. Кусок хтмл.

[zona09]

WebBrowser
Облазил весь форум.
На форме размещен контрол ВебБравзер, для нажатие кнопки, смены радиокнопки и тд. нашел.
1. Но как вставить текст в форму которая размещена на странице?
2. Как выдернуть кусок хтмл ? не полность весь код страницы, а например текст которой размещен между определенными тегами
спасибо.

[zona09]

1 вопрос исчерпан
WebBrowser1.Document.Form(0).Value = "sadfadf"
2 плз.

[pakulo]

2. Находишь нужный элемент и делаешь так

Код: Выделить всё

webbrowser.Document.All(i).InnerText

Найти элемент можно скажем так

Код: Выделить всё

webBrowser.Document.GetElementById

Или находишь все эелементы нужного тебе тега

Код: Выделить всё

webBrowser.Document.GetElementsByTagName

[zona09]

можна пример?
например страница http://r0.ru/ надо вытянуть только текст Copyright © 1996-2007 который находится внизу страницы. спасибо.

[BION]

можна пример?
например страница http://r0.ru/ надо вытянуть только текст Copyright © 1996-2007 который находится внизу страницы. спасибо.

Ну хотя бы так

Код: Выделить всё

<td align=center>Copyright &copy; 1996-2007, <a href="http://www.rambler.ru/" style="color:#000000">Рамблер</a></td>

Код: Выделить всё

Set tds = WebBrowser.Document.GetElementsByTagName("td")
For i = 0 To tds.length - 1
    If InStr(tds(i).innerText, "©") Then MsgBox tds(i).innerText
Next i