如何透过程序来控制 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防火墙的开关

推荐阅读

岳阳楼景区背记取号在哪申请？

vivoy30熄屏时钟在哪里

vivorecovery忘记解锁密码怎么办

猪蹄汤的做法猪蹄汤怎么做

苹果微信搜狗输入法怎么设置微信搜狗输入法怎么设置

绿甘蓝和洋白菜的区别

党员为什么村里要搞卫生

浙江省的风俗浙江的风俗

马桶拉屎堵了怎么办

白色阔腿裤和黑色阔腿裤哪个好看

g1744是韶关高铁站上车吗，韶关的动车在哪里坐

特斯拉Model Y是小轿车还是suv

什么是水平公平与垂直公平

手机QQ邮箱在哪看

汉口北服装批发怎么样,杨澜到汉口北直播带货

套索选好后怎么抠出来