[X-rem]

Короче такое дело
Мне нужно автоматизировать сайт. Чтобы каждые 20 сек стр. обновлялась.
Всё сделал. Но только выскакывает онко : "Чтобы отбразить узел нужно отправить данные" "Повторить" "Отмена".
Мне надо так чтобы повторить как бы нажималось само.
HELP PLEASE
Очень надо.

[X-rem]

Да, Вот исходник :

Код:

 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Wininet, OleCtrls, SHDocVw, HTTPApp, HTTPProd, xmldom, XMLIntf,
  msxmldom, XMLDoc, Sockets, DBXpressWeb, DBBdeWeb, DSProd, DBWeb, StdCtrls,
  XPMan, WebAdapt, WebComp, ActnList, ExtActns, ComCtrls, ExtCtrls, Buttons,
  jpeg, Menus, IniFiles, Registry, Spin;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Splitter1: TSplitter;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Splitter2: TSplitter;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    Label5: TLabel;
    Splitter3: TSplitter;
    BitBtn2: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    SpinEdit1: TSpinEdit;
    Timer1: TTimer;
    XPManifest1: TXPManifest;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form1.WebBrowser1.Navigate(Form1.Edit3.Text);
end;
procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
Form1.Label4.Caption:='Идет загрузка страницы...';
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
Form1.Label4.Caption:='Готово';
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form1.BitBtn1.Enabled:=False;
Form1.BitBtn2.Enabled:=False;
Form1.Timer1.Interval:=Form1.SpinEdit1.Value;
Form1.Timer1.Enabled:=True;
Form1.SpinEdit1.Enabled:=False;
Form1.WebBrowser1.Refresh2;
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if Form1.SpinEdit1.Value<0 then Form1.SpinEdit1.Value:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.WebBrowser1.Refresh2(EmptyParam);
end;
end.