我正在构建一个软件,该软件能够在某些条件下允许某些IP(v4)的开放端口。我有这段代码来添加路线。工作正常:
procedure TfrmMain.AddAntiHookAllowRuleTest();
var
fwPolicy2 : INetFwPolicy2;
newRule : INetFWRule;
begin
// Create the FwPolicy2 object
fwPolicy2 := INetFwPolicy2(CreateOleObject( 'HNetCfg.FwPolicy2' ));
// Create a Rule object
newRule := INetFWRule(CreateOleObject('HNetCfg.FWRule'));
// Configure Rule object
newRule.Name := 'AHOOK_SELF_ALLOW_RUTE';
newRule.Description := 'Permitir todas las conexiones al Anti Hook a distintos puertos basado en el IP de los usuarios';
newRule.Applicationname := Application.ExeName;
newRule.Action := NET_FW_ACTION_ALLOW;
newRule.Direction := NET_FW_RULE_DIR_IN;
newRule.Protocol := NET_FW_IP_PROTOCOL_TCP;
newRule.LocalPorts := '8080,8081';
newRule.Enabled := true;
newRule.InterfaceTypes := 'LAN';
//newRule.Grouping := 'CCN Antihook';
//Add a new rule object
FwPolicy2.Rules.Add( newRule );
end;
但是我需要能够在示波器的“远程地址”部分中添加或删除某些IP。在Windows防火墙中,编辑路径对象时,可以在“作用域”选项卡中完成。我该如何实现? 预先感谢。
仅供参考:我导入NetFwTypeLib_TLB。这个lib更容易。