Windows防火墙使用远程IP添加路由?

时间:2019-06-03 00:05:15

标签: delphi windows-firewall

我正在构建一个软件,该软件能够在某些条件下允许某些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更容易。

0 个答案:

没有答案