这样可以用来做个内外网的自动数据交换,又保证两网的物理隔离。
谁有可以用的代码啊?(最好有点简单的注释)。
谢谢。高分征集,100不够再给。
谁有可以用的代码啊?(最好有点简单的注释)。
谢谢。高分征集,100不够再给。
解决方案 »
- 有关串口通讯.江湖救急啊,有钱的捧的钱场,没钱的捧个人场,各位大侠请看
- 关于技术走向的不解,请大家说说自己的想法。
- 百分跪求DLL调用多窗口问题
- 用IS Express for delphi 打包的程序如何在安装完成后自动添加桌面快捷图标?
- 一个小问题
- 对大量数据进行统计,界面像死机,而且另外弹出的窗口也无法移动,用线程弹出窗口也不行?怎么做?
- 请问怎样用[ 简便 ]AdoQuery一次取得一条记录?我现在只能用QueryField.Fields[i].Text取得一条记录中一个字段的值
- 一个库存的问题。。。。代码见内(如需要,请留下你的E-MAIL)
- 在DELPHI中如何实现通过数据库对树的添加删除修改
- 急!!+!在DELPHI中用按钮模拟调用一个用C写的DLL用鼠标点击正常但按回车健却抱错!为何?急!!!
- 请问如何响应TabControl上的按钮点击事件!如:OnDoubleClick!
- 寻求更合适的SQL语句
discVerb = '停用(&B)';
connVerb = '啟用(&A)';function DisableEthernet(const EthName: String): Boolean;
var
// shell1: variant;
//cpFolder: variant;
cpFolder: Folder;
nwFolder: Folder;
nVerbs: FolderItemVerbs;
i,j,k: integer;
begin
result := false; // shell1 := CreateObject('shell.application'); 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;
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;
function EnableEthernet(const EthName: String): Boolean;
var
cpFolder: Folder;
nwFolder: Folder;
nVerbs: FolderItemVerbs;
i,j,k: integer;
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 = connVerb then
begin
nVerbs.Item(k).DoIt;
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;procedure TForm1.Button1Click(Sender: TObject);
begin
DisableEthernet('區域連線');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
EnableEthernet('區域連線');
end;http://beta.experts-exchange.com/Programming/Q_20648190.html
//注意里面的中文,我是在繁体测试的
能给个完整程序吗?你回答的文本里没有处理的程序啊?
cpFolder := form1.shell1.NameSpace(3);
nVerbs.Item(k).DoIt;
是第三方控件吗?