wh123wh123

回复 33# cmd1152

求完整有效功能的代码

wh123wh123

netsh方式
newswan 发表于 2021-7-22 03:23

这个好像无实际效果，在防火墙里能看到灰色和绿色以及删除添加的变化，但是程序并没有因此而跟随变化

wh123wh123

@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause & exit
$program = "D:\AAA.exe"
New-NetFirewallRule -DisplayName "阻断一次" -Profile Private,Public -Direction Outbound -Program $program -Action block
$count = 0
do
{
    $count += 1
    write-host "count:" $count
    Enable-NetFirewallRule -DisplayName "阻断一次"
    start-sleep 5
    disable-NetFirewallRule -DisplayName "阻断一次"
    start-sleep 8
}
while {$true}

提示错误

cmd1152

回复 34# wh123wh123


    我不会

newswan

回复 36# wh123wh123


    😓，刚才注意到，低级错误

while ($true)
复制代码

另外，保存为ansi，否则中文会导致出错

newswan

回复 35# wh123wh123


有的程序用这种方式不行，要找到实际联网的那些。
你手动操作防火墙，看看怎么能阻止。

wh123wh123

回复 38# newswan

您发完整代码，看不懂刚才这是啥意思啊

newswan

回复 40# wh123wh123

while {$true}
复制代码

改为

while ($true)
复制代码

wh123wh123

回复  wh123wh123 改为
newswan 发表于 2021-7-22 13:30

    这不是一样嘛？

newswan

回复 42# wh123wh123


    () 和 {}

wh123wh123

回复 43# newswan

.ps1这样的后缀名？没法运行啊，闪一下就消失了

wh123wh123

回复 43# newswan

@if(0)==(0) echo off
@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause & exit
$program = "D:\AAA.exe"
New-NetFirewallRule -DisplayName "阻断一次" -Profile Private,Public -Direction Outbound -Program $program -Action block
$count = 0
do
{
    $count += 1
    write-host "count:" $count
    Enable-NetFirewallRule -DisplayName "阻断一次"
    start-sleep 5
    disable-NetFirewallRule -DisplayName "阻断一次"
    start-sleep 8
}
while ($true)

BAT没法正常运行啊，后缀改为.ps1闪一下消失了

wh123wh123

在线期待老师给个完整完美版的代码，先谢谢各位老师

wh123wh123

回复 2# idwma

在线等老师

wh123wh123

回复 48# idwma
不是阻断所有程序，而是只阻断某一个，例如D:/AAA.exe，阻断AAA.exe联网后不影响其他程序正常联网的那种，也就是只针对一个例如AAA.exe控制