动态改变本机IP地址 ( 积分: 100 )

将本机IP地址从192.168.0.2改为10.176.0.2,网关192.168.0.1改为10.176.0.1，有简单的调用吗？要实时完成，改注册表重启就算了。

将本机IP地址从192.168.0.2改为10.176.0.2,网关192.168.0.1改为10.176.0.1，有简单的调用吗？要实时完成，改注册表重启就算了。

uses ShellAPI;

shellexecute(Handle, 'Open', PChar('netsh'), PChar('interface ip set address "' + sLinkName + '" static 10.176.0.2 255.255.255.0 10.176.0.1 1'), nil, SW_HIDE);

winexec('netsh interface ip set address Local dhcp',sw_hide);

先编好一个文件，就起名叫changeip.sh吧。
然后再写一个bat文件，就起名叫changip.bat吧，
changeip.bat的内容如下：
@echo off
netsh exec changeip.sh
@echo on

然后changeip.sh文件内容如下：
int ip
set address name = "本地连接" source = static addr = 10.176.0.2 mask = 255.255.255.0
set address name = "本地连接" gateway = 10.176.0.1 gwmetric = 1
set dns name = "本地连接" source = static addr = 202.106.196.115

谢谢