[poli-smen]

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

Код:

.....
  for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do
  begin
     form:=WebBrowser1.OleObject.Document.forms.Item(f).elements;
        for i:=0 to form.Length-1 do
          if (form.item(i).type='submit')  then
          begin
          form.item(i).click;
          end;
 
  end;

Вот это место мне ещё не нравится. После того как мы нашли кнопку и кликнули по ней нужно тут же прерывать оба цикла, ведь по клику, я так понимаю, начнётся подгрузка страницы и по этой же причине желательно перед продолжением выдержать некоторую паузу.
Других недочётов я пока не вижу.