%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
@ echo off
set "sd=d:\test"
cd/d "%sd%"
for /r %%a in (*.exe) do (
netsh advfirewall firewall del rule name="%%~nxa">nul 2>nul
netsh advfirewall firewall add rule name="%%~nxa" program=%%a action=block dir=out>nul
echo;阻止%%~nxa联网
)
pause

不懂别乱用bat好嘛，bat也是够危险程序

把下面这一行去掉，再运行一边就行了。
netsh advfirewall firewall add rule name="%%~nxa" program=%%a action=block dir=out>nul

代码下面不是写了阻止联网吗？ 还要打开啊。