英特尔®游戏设计大赛100美元现金周周送	专题改版：Java Web 专题

高分求一个禁止网卡的程序。

楼主java_xzy（savage）2003-09-02 21:44:31 在 Delphi / Windows SDK/API 提问

我有2块网卡，我想在机器自动启动时，自动禁止其中一块网卡。把那个网卡连接的网络断掉。
有什么办法可以禁止掉？问题点数：20、回复次数：17Top

1 楼eliphe（未来）回复于 2003-09-03 12:52:27 得分 0

拔掉不就行了？Top

2 楼java_xzy（savage）回复于 2003-09-03 21:24:08 得分 0

不是啊。我要用程序来自动禁止掉一个网卡。Top

3 楼kaiyun97（黑马不黑）回复于 2003-09-04 16:43:07 得分 0

Win2k下系统就可禁止啊,干吗要用程序呢?Top

4 楼cmain83（C 写紫色天空）回复于 2003-09-05 17:39:37 得分 0

把驱动程序移到另一个地方去.Top

5 楼java_xzy（savage）回复于 2003-09-06 20:04:43 得分 0

开机移动吗？Top

6 楼Cappuccino（加奶的咖啡）回复于 2003-09-07 10:19:59 得分 0

把网卡拔掉
或者把网线拔掉，哈哈~~Top

7 楼coolfilm（苏飞工作室）回复于 2003-09-07 13:05:58 得分 0

可以先把网卡地址取出来!在编程使网络打开或者连接!最后加入到启动组里边!Top

8 楼DelphiStudy（拿下BCD就去搞C++）回复于 2003-09-07 13:08:07 得分 0

你去系统区问问，我估计WinExec();一个dos命令可以搞定。Top

9 楼jianxin_js（兔）回复于 2003-09-08 09:41:25 得分 0

友情UPTop

10 楼ypyRock（Rock）回复于 2003-09-08 23:52:16 得分 0

我有delphi版的启动、停止本机网卡的程序，调用ddk里setup api实现。
可以免费提供程序，但有偿源码Top

11 楼naughtyboy（重归起跑线）回复于 2003-09-09 14:53:16 得分 5

两种方法
一种是利用windows shell
另外一种是利用iphlpapi SetIfEntry
我发在www.eping.net delphi猛料版了
这里不转了Top

12 楼hawk_js（鹰）回复于 2003-09-09 17:33:41 得分 0

xuexiTop

13 楼szqs（圣战骑士）回复于 2003-09-23 22:24:50 得分 0

naughtyboy(重归起跑线) ,我在www.eping.net delphi猛料版找不到啊，再贴上来好吗？Top

14 楼zmonarch（君临天下）回复于 2003-09-24 15:57:36 得分 0

打开网上邻居的属性框，选中要禁止的连接右键，选禁用Top

15 楼westfly（左眼）回复于 2003-09-25 23:46:33 得分 5

WNetCancenConnection2(lLocal,CONNECT_UPDATE_PROFILE,true);Top

16 楼cnsolonet（鹰）回复于 2003-09-26 00:04:29 得分 0

upTop

17 楼naughtyboy（重归起跑线）回复于 2003-09-26 08:44:04 得分 10

const
discVerb = '禁用(&B)';
connVerb = '启用(&A)';

function DisableEthernet(const EthName: String): Boolean;
var
cpFolder: Folder;
nwFolder: Folder;
nVerbs: FolderItemVerbs;
i,j,k: integer;
aItem: TListItem;
begin
result := false;
cpFolder := Form1.shell1.NameSpace(3);
if cpFolder <> nil then
begin
for i := 0 to cpFolder.items.Count-1 do
begin
if cpFolder.Items.Item(i).Name = '网络和拨号连接' then
begin
nwFolder := cpFolder.items.item(i).GetFolder as Folder;
if nwFolder <> nil then
begin
for j :=0 to nwFolder.items.Count-1 do
begin
if nwFolder.Items.Item(j).Name = EthName then
begin
nVerbs := nwFolder.Items.Item(j).Verbs;
for k := 0 to nVerbs.Count-1 do
begin
if nVerbs.Item(k).Name = discVerb then
begin
nVerbs.Item(k).DoIt;
aItem := Form1.lvLog.Items.Add;
aItem.Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
aItem.SubItems.Add(EthName);
aItem.SubItems.Add(discVerb);
Result := True;
end;
end;
end;
end;
end;
end;
end;
if nwFolder = nil then
showmessage('Network and Dial-up Connections not found');
end
else
showmessage('control panel not found');

end;
Top