请大家帮忙修改：）(50分)

想用Delphi编写一个软件，循环的 [改变浏览器的代理，用Browser打开网页]
想用来刷主页记数器，也可刷广告， 不知道到这种想法是否可行？
还有，已经把这个程序编译过了，放在http://arus.51.net/refleshxp.zip
运行的时候看不出来成功没有，应为有 临时文件，
关键代码如下:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.ReadOnly:=true; //edit1是URL栏
Memo1.ReadOnly:=true; //Memo1是代理列表，默认可编辑
RegF:=TRegistry.Create;
WebBrowser1.Navigate(Edit1.Text);
While WebBrowser1.Busy Do
Application.ProcessMessages;
For i:= 0 to Memo1.Lines.Count-1 do
begin
RegF.RootKey:=HKEY_CURRENT_USER;
RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Internet Setting
s',True);
RegF.WriteInteger('ProxyEnable',1);
RegF.WriteString('ProxyServer',Memo1.Lines);
StatusBar1.SimpleText:='目前状态:变更代理 ['+Memo1.Lines+'] 成功,正在
打开网页...';
WebBrowser1.Refresh;
WebBrowser1.Navigate(Edit1.Text);
bOK:=False;
Timer1.Enabled:=True;
While Not bOk Do
Application.ProcessMessages;
Timer1.Enabled:=False;
While WebBrowser1.Busy Do
Application.ProcessMessages;
// ShowMessage('...>');
RegF.CloseKey;
end;
RegF.Free;
Edit1.ReadOnly:=False;
Memo1.ReadOnly:=False;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
bOk:=True; //timer空件时间间隔为5000豪秒
end;

如果不停的改变代理的来访问某主页可以增加访问量
的话，请各位大虾帮忙改进 这个程序,多谢

gz

恶意刷屏？？？

呵呵，2000年我就做了个这样的玩意。可惜现在的赚钱网站的钱不好挣了！