2023.08.04 关闭新版本PC端QQ广告

新建txt文件，文件名任意

将一下代码copy到文件当中去

@echo off
rem 获取管理员权限

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~n0 ::","","runas",1)(window.close)&&exit

rem 开始将广告dll设置为只读
for /f "tokens=1* delims==" %%a in ('ftype Tencent') do (
    set QQFilePath=%%~dpbQQ.exe
)
set RepalceStr=Plugin\Com.Tencent.Advertisement\Bin\Advertisement.dll
call set DllPath=%QQFilePath:Bin\QQ.exe=%%RepalceStr%%
echo %DllPath%

attrib +r "%DllPath%"  

pause

然后将文件名后缀从.txt改为.bat,双击运行即可。

此方法可以适用于其他软件的广告，前提是你能找到他dll是哪个。