批处理研究(QQ绿化和卸载)

绿化

@ECHO OFF&PUSHD %~DP0 &TITLE 绿化
Md "%WinDir%\System32\test_permissions" 2>NUL||(Echo 请使用右键管理员身份运行&&Pause >NUL&&Exit)
Rd "%WinDir%\System32\test_permissions" 2>NUL
SetLocal EnableDelayedExpansion

:: 安装前结束相关进程避免清不干净
taskkill /f /im TXP* >NUL 2>NUL
taskkill /f /im QQP* >NUL 2>NUL
taskkill /f /im QQC* >NUL 2>NUL
taskkill /f /im QQ.exe >NUL 2>NUL

:: 开始清理掉后台一些相关残留文件
del/f/q "%tmp%\*.tvl">NUL 2>NUL
del/f/q "%tmp%\*.tsd">NUL 2>NUL
del/f/q "%tmp%\ts*.dat">NUL 2>NUL
del/f/q "%tmp%\QQSa*.exe">NUL 2>NUL
rd/s/q "%AppData%\Tencent\QQ"  2>NUL
rd/s/q "%AppData%\Tencent\Logs"2>NUL
rd/s/q "%AppData%\Tencent\Users"2>NUL
rd/s/q "%AppData%\Tencent\QTalk"2>NUL
rd/s/q "%APPDATA%\Tencent\QQDoctor"2>NUL
rd/s/q "%AppData%\Tencent\DeskUpdate"2>NUL
rd/s/q "%ProgramData%\Tencent\QQProtect"2>NUL
rd/s/q "%AppData%\Tencent\AndroidAssist"2>NUL
rd/s/q "%AppData%\Tencent\QQPhoneManager"2>NUL
rd/s/q "%AppData%\Tencent\QQPhoneAssistant"2>NUL
rd/s/q "%UserProfile%\Documents\Tencent"   2>NUL
rd/s/q "%UserProfile%\My Documents\Tencent"2>NUL
rd/s/q "%UserProFile%\AppData\LocalLow\QQMiniDL"2>NUL
rd/s/q "%AllUsersProfile%\Application Data\QQPet"2>NUL
rd/s/q "%UserProfile%\AppData\Local\Tencent\QQPet"2>NUL
rd/s/q "%USERPROFILE%\Local Settings\Tencent\QQPet"2>NUL
rd/s/q "%USERPROFILE%\Local Settings\QQKartLiveUpdate"2>NUL
rd/s/q "%UserProfile%\Documents\Tencent Files\QPlus"   2>NUL
rd/s/q "%UserProfile%\My Documents\Tencent Files\QPlus"2>NUL
rd/s/q "%AllUsersProfile%\Application Data\Tencent\QQProtect"2>NUL
reg delete HKLM\SYSTEM\CurrentControlSet\services\QQProtect /F>NUL 2>NUL
rd/s/q "%UserProfile%\Documents\Tencent Files\All Users\QQ\Misc\OperateFace"2>NUL
rd/s/q "%UserProfile%\My Documents\Tencent Files\All Users\QQ\Misc\OperateFace"2>NUL

:: 注册谷歌、火狐、Opera 快速登陆控件
regsvr32 /s Bin\TXSSO\Npchrome\npactivex.dll
:: 注册SSO核心库、IE及接口快速登陆控件
regsvr32 /s Bin\TXSSO\Bin\SSOCommon.dll
regsvr32 /s Bin\TXSSO\Bin\npSSOAxCtrlForPTLogin.dll
:: 注册中转站上传,群共享、微云上传控件
regsvr32 /s Plugin\Com.Tencent.NetDisk\Bin\QQDisk\Bin\TXFTNActiveX.dll

:: 注册下载助手登陆库控件(注:不传递到系统公用库并注册则打开它无法登陆)
:: 放置视频直播下载库组件(注:不传递到系统公用库会导致无法加载资源安装)
:: if exist Bin\DownloadProxyPS.dll regsvr32 /s Bin\DownloadProxyPS.dll
:: if not exist "%Windir%\SysWOW64" md "%CommonProgramFiles%\Tencent\TXSSO\Bin"2>NUL
:: if exist "%Windir%\SysWOW64" md "%CommonProgramFiles(x86)%\Tencent\TXSSO\Bin"2>NUL
:: if not exist "%Windir%\SysWOW64" xcopy /i/y/e Bin\TXSSO\Bin "%CommonProgramFiles%\Tencent\TXSSO\Bin">NUL 2>NUL
:: if exist "%Windir%\SysWOW64" xcopy /i/y/e Bin\TXSSO\Bin "%CommonProgramFiles(x86)%\Tencent\TXSSO\Bin">NUL 2>NUL
:: if not exist "%Windir%\SysWOW64" regsvr32 /s "%CommonProgramFiles%\Tencent\TXSSO\Bin\SSOLUIControl.dll"
:: if exist "%Windir%\SysWOW64" regsvr32 /s "%CommonProgramFiles(x86)%\Tencent\TXSSO\Bin\SSOLUIControl.dll"
:: if not exist "%WinDir%\SysWOW64" reg add HKLM\Software\Tencent\TXSSO /f /v version /d "1.2.3.19" >NUL
:: if exist "%WinDir%\SysWOW64" reg add HKLM\Software\Wow6432Node\Tencent\TXSSO /f /v version /d "1.2.3.19" >NUL

:: 设置后台终端设备老图标和防止群图标复发占位文件
md "%AppData%\Tencent\QQ\Misc\CSC\2052\7">NUL 2>NUL
md "%AppData%\Tencent\QQ\Misc\CSC\2052\9">NUL 2>NUL
echo.>"%AppData%\Tencent\QQ\Misc\LogoFile"2>NUL
echo.> "%AppData%\Tencent\QQ\Misc\CSC\2052\7\4"2>NUL
echo.>"%AppData%\Tencent\QQ\Misc\CSC\2052\7\5"2>NUL
echo.> "%AppData%\Tencent\QQ\Misc\CSC\2052\9\18" 2>NUL
Attrib  +r "%AppData%\Tencent\QQ\Misc\CSC\2052\7\4"  >NUL 2>NUL
attrib  +r "%AppData%\Tencent\QQ\Misc\CSC\2052\7\5"  >NUL 2>NUL
attrib  +r "%AppData%\Tencent\QQ\Misc\CSC\2052\9\18" >NUL 2>NUL

:: 设置安装路劲,安装视频留言和影音播放等组件下载需要
if not exist "%WinDir%\SysWOW64" reg add HKLM\Software\Tencent\QQ2009 /f /v Install /d "%~dp0\" >NUL
if exist "%WinDir%\SysWOW64" reg add HKLM\Software\Wow6432Node\Tencent\QQ2009 /f /v Install /d "%~dp0\" >NUL

:: 创建安装版本号,企业类型网页会话需要,CRM组件需保留
if not exist "%WinDir%\SysWOW64" reg add HKLM\Software\Tencent\QQ2009 /f /v version /d "54.09.0.14515.0" >NUL
if exist "%WinDir%\SysWOW64" reg add HKLM\Software\Wow6432Node\Tencent\QQ2009 /f /v version /d "54.09.0.14515.0" >NUL

:UserData
ver|findstr "5\.[0-9]\.[0-9][0-9]*" > nul && (goto WinXP)
ver|findstr "6\.[0-9]\.[0-9][0-9]*" > nul && (goto Win7+)
ver|findstr "10\.[0-9]\.[0-9][0-9]*" > nul && (goto Win7+)

:WinXP
GOTO Menu

:Win7+
:: 生成个人文件夹保存位置配置文件,让Win、Win8或更高版的系统能正常保存自定义路径!
if not exist "%Public%\Documents\Tencent\QQ" md "%Public%\Documents\Tencent\QQ"2>NUL
if not exist "%Public%\Documents\Tencent\QQ\UserDataInfo.ini" echo.>"%Public%\Documents\Tencent\QQ\UserDataInfo.ini"2>NUL
GOTO Menu

:Menu
echo 1.创建桌面QQ
echo 2.显示新移动设备终端图标[自选]
echo 3.显示老移动设备终端图标[默认]
echo 4.关联网页会话协议,表情包,Q音乐收听[自选]
echo 5.禁用网页会话协议,表情包,Q音乐收听[默认] 
echo.&echo.
set /p a=输入数字回车:
if "%a%"=="1" Goto DesktopLnk
if "%a%"=="2" Goto NewClientType
if "%a%"=="3" Goto OldClientType
if "%a%"=="4" Goto AssocProtocol
if "%a%"=="5" Goto CancelProtocol
:NewClientType
rd/s/q "%AppData%\Tencent\QQ\Misc\ClientType"2>NUL
rd/s/q "%AppData%\Tencent\QQ\Misc\CSC\2052\9"2>NUL
SET E=完成!&GOTO MSGBOX
:OldClientType
rd/s/q "%AppData%\Tencent\QQ\Misc\ClientType"2>NUL
md "%AppData%\Tencent\QQ\Misc\CSC\2052\9" >NUL 2>NUL
echo.>"%AppData%\Tencent\QQ\Misc\CSC\2052\9\18"2>NUL
attrib +r "%AppData%\Tencent\QQ\Misc\CSC\2052\9\18">NUL 2>NUL
SET E=完成!&GOTO MSGBOX
:AssocProtocol
if exist Bin\Timwp.dll regsvr32  /s Bin\Timwp.dll
if exist Bin\AppCom.dll regsvr32 /s Bin\AppCom.dll
if exist Bin\TXPFProxy.dll regsvr32 /s Bin\TXPFProxy.dll
if exist Bin\KernelUtil.dll regsvr32 /s Bin\KernelUtil.dll
if exist Bin\QQExternal.exe Bin\QQExternal.exe /SetupRegister
if exist Bin\TXPlatform.bak ren Bin\TXPlatform.bak TXPlatform.exe >NUL 2>NUL
if exist Bin\TXPlatform.exe Bin\TXPlatform.exe /RegServer
SET E=完成!&GOTO MSGBOX
:CancelProtocol
reg delete HKCU\Software\Classes\Tencent /F>NUL 2>NUL
reg delete HKLM\Software\Classes\Tencent /F>NUL 2>NUL
if exist Bin\Timwp.dll regsvr32 /s /u Bin\Timwp.dll
if exist Bin\AppCom.dll regsvr32 /s /u Bin\AppCom.dll
if exist Bin\TXPFProxy.dll regsvr32 /s /u Bin\TXPFProxy.dll
if exist Bin\KernelUtil.dll regsvr32 /s /u Bin\KernelUtil.dll
if exist Bin\TXPlatform.exe Bin\TXPlatform.exe /UnregServer
reg delete HKLM\Software\Wow6432Node\Classes\Tencent /F>NUL 2>NUL
if exist Bin\TXPlatform.exe ren Bin\TXPlatform.exe TXPlatform.bak >NUL 2>NUL
SET E=完成!&GOTO MSGBOX
:DesktopLnk
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\QQ7.1.lnk""):b.TargetPath=""%~dp0Bin\QQ.exe"":b.WorkingDirectory=""%~dp0Bin"":b.Save:close")&SET E=完成!&GOTO MSGBOX
:MsgBox
if "%1"=="" mshta VBScript:MsgBox("%e%",vbSystemModal,"")(close)& Cls&Goto Menu

第一行:关闭回显,PUSHD %~DP0 切换到批出的的存放目录,加上标题。 &符号表示这三条命令同时执行。

第二、三行:通过在%WinDir%\System32\路径新建目录,测试用户权限。 ||符号表示,前面命令失败,执行后面的命令。这里的意思是,如果不能创建test_permissions文件夹,打印提示“请使用右键管理员身份运行”,并退出批处理。如果创建test_permissions文件夹成功,说明当前用户的权限是足够的,删除创建的test_permissions文件夹。

第四行:开启延迟环境变量

第7~10行:杀掉进程名中含有TXP/QQP/QQC/QQ.EXE的进程。/f强制删除,/im以进程名删除进程。

第13~39行:删除残留的关联文件和注册表,确保随后的操作被允许。这是整个批处理的第一个难点,一般人并不知道QQ都关联那些文件,这需要对QQ和操作系统比较了解。当然,也可以跟踪QQ的安装过程,从而获取QQ的轨迹,进而判断QQ的相关文件。




转载于:https://my.oschina.net/snake1989/blog/471941

@Echo Off Pushd %~dp0 Title QQ2013精简版辅助工具 If "%PROCESSOR_ARCHITECTURE%"=="AMD64" (Set b=%SystemRoot%\SysWOW64) Else (Set b=%SystemRoot%\system32) Rd "%b%\test_permission" >nul 2>nul Md "%b%\test_permission" 2>nul||(Echo 请使用右键管理员身份运行&&Pause >nul&&Exit) Rd "%b%\test_permission" >nul 2>nul SetLocal EnableDelayedExpansion :Menu Cls If Exist "%b%\Tasklist.exe" Tasklist|Find /i "qq.exe">nul&&(Echo 请先退出QQ,按任意键重试&&Pause >nul&&Goto Menu) If Not "%1"=="" (Set c=%1&Goto Goto) Echo 注:放入QQ安装文件夹直接运行,以下是一些增强功能 Echo 1.屏蔽扫描硬盘 Echo 2.屏蔽群动态群热点广告(非Hosts) Echo 3.屏蔽登录面板广告与动态推荐皮肤 Echo 4.修复网络硬盘上传和微博图片上传功能 Echo 5.修复登录超时(慎用) Echo 6.创建桌面快捷方式 Echo 7.卸载 Echo 8.退出 Set /p c=请输入数字并按Enter确定: :Goto If Not "%c%"=="" Set c=%c:~0,1% If "%c%"=="1" Goto Fuck If "%c%"=="2" Goto GroupAd If "%c%"=="3" Goto CSC If "%c%"=="4" Goto Upload If "%c%"=="5" Goto Overtime If "%c%"=="6" Goto lnk If "%c%"=="7" Goto Uninstall If "%c%"=="8" Exit Goto Menu :Fuck Rd /s /q "%TMP%\qqsafeud.exe" >nul 2>nul||Del /f /q "%TMP%\qqsafeud.exe" >nul 2>nul Rd /s /q "%AppData%\Tencent\QQ\SafeBase" >nul 2>nul Md "%AppData%\Tencent\QQ" >nul 2>nul Echo.>"%AppData%\Tencent\QQ\SafeBase" Md "%TMP%\qqsafeud.exe" Set e=屏蔽完成 Goto MsgBox :CSC Rd /s /q "%AppData%\Tencent\QQ\Misc\OAPanelLogo" >nul 2>nul Rd /s /q "%AppData%\Tencent\QQ\Misc\LogoFile" >nul 2>nul Rd /s /q "%AppData%\Tencent\QQ\Misc\CSC" >nul 2>nul Rd /s /q "%AppData%\Tencent\QQ\Skins\RecommendPreview" >nul 2>nul Md "%AppData%\Tencent\QQ\Misc\CSC\2052" >nul 2>nul Md "%AppData%\Tencent\QQ\Skins" >nul 2>nul Echo.>"%AppData%\Tencent\QQ\Misc\OAPanelLogo" Echo.>"%AppData%\Tencent\QQ\Misc\LogoFile" Echo.>"%AppData%\Tencent\QQ\Misc\CSC\2052\7" Echo.>"%AppData%\Tencent\QQ\Skins\RecommendPreview" Set e=屏蔽完成 Goto MsgBox :GroupAd Rd /s /q "%AppData%\Tencent\QQ\Temp\gm" >nul 2>nul Rd /s /q "%AppData%\Tencent\QQ\Misc\GMF" >nul 2>nul Md "%AppData%\Tencent\QQ\Misc" >nul 2>nul Echo.>"%AppData%\Tencent\QQ\Misc\GMF" Set e=屏蔽完成 Goto MsgBox :Overtime Rd /s /q "%CommonProgramFiles%\Tencent" >nul 2>nul If Exist "%CommonProgramFiles(x86)%" Rd /s /q "%CommonProgramFiles(x86)%\Tencent" >nul 2>nul :Upload If "%c%"=="4" Regsvr32 /s "Plugin\Com.Tencent.NetDisk\Bin\QQDisk\Bin\TXFTNActiveX.dll" Set e=修复完成 Goto MsgBox :Uninstall Regsvr32 /s /u "Plugin\Com.Tencent.NetDisk\Bin\QQDisk\Bin\TXFTNActiveX.dll" Regsvr32 /s /u "Bin\TXSSO\Bin\SSOCommon.dll" If Exist Bin\TXPFProxy.dll Regsvr32 /s /u Bin\TXPFProxy.dll If Exist Bin\TXSSO\Bin\npSSOAxCtrlForPTLogin.dll Regsvr32 /s /u Bin\TXSSO\Bin\npSSOAxCtrlForPTLogin.dll If Exist Bin\Timwp.dll Regsvr32 /s /u Bin\Timwp.dll For /f "skip=2 tokens=1,2 delims=:" %%i in ('Reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop') Do (Set d=%%i Set d=!d:~-1!:%%j\) Set d=%d:"=% Del /f /q "%d:\\=\%QQ2013.lnk" >nul 2>nul Reg Delete "HKLM\SOFTWARE\Tencent\QQ2009" /f >nul 2>nul Reg Delete "HKCU\SOFTWARE\Tencent\QQ2009" /f >nul 2>nul Reg Delete "HKLM\SOFTWARE\Wow6432Node\Tencent\QQ2009" /f >nul 2>nul Rd /s /q "%AppData%\Tencent\QQ" >nul 2>nul Rd /s /q "%AppData%\Tencent\Logs" >nul 2>nul Rd /s /q "%TMP%\qqsafeud.exe" >nul 2>nul||Del /f /q "%TMP%\qqsafeud.exe" >nul 2>nul Rd /s /q "%AllUsersProfile%\Documents\Tencent" >nul 2>nul Rd /s /q "%AllUsersProfile%\Tencent" >nul 2>nul Del /f /q "%TMP%\ts*.dat" >nul 2>nul Del /f /q "%TMP%\t*.tsd" >nul 2>nul Del /f /q "%TMP%\tvl*.tvl" >nul 2>nul Set e=卸载完成 Goto MsgBox :lnk mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\QQ2013.lnk""):b.TargetPath=""%~dp0Bin\QQ.exe"":b.WorkingDirectory=""%~dp0Bin\"":b.Save:close") Set e=创建快捷方式完成 :MsgBox If "%1"=="" mshta VBScript:Msgbox("%e%",vbSystemModal,"")(close) Shift /1 Goto Menu
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值