如何用delphi写一个每五分钟自动访问某网页的功能，谢谢！(300)

因某种需要，在我提供的10个网页中需要每五分钟随机访问其中的网页！之前用delphi写过数据库编程，不碰delphi已三四年了！麻烦请提供源代码，谢谢

10个地址放在数组里 然后在timer控件里面设置每5分钟产生个随机数取出地址让webbrowser控件访问。

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, OleCtrls, SHDocVw, math;//math 记得加这个单元因为用到了Randomtype TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begintimer1.Interval:=300000;//300000为五分钟timer1.Enabled:=true;end;procedure TForm1.Timer1Timer(Sender: TObject);var a:array[0..9] of string; i:byte;begin a[0] := 'c:/0.html'; //也可以是网络地址http://www.baidu.com等 a[1] := 'c:/1.html'; a[2] := 'c:/2.html'; a[3] := 'c:/3.html'; a[4] := 'c:/4.html'; a[5] := 'c:/5.html'; a[6] := 'c:/6.html'; a[7] := 'c:/7.html'; a[8] := 'c:/8.html'; a[9] := 'c:/9.html'; i:=Random(10); webbrowser1.Navigate(a);end;end.

也可以直接使用IDHttp访问

和病毒弹出一个黄网页类似的效果吧？按楼上的改了一下。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, OleCtrls, SHDocVw, math,shellapi;//math 记得加这个单元因为用到了Randomtype TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begintimer1.Interval:=300000;//300000为五分钟timer1.Enabled:=true;end;procedure TForm1.Timer1Timer(Sender: TObject);var a:array[0..9] of string; i:byte;begin a[0] := 'http://www.sohu.com'; a[1] := 'http://www.163.com'; a[2] := 'http://www.cctv.com'; a[3] := 'http://www.delphibbs.com'; a[4] := 'http://www.2ccc.com'; a[5] := 'http://www.delphibox.com'; a[6] := 'http://www.sina.com'; a[7] := 'http://www.qq.com'; a[8] := 'http://www.hao123.com'; a[9] := 'http://www.zol.com.cn'; Randomize; i:=Random(10); ShellExecute(Handle, 'open',PChar(a),nil,nil,SW_SHOWNORMAL);end;end.

多人接受答案了。

谢谢各位的答复，原来不是很难啊！