как программно

[A_n_d_r_e_i]

заполнить нужное поле на сайте через элемент управления WebBrowser на визуал бейсик?
нашел :)

Подключаем библиотеку "Microsoft HTML Object Library".
Private objDoc As MSHTML.HTMLDocument

Private Sub Form_Load()
WebBrowser1.Navigate "www.ya.ru"

Do While WebBrowser1.Busy
DoEvents
Loop

Set objDoc = WebBrowser1.Document
End Sub

Private Sub Command1_Click()
Dim objForm As MSHTML.HTMLFormElement

' web - название формы.
Set objForm = objDoc.Forms.web
' text - название поля.
' Заполняем текстовое поле.
objForm.Text.Value = "sql.ru"
' Извлекаем данные из текстового поля.
MsgBox objForm.Text.Value
' Нажимаем кнопку "Найти".
objForm.submit
End Sub

[maestro-ant]

вопрос не понятен.
мож пойди все таки выспись? )

[.ATK]

void _WebBrowser_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
try
{
string str = webBrowser1.DocumentText;

submit = null;
foreach (HtmlElement he in webBrowser1.Document.GetElementsByTagName("input"))
{
string type = he.GetAttribute("type");
string name = he.GetAttribute("name");

if ((type == "text") && (name == "firstname"))
{
he.SetAttribute("value", ename);
}

if ((type == "text") && (name == "lastname"))
{
he.SetAttribute("value", famil);
}


Думаю то, что тебе нужно...
зы. шарп

[A_n_d_r_e_i]

ага, нашел, выложу тут, мб кому-нить тоже пригодится.
напомню, visual basic 6

Так мы можем получить имя формы по её номеру(если захотим)
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). Name

Так мы получим тип элемента формы
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).Type

Так мы получим количество элементов в форме
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). length

А вот так - его индекс (порядковый номер)
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).sourceindex

А так вот - имя элемента
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).Name

Так - тип элемента
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).Type

А так - его Value
WebBrowser1(SSTab1.Tab).Document.Forms(NumbeForm). elements(I).Value