[scroyler]

Здравствуйте.
Подскажите плз как программно через Webbrowser поставить галочку на сайте.

Код:

1 2 3 4 5 6 7 8

while WebBrowser1.ReadyState<READYSTATE_COMPLETE do     Application.ProcessMessages;   document:=WebBrowser1.Document as IHTMLDocument2;   all:=document.all;   for i:=0 to all.length-1 do   begin    (all.item('username', 0) as IHTMLElement).innerText:=edit1.Text; (all.item('password', 0) as IHTMLElement).innerText:=edit2.Text;

вот так заполняю инпуты,а как поставить галочку и выбрать пункт в выподающем списке (select)

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var   Document: OleVariant;   ElementCollection: IHTMLElementCollection;   i: Integer; begin   ...   while WebBrowser1.ReadyState<READYSTATE_COMPLETE do     Application.ProcessMessages;   ElementCollection:=IUnknown(Document.all) as IHTMLElementCollection;   for i:=0 to ElementCollection.length-1 do   begin     if (ElementCollection.item(i, EmptyParam) as IHTMLElement).tagName='INPUT' then     begin       if (ElementCollection.item(i, 0) as IHTMLInputElement).type_='radio' then         if (ElementCollection.item(i, 0) as IHTMLInputElement).value='opera' then           (ElementCollection.item(i, 0) as IHTMLInputElement).checked:=True;     end;   end;

[scroyler]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var   i: Integer;   elem: IHTMLElement;   document: IHTMLDocument2;   all: IHTMLElementCollection; begin     while WebBrowser1.ReadyState<READYSTATE_COMPLETE do     Application.ProcessMessages;   document:=WebBrowser1.Document as IHTMLDocument2;   all:=document.all;   for i:=0 to all.length-1 do   begin (all.item('month', 0) as IHTMLOptionElement).value:='01'; или (all.item('month', 0) as IHTMLOptionElement).value:='Август';        end; end;

Делал так. не пашет.
Можешь показать код полностью?

[scroyler]

Что то не получается

Код:

1	<input type="checkbox" value="1" id="cb_rules_agree" name="agree"/>

пробую так.

Код:

1 2 3

if (ElementCollection.item(i, 0) as IHTMLInputElement).type_='checkbox' then         if (ElementCollection.item(i, 0) as IHTMLInputElement).value='1' then           (ElementCollection.item(i, 0) as IHTMLInputElement).checked:=True;

а как сделать с выпадающим списком?

[NumLock]

жми на TCheckBox:
http://zalil.ru/32535060

[scroyler]

Большое спасибо!!! То что надо!
а не подскажешь как с выпадающим списком?