Нажать кнопку

[Teen4jump]

Немогу програмно нажать кнопку.

procedure TForm1.Button1Click(Sender: TObject);
var
html_tag:oleVariant;
i:integer;
s:string;
begin
html_tag:=WebBrowser1.oleObject.Document.forms.item(0).elements;
for i:=0 to (html_tag.length -1) do
begin
if (html_tag.item(i).name = 'login') then
html_tag.item(i).value:='login';

if (html_tag.item(i).name = 'pass') then
html_tag.item(i).value:='pass';

if (html_tag.item(i).alt = 'Вход в аккаунт') then
html_tag.item(i).click;
end;

Поля заполняются, кнопка не кликается.

[mihali4]

А если брекпойнт на 18-й строке поставить? Туда хоть попадает?

[Teen4jump]

Нет.... Эту картинку, на которую надо нажать, видимо не находит..

[mihali4]

Сообщение от Teen4jump

Нет.... Эту картинку, на которую надо нажать, видимо не находит..

Иногда специально заменяют буквы на схожие по написанию.
В фразе "Вход в аккаунт" помеченные жирным буквы вполне могут быть английскими...
Попробуйте скопировать эту фразу из HTML-кода страницы в текст программы через буфер.

[Teen4jump]

Нет, не получается......

[B_N]

А стоит эту картинку по альту искать? Может лучше по
<input ........... type="image"..........>

[Teen4jump]

Я у по типу и по ширине, по всему, чему можно искал...)) И никак не получается..

[JakSon]

глянь строку где находиться сама кнопка!!

вот пример!! Name = 'user_login' - имя кнопки на которую следует нажать!!

begin
try
if FormItem.Item(j).Name = 'user_login';
begin
FormItem.Item(j).Click;
end;

except
Exit;
end;

[Teen4jump]

А если имени нет??

[Alar]

Я вот такой выход нашел - обычно страницы статичны, потому нужно один раз найти номер тега и кликнуть, по номеру тега.

И позже, можно кликать по тегу с уже известным номером.