Webbrowser

[brat123rus]

Здравствуйте. У меня возникла такая проблема при написании программы.Суть программы та же зайти на сайт и покликать по спарсенным ссылкам. Первую ссылку кликает, а вот на второй пишет "Элемент не найден. Действие 2 отменено." Из-за этого программа не работает. Я думаю это из-за того что браузер не успевает загрузить страницу, что я не пробивал ни чего не помогает, помогите пожалуйста.Вот часть программы.

procedure TForm1.Button3Click(Sender: TObject);
   var
Doc, Arr, Elem : Variant;
  i, Cnt : Integer;
begin
//Ссылка на интерфейс документа.
  Doc := WebBrowser1.OleObject.document;
  if VarIsClear(Doc) then begin
    MessageBox(Handle, 'Объект документа не создан. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Коллекция элементов <a> в пределах HTML документа.
  Arr := Doc.getElementsByTagName('a');
  //Перебор элементов коллекции и поиск первого элемента с именем класса 'usermnuline'.
  Cnt := 0;
  for i := 0 to Arr.length - 1 do begin
    Elem := Arr.item(i);
    if Elem.title = 'Click Here To Earn Cash & Points!' then begin
      Inc(Cnt);
      Break;
    end;
end;
if Cnt = 0 then begin
    MessageBox(Handle, 'Элемент не найден. Действие 1 отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Выполняем метод click().
  Elem.click;
 
 while WebBrowser1.Busy do Application.ProcessMessages; //Вот здесь не идет загрузка
 
//Ссылка на интерфейс документа.
  Doc := WebBrowser1.OleObject.document;
  if VarIsClear(Doc) then begin
    MessageBox(Handle, 'Объект документа не создан. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
//Коллекция элементов <a> в пределах HTML документа.
  Arr := Doc.getElementsByTagName('a');
  //Перебор элементов коллекции и поиск первого элемента с именем класса 'usermnuline'.
  Cnt := 0;
  for i := 0 to Arr.length - 1 do begin
    Elem := Arr.item(i);
    if Elem.InnerText = 'Paid to Click Ads' then begin
      Inc(Cnt);
      Break;
    end;
 end;
if Cnt = 0 then begin
    MessageBox(Handle, 'Элемент не найден. Действие 2 отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
  
 
  //Выполняем метод click().
  Elem.click;
  
  //Ссылка на интерфейс документа.
  Doc := WebBrowser1.OleObject.document;
  if VarIsClear(Doc) then begin
    MessageBox(Handle, 'Объект документа не создан. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
//Коллекция элементов <a> в пределах HTML документа.
  Arr := Doc.getElementsByTagName('a');
  //Перебор элементов коллекции и поиск первого элемента с именем класса 'usermnuline'.
  Cnt := 0;
  for i := 0 to Arr.length - 1 do begin
    Elem := Arr.item(i);
    if Elem.target = '_blank' then begin
      Inc(Cnt);
      Break;
    end;
end;
if Cnt = 0 then begin
    MessageBox(Handle, 'Элемент не найден. Действие 3 отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Выполняем метод click().
  Elem.click
 
end;
 
 
end.

From Stilet: Исправил.

[Bugrimov]

Пожалуйста включите свой код в теги (#)