如何用dephi6。0编写代码，动态设置windows 2000的网关？(50分)

jsw19760525 · 2004-02-17

如何用dephi6。0编写代码，动态设置windows 2000的网关？
我的NT作为一台服务器，要求根据不同的客户请求设置不同的网关。如果没有客户请求，网关就为空。

andy263 · 2004-02-17

通过shellexec调用 route命令

Route delete 0.0.0.0 //删除原有默认网关
Route add 0.0.0.0 mask 0.0.0.0 192.168.1.1 //192.168.1.1即为新网关

jsw19760525 · 2004-02-18

to:andy263
你好，我对这些不熟悉，能否再具体一点，怎么样通过shellexec调用 route命令？
能举个例子吗？我很急，真的很感谢你的帮助。
最好能给个具体的实现，我对shellexec不知道怎么用，帮忙给我写个实例好吗？
我的email：jsw0525@163.com
分数是没问题的，真的非常感谢你的关注

andy263 · 2004-02-18

Winexec('Route delete 0.0.0.0 ',SW_HIDE);
Winexec('Route add 0.0.0.0 mask 0.0.0.0 192.168.1.1 ',SW_HIDE);

或者

ShellExecute(Handle,'open','Route delete 0.0.0.0 ','','',SW_HIDE);
ShellExecute(Handle,'open','Route add 0.0.0.0 mask 0.0.0.0 192.168.1.1 ','','',SW_HIDE);

如果需要显示dos窗口可以把SW_HIDE换成SW_SHOW

sooven · 2004-02-18

也可以这样：
建立一个xx.sh文件。
内容为：
interface ip
set address name = "区域连线" source = static addr = 192.168.3.28 mask = 255.255.255.0
set address name = "区域连线" gateway = 192.168.3.222 gwmetric = 1
set dns name = "区域连线" source = static addr = 192.168.3.55
set wins name = "区域连线" source = static addr = none

不过楼上的好象更好。

jsw19760525 · 2004-02-18

to:andy263
我按照你说的去那样作了，在delphi里面调试也通过了。
然后，我打开我电脑的IP/tcp协议的面板，看到里面的默认网关和原来一样没有改变呀。
不知道是怎么回事。
我想请问，我通过ShellExecute(Handle,'open','Route delete 0.0.0.0 ','','',SW_HIDE);
ShellExecute(Handle,'open','Route add 0.0.0.0 mask 0.0.0.0 192.168.1.1 ','','',SW_HIDE);
运行成功后，新的网关是否可以保存进电脑，谢谢了。
非常感谢你的帮助。
同时也非常感谢sooven的热心支持，谢谢

jsw19760525 · 2004-02-18

to:andy263
Winexec('Route delete 0.0.0.0 ',SW_HIDE);
Winexec('Route add 0.0.0.0 mask 0.0.0.0 192.168.1.1 ',SW_HIDE);

其中Winexec('Route delete 0.0.0.0 ',SW_HIDE);这样删除的是路由0.0.0.0，而不是默认的网关呀。我想知道怎么样删除默认网关，又重新设定新的另外的默认网关呀。
谢谢你的支持
分是没问题的，我一定会给的，谢谢了

andy263 · 2004-02-18

每个路由对应一个网关在你没设置路由的时候就是0.0.0.0
你'Route delete 0.0.0.0后所有的网关都被删了

你在cmd命令行下打
Route add 0.0.0.0 mask 0.0.0.0 192.168.1.1
然后
用inconfig /all 看看gateway是不是192.168.1.1

jsw19760525 · 2004-02-18

感谢andy263和sooven的支持，谢谢
andy263能否留你的QQ号码或者email给我？
我们交个朋友

andy263 · 2004-02-18

quakeandy@163.com

jsw19760525 · 2004-02-18

to:andy263
另外，请你看看以下的网址，分一定会给的
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2459418
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2430990
谢谢

如何用dephi6。0编写代码，动态设置windows 2000的网关？(50分)

jsw19760525

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

jsw19760525

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

sooven

Unregistered / Unconfirmed

jsw19760525

Unregistered / Unconfirmed

jsw19760525

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

jsw19760525

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

jsw19760525

Unregistered / Unconfirmed

Similar threads