关于delphi 修改 Ip地址的运用_delphi socket属性 ip更改不掉线-优快云博客

本文介绍了一款用于自动更换局域网内IP地址的小工具，通过不断变更IP并使用netsh命令设置新的网络配置来解决IP地址冲突问题，确保设备能够成功连接互联网。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我虽然再也没有继续像大学那样没日没夜的写计算机代码了，前几天听见我的朋友说他的公司里面老是有ip冲突，他那边工程师说只要修改了ip地址就可以上网了，可是这个男生可笨了！居然换了好多IP都被人家给占用了，求我给他写个程序，免的IP换的头疼。
那么开始吧！
首先要利用InternetGetConnectedState函数，这个函数是反应你的机器成功连网的函数，返回的是true和false
返回是true
就成功了，不是就连网失败
关于ip修改最好用上系统自己带的netsh命令
那么我就把不才的程序代码贴上来了

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,shellapi,wininet, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; StaticText1: TStaticText; Edit1: TEdit; StaticText2: TStaticText; StaticText3: TStaticText; StaticText4: TStaticText; Edit2: TEdit; StaticText5: TStaticText; 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); var a:string; b:string; c:integer; d:string; e:string; rec:dword; ask:boolean; ProcessHandle,CMD1 : THandle; ProcessID: DWORD; begin e:=' '; a:='/k '; for c:= strtoint(edit2.text) to 255 do begin 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.13.'+inttostr(c); statictext2.Caption :=b; d:=a+' netsh interface ip set address'+e+'"'+edit1.Text+'"'+e+'static'+e+b+e+'255.255.255.0'+e+'192.168.13.1'+' 1';begin ShellExecute(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; procedure TForm1.Timer1Timer(Sender: TObject); var rec:dword; ask:boolean; begin ask:=InternetGetConnectedState(@rec,0); if ask then begin StaticText1.Caption:='网络连接成功'; button1.Enabled:=false; end else begin StaticText1.Caption:='网络连接失败'; button1.Enabled:=true; end; end; end.