yhcfsr

假设阻止d:\test目录下所有EXE程序联网

%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
复制代码

yhcfsr

原理很简单,通过防火墙来禁止程序联网.有没有成功,可以去防火墙里查看.如果要启用联网,可以删除相关的防火墙规则,或禁用相关规则.
乱码的原因可能有两个:
1.用文本编辑器器打开BAT,另存--查看文件编码是否是ANSI.如果不是,就另存为ANSI.
2.CMD的代码页不是简体中文.如果没改过,这个可能性不大.