delphi 如何实现网站刷IP的操作

delphi 如何实现网站刷IP的操作

var
  Form1: TForm1;
  Nid:integer ;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.FileName);
begin
if memo1.Lines[0]='' then
showmessage('请添加代理地址')
else
button3.Click;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
end;

procedure TForm1.Button4Click(Sender: TObject);
var  reg: Tregistry;
begin
timer1.Enabled:=false;
if edit1.Text <> '' then
begin//注册表添加代理地址
button3.Click;
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
reg:=Tregistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
begin
reg.Writestring('ProxyServer', edit2.Text);
reg.WriteInteger('ProxyEnable', 1  );
end
finally
reg.CloseKey;
reg.free;

timer1.Interval:=strtoint(edit3.Text);
timer1.Enabled:=true;

end;

end
else
b