我在这里教大家用Delphi语言编程换代理ip

1、第一步：打开Delphi，给Delphi新建窗体添加一个时钟、一个按钮Button\一个statictext;接下来写按钮Button的代码:

2、第二步：Button按钮的代码：unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,shellapi,wininet, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; StaticText1: TStaticText; Timer1: TTimer; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure Delay(MSecs: Longint); var FirstTickCount,Now:Longint;begin FirstTickCount := GetTickCount(); repeat Application.ProcessMessages; Now:=GetTickCount(); until (Now-FirstTickCount>=MSecs)or(Now<FirstTickCount);end;procedure TForm1.Button1Click(Sender: TObject);vara:string; b:string; c:integer; d:string; e:string; rec:dword; ask:boolean; ProcessHandle,CMD1 : THandle; ProcessID: DWORD; begin e:=' '; a:='/本地链接 ';for c:= strtoint(edit2.text) to 255 dobegin cmd1:=GetWindowThreadProcessId(FindWindow('consolewindowclass',NIL), ProcessID); if cmd1<>0 then begin ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessId); TerminateProcess(ProcessHandle,4); end else b:='192.168.1.'+inttostr(c);statictext1.Caption :=b;d:=a+' netsh interface ip set address name="本地连接" '+b+'"'+edit1.Text+'"'+e+'source=static'+e+b+e+'255.255.255.0'+e+'192.168.1.1'+' 1';beginShellExecute(handle, 'open', pchar('cmd.exe'),pchar(d), nil, SW_show); end; ask:=InternetGetConnectedState(@rec,0); if ask then begin break; end else begin Delay(25000); cmd1:=GetWindowThreadProcessId(FindWindow('consolewindowclass',NIL), ProcessID); IF cmd1<>0 THEN begin ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessId); TerminateProcess(ProcessHandle,4); end end; end;end;

3、第三步写时钟按钮的代码：varrec:dword; ask:boolean; begin ask:=朐袁噙岿InternetGetConnectedState(@rec,0); if ask then begin StaticText1.Caption:='网络连接成功';end else begin StaticText1.Caption:= '网络连接失败';end; end; end.end;end.