如何透过程序来控制 Windows XP防火墙的开关 _云知道

【如何透过程序来控制 Windows XP防火墙的开关】Dim;objFW;As;Object;;;

Set;objFW;=;CreateObject("HNetCfg.FwMgr").LocalPolicy.CurrentProfile
With;objFW
.FirewallEnabled;=;True;";True;开启;,;False;关闭
.ExceptionsNotAllowed;=;True;";[;不允许例外;];选项;,;True;勾;,;反之则不勾
End;With

或

procedure;Set_WindowsXP_FireWall(Enable:;boolean);
//;需引用;winsvc,;shellapi
//;Set_WindowsXP_FireWall(false);;//;关闭Windows;Xp;防火
//
var
SCM,;hService:;LongWord;
sStatus:;TServiceStatus;
begin
if;Enable;=;false;then
begin
SCM;:=;OpenSCManager(nil,;nil,;SC_MANAGER_ALL_ACCESS);
hService;:=;OpenService(SCM,;PChar("SharedAccess"),;SERVICE_ALL_ACCESS);
ControlService(hService,;SERVICE_CONTROL_STOP,;sStatus);
CloseServiceHandle(hService);
end;
end;

设定Port;的部份，不过还没测试！不过我还是希望写成简单形式的函数库呼叫方式，大家一起测试吧！

出处：http://www-new.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_22122056.html
Example;of;both;adding;and;removing;a;tcp;port;from;the;globaly;open;ports;list;(in;Windows;XP;firewall)

Regards,
Russell

//;Include;ActiveX;and;ComObj;in;uses;clause;(also;Variants;for;D6;and;up)

const
NET_FW_PROFILE_DOMAIN;;;;;;=;;0;
NET_FW_PROFILE_STANDARD;;;;=;;1;

const
NET_FW_IP_PROTOCOL_TCP;;;;;=;6;
NET_FW_IP_PROTOCOL_UDP;;;;;=;17;

const
NET_FW_SCOPE_ALL;;;=;;0;

const
NET_FW_IP_VERSION_ANY;;;;;;=;;2;

implementation
{$R;*.DFM}

procedure;TForm1.Button1Click(Sender:;TObject);
var;;ovMgr:;OleVariant;
ovProfile:;;;;;OleVariant;
ovPort:OleVariant;
begin

//;Create;manager;interface
ovMgr:=CreateOleObject("HNetCfg.FwMgr");

//;Resource;protection
try
//;Get;local;profile;interface
ovProfile:=ovMgr.LocalPolicy.CurrentProfile;
//;Resource;protection
try
//;Create;new;port;interface
ovPort:=CreateOleObject("HNetCfg.FwOpenPort");
try
//;Set;port;properties
ovPort.Port:=81;
ovPort.Name:="Whatever";
ovPort.Scope:=NET_FW_SCOPE_ALL;
ovPort.IpVersion:=NET_FW_IP_VERSION_ANY;
ovPort.Protocol:=NET_FW_IP_PROTOCOL_TCP;
ovPort.Enabled:=True;
//;Resource;protection
try
//;Add;to;globally;open;ports
ovProfile.GloballyOpenPorts.Add(ovPort);

////
//;....;do;whatever;....
////

finally
//;Remove;from;globally;open;ports
ovProfile.GloballyOpenPorts.Remove(81,;NET_FW_IP_PROTOCOL_TCP);
end;
finally
//;Release;interface
ovPort:=Unassigned;
end;
finally
//;Release;interface
ovProfile:=Unassigned;
end;
finally
//;Release;interface
ovMgr:=Unassigned;
end;

end;

如何透过程序来控制 Windows XP防火墙的开关

推荐阅读

辛丑条约是哪一年签订的辛丑条约介绍

华为ags-w09参数 agsw09是华为什么型号

公积金缴存基数的意思是什么

未满16岁可以办电话卡吗

液化气罐的规格和尺寸是多少

有关军训的标题

四害指的是什么四害是指什么

三国演义中著名的以少胜多的战役有哪些三国演义中以少胜多的著名战役

腊月初八煮腊八粥是什么寓意腊八粥的由来

excel怎么筛选重复项并删除 excel找出重复项的方法

Win11无线网络适配器出现感叹号怎么解决？

【吃雪糕】小男孩吃雪糕的画法简笔画怎么画步骤教程

大寒吃什么传统美食大寒节气吃什么

重庆有几个区几个县几个镇

为什么人们喜欢喝可乐,可乐明知道喝多了不好

魅族18参数，LT18Inbsp魅族MX拍照那个强