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}

提示错误

wh123wh123

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

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

wh123wh123

回复 33# cmd1152

求完整有效功能的代码

cmd1152

回复 6# wh123wh123


    这不是Vbs脚本...

wh123wh123

回复 31# newswan

保存为.bat？运行提示语法不正确

命令语法不正确。
一个或多个重要的参数没有输入。
请验证需要的参数，然后再次输入。

count: 1

没有与指定标准相匹配的规则。


没有与指定标准相匹配的规则。

已断开

已删除 1 规则。
确定。

已连接
确定。

count: 2

没有与指定标准相匹配的规则。


没有与指定标准相匹配的规则。

已断开

已删除 1 规则。
确定。

已连接
确定。

count: 3

没有与指定标准相匹配的规则。


没有与指定标准相匹配的规则。

已断开

已删除 1 规则。
确定。

已连接
确定。

count: 4

没有与指定标准相匹配的规则。


没有与指定标准相匹配的规则。

已断开

已删除 1 规则。
确定。

已连接
确定。

count: 5

没有与指定标准相匹配的规则。

newswan

netsh方式

set %program%="D:\Program Files\realVNC\VNC-Viewer.exe"
netsh advfirewall firewall add rule name="bbb" profile=public,private dir=out program=%program% action=block
set count=0
:Loop
set /a count+=1
echo count: %count%
netsh advfirewall firewall set rule name="bbb" new enable=no
choice /t 5 /d y /n >nul
netsh advfirewall firewall set rule name="bbb" new enable=yes
choice /t 8 /d y /n >nul
goto :Loop
复制代码

newswan

回复 29# wh123wh123


netsh 不熟悉了，要试试

wh123wh123

回复 28# newswan

能不能把下面代码完善一下，只正对AAA.exe阻断和放行，并且显示正在执行第几次

@echo off
title=恢复默认
netsh advfirewall set domainprofile firewallpolicy blockinbound,AllowOutbound
netsh advfirewall set privateprofile firewallpolicy blockinbound,AllowOutbound
netsh advfirewall set publicprofile firewallpolicy blockinbound,AllowOutbound
pause

@echo off
title=批处理阻止与解除某个exe进程的联网
netsh advfirewall set domainprofile firewallpolicy blockinbound,blockoutbound
netsh advfirewall set privateprofile firewallpolicy blockinbound,blockoutbound
netsh advfirewall set publicprofile firewallpolicy blockinbound,blockoutbound
:loop
ping -n 6 127.0.1 >nul
echo 已断开
netsh advfirewall firewall delete rule name="阻断一次"
ping -n 9 127.0.1 >nul
echo 已连接
netsh advfirewall firewall add rule name="阻断一次" dir=out action=allow program="D:\AAA.exe" enable=yes
goto :loop

newswan

回复 27# wh123wh123


什么错？   
http://www.bathome.net/thread-31071-1-1.html

wh123wh123

回复 24# newswan

提示错误

wh123wh123

回复 24# newswan

你的意思是加入第一行后把下面代码保存为bat？然后运行即可只对D:\AAA.exe阻止和放行？

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

newswan

先头一段时间进不了论坛

newswan

回复 23# wh123wh123


    bbb 是规则名 ，
插入为第一行保存为bat，管理员运行

@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause & exit
复制代码

其他方式去去看其他帖子

wh123wh123

回复 21# newswan

代码保存为：新建文本文档.ps1  这样吗？为什么运行后闪了一下就消失了，需要阻止的程序依然正常联网，没效果

wh123wh123

回复 21# newswan

DisplayName "bbb"下面的这2处bbb是啥？需要修改吗？