如何是delphi 变化IP 刷网站流量

来源:百度知道 编辑:UC知道 时间:2024/06/05 04:07:15
如何是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

首先你设置 一个列表,里面存放代理服务器 和端口.
然后你一次读取一个出来对ie代理进行设置,设置好了,就用webbrowser打开网页,当打开完成后(Webbrowser的OnNavigateComplete2事件就是了),读取代理列表中的下一条 重复上面的操作就 可以了.

其实你刷流量 可以不用webbrowser的,直接用idhttp,这个直接有个属性就是设置代理的.这样快一些,因为你也不需要看网站的样子,只要不同ip去请求就可以了