如何在多个IP地址之间进行动态的修改(100分)

本电脑可分别连到两个不同子网掩码分割的局域网中，希望提供一个软件，随时动态修改
系统的ip 地址

用命令吧：netsh interface ip set address 本地连接 static 192.168.0.199 255.255.255.0

修改IP地址非常的程序非常简单,
什么超级猛料,葵花宝典都有!
不过你可以在Windows下自动修改啊!
如果在9X下,
你可以先禁用网卡,然后再修改,然后在启动网卡
, 这样就可以不重新启动而修改IP地址

2000
winexec(pchar('netsh interface ip set address "本地连接" static 172.16.100.100 255.255.0.0 172.16.200.2 1'),sw_hide);
98
修改注册表
如://注意得重启计算机才能真正生效
var
MyReg: TRegistry;
i : integer;
begin
MyReg := TRegistry.Create;
try
MyReg.RootKey := HKEY_LOCAL_MACHINE;
if MyReg.OpenKey('/Enum/Network/MSTCP',false) then
begin
for i := 1 to 9 do
begin
if MyReg.OpenKey('/Enum/Network/MSTCP/000' + inttostr(i),false) then
begin
MyReg.WriteString('IPAddress','192.9.201.9');
MyReg.WriteString('IPMask','255.255.255.0');
MyReg.WriteString('DefaultGateway','192.9.201.1');
MyReg.CloseKey;
Break;
end;
end;
end;
finally
MyReg.Free;
end;
end;