[scroyler]

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

Код:

  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]

Код:

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]

Код:

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]

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

Код:

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

пробую так.

Код:

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]

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