Как в веббросвер это сделать?

[Кинельски]

Как придать веббросверу значени рефер и как замоскировать его под браузер мозила ?

[Terikon]

Сообщение от Кинельски

подскажите кто нибудь пожалуйста

Установка юзер агента
http://vvy.me/print:page,1,14-delphi...ser-agent.html

Юзер агенты на любой вкус и цвет)
http://ru.wikipedia.org/wiki/Useragent

Пользуйся поиском, информации полно)

[Кинельски]

Спасибо,
А кто знает как устранить ошибку?
хочу что бы после загрузки страницы выполнялся клик, а выдаёт ошибку,
пробывал код клика писать в событие OnDocumentComplete, но получается цикл замкнутый, кто знает как реализовать?

[Voody]

Следи за URL загруженной страницы: если тот, что надо - кликай.
Если URL одинаковый, сделай флаг: изначально false, загрузили страницу, если флаг false, то кликаем и флаг ставим true

[Кинельски]

спасибо,и если можно последний вопрос , если не использовать проверку адреса,а кликать когда документ загружен полностью, но код писать не в событий Webbrowser.OnDocumentComplete, а просто узнать загружен документ до конца или нет, пробывал писать

if webbrowser1.ondocumentcomplete then
.......

но выдает ошибку, кто знает как проверить загрузился документ или нет?

[Voody]

Перед переходом на страницу ставьте load:=false;
В событии Webbrowser.OnDocumentComplete ставьте load:=true;

[Кинельски]

а код примера можно?,а то уменя получается вот так

procedure TForm1.Button1Click(Sender: TObject);
var
Documents: IHTMLDocument2;
El:Olevariant;
load:boolean;
begin
load:=false;
      webbrowser1.Navigate('http://bestforex.hut2.ru');
timer1.Interval:=6000;
if load=true then
      Documents:=Webbrowser1.ControlInterface.Document as IHTMLDocument2;

  if (Documents<>nil) then
  begin

  El:=Webbrowser1.OleObject.Document.all.tags('A');

  if El.length>4 then
  El.item(random(5)).click;
  end;
end;


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
load:boolean;
begin
load:=true;

end;

но не работает

[Кинельски]

блин доперло!!!!!!

 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   load:boolean;
implementation

{$R *.dfm}