求一个自动访问网站的示例代码 解决立即给分

Question

我在一个FORM上添加了 10个 WEBBROWSER 控件 我想用一个始终时钟空间来控制 多少秒 刷新一次网页10个地址是获取目录下的TXT文本.. 简单的说 就是刷网站PV的软件.谁有实例代码 给出完整一点的 调试完毕 立即给分

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, OleCtrls, SHDocVw;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    WebBrowser1: TWebBrowser;
    WebBrowser2: TWebBrowser;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Lines.LoadFromFile('web.txt');   //导入TXT文本
WebBrowser1.Navigate(Memo1.Lines[0]); //打开网址
WebBrowser2.Navigate(Memo1.Lines[1]);
end;end.

Answer 2

1楼的ok,就是读出txt内容,然后定时逐条的访问网址

Answer 3

我晕 这也能搞DDOS  无语了.  你把我想的真高手..