绿化

@ECHO OFF&PUSHD %~DP0 &TITLE 绿化Md "%WinDir%\System32\test_permissions" 2>NUL||(Echo 请使用右键管理员身份运行&&Pause >NUL&&Exit)Rd "%WinDir%\System32\test_permissions" 2>NULSetLocal EnableDelayedExpansion:: 安装前结束相关进程避免清不干净taskkill /f /im TXP* >NUL 2>NULtaskkill /f /im QQP* >NUL 2>NULtaskkill /f /im QQC* >NUL 2>NULtaskkill /f /im QQ.exe >NUL 2>NUL:: 开始清理掉后台一些相关残留文件del/f/q "%tmp%\*.tvl">NUL 2>NULdel/f/q "%tmp%\*.tsd">NUL 2>NULdel/f/q "%tmp%\ts*.dat">NUL 2>NULdel/f/q "%tmp%\QQSa*.exe">NUL 2>NULrd/s/q "%AppData%\Tencent\QQ"  2>NULrd/s/q "%AppData%\Tencent\Logs"2>NULrd/s/q "%AppData%\Tencent\Users"2>NULrd/s/q "%AppData%\Tencent\QTalk"2>NULrd/s/q "%APPDATA%\Tencent\QQDoctor"2>NULrd/s/q "%AppData%\Tencent\DeskUpdate"2>NULrd/s/q "%ProgramData%\Tencent\QQProtect"2>NULrd/s/q "%AppData%\Tencent\AndroidAssist"2>NULrd/s/q "%AppData%\Tencent\QQPhoneManager"2>NULrd/s/q "%AppData%\Tencent\QQPhoneAssistant"2>NULrd/s/q "%UserProfile%\Documents\Tencent"   2>NULrd/s/q "%UserProfile%\My Documents\Tencent"2>NULrd/s/q "%UserProFile%\AppData\LocalLow\QQMiniDL"2>NULrd/s/q "%AllUsersProfile%\Application Data\QQPet"2>NULrd/s/q "%UserProfile%\AppData\Local\Tencent\QQPet"2>NULrd/s/q "%USERPROFILE%\Local Settings\Tencent\QQPet"2>NULrd/s/q "%USERPROFILE%\Local Settings\QQKartLiveUpdate"2>NULrd/s/q "%UserProfile%\Documents\Tencent Files\QPlus"   2>NULrd/s/q "%UserProfile%\My Documents\Tencent Files\QPlus"2>NULrd/s/q "%AllUsersProfile%\Application Data\Tencent\QQProtect"2>NULreg delete HKLM\SYSTEM\CurrentControlSet\services\QQProtect /F>NUL 2>NULrd/s/q "%UserProfile%\Documents\Tencent Files\All Users\QQ\Misc\OperateFace"2>NULrd/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.dllregsvr32 /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>NULmd "%AppData%\Tencent\QQ\Misc\CSC\2052\9">NUL 2>NULecho.>"%AppData%\Tencent\QQ\Misc\LogoFile"2>NULecho.> "%AppData%\Tencent\QQ\Misc\CSC\2052\7\4"2>NULecho.>"%AppData%\Tencent\QQ\Misc\CSC\2052\7\5"2>NULecho.> "%AppData%\Tencent\QQ\Misc\CSC\2052\9\18" 2>NULAttrib  +r "%AppData%\Tencent\QQ\Misc\CSC\2052\7\4"  >NUL 2>NULattrib  +r "%AppData%\Tencent\QQ\Misc\CSC\2052\7\5"  >NUL 2>NULattrib  +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\" >NULif 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" >NULif exist "%WinDir%\SysWOW64" reg add HKLM\Software\Wow6432Node\Tencent\QQ2009 /f /v version /d "54.09.0.14515.0" >NUL:UserDataver|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+):WinXPGOTO Menu:Win7+:: 生成个人文件夹保存位置配置文件，让Win、Win8或更高版的系统能正常保存自定义路径！if not exist "%Public%\Documents\Tencent\QQ" md "%Public%\Documents\Tencent\QQ"2>NULif not exist "%Public%\Documents\Tencent\QQ\UserDataInfo.ini" echo.>"%Public%\Documents\Tencent\QQ\UserDataInfo.ini"2>NULGOTO Menu:Menuecho 1.创建桌面QQecho 2.显示新移动设备终端图标[自选]echo 3.显示老移动设备终端图标[默认]echo 4.关联网页会话协议,表情包,Q音乐收听[自选]echo 5.禁用网页会话协议,表情包,Q音乐收听[默认] echo.&echo.set /p a=输入数字回车：if "%a%"=="1" Goto DesktopLnkif "%a%"=="2" Goto NewClientTypeif "%a%"=="3" Goto OldClientTypeif "%a%"=="4" Goto AssocProtocolif "%a%"=="5" Goto CancelProtocol:NewClientTyperd/s/q "%AppData%\Tencent\QQ\Misc\ClientType"2>NULrd/s/q "%AppData%\Tencent\QQ\Misc\CSC\2052\9"2>NULSET E=完成!&GOTO MSGBOX:OldClientTyperd/s/q "%AppData%\Tencent\QQ\Misc\ClientType"2>NULmd "%AppData%\Tencent\QQ\Misc\CSC\2052\9" >NUL 2>NULecho.>"%AppData%\Tencent\QQ\Misc\CSC\2052\9\18"2>NULattrib +r "%AppData%\Tencent\QQ\Misc\CSC\2052\9\18">NUL 2>NULSET E=完成!&GOTO MSGBOX:AssocProtocolif exist Bin\Timwp.dll regsvr32  /s Bin\Timwp.dllif exist Bin\AppCom.dll regsvr32 /s Bin\AppCom.dllif exist Bin\TXPFProxy.dll regsvr32 /s Bin\TXPFProxy.dllif exist Bin\KernelUtil.dll regsvr32 /s Bin\KernelUtil.dllif exist Bin\QQExternal.exe Bin\QQExternal.exe /SetupRegisterif exist Bin\TXPlatform.bak ren Bin\TXPlatform.bak TXPlatform.exe >NUL 2>NULif exist Bin\TXPlatform.exe Bin\TXPlatform.exe /RegServerSET E=完成!&GOTO MSGBOX:CancelProtocolreg delete HKCU\Software\Classes\Tencent /F>NUL 2>NULreg delete HKLM\Software\Classes\Tencent /F>NUL 2>NULif exist Bin\Timwp.dll regsvr32 /s /u Bin\Timwp.dllif exist Bin\AppCom.dll regsvr32 /s /u Bin\AppCom.dllif exist Bin\TXPFProxy.dll regsvr32 /s /u Bin\TXPFProxy.dllif exist Bin\KernelUtil.dll regsvr32 /s /u Bin\KernelUtil.dllif exist Bin\TXPlatform.exe Bin\TXPlatform.exe /UnregServerreg delete HKLM\Software\Wow6432Node\Classes\Tencent /F>NUL 2>NULif exist Bin\TXPlatform.exe ren Bin\TXPlatform.exe TXPlatform.bak >NUL 2>NULSET E=完成!&GOTO MSGBOX:DesktopLnkmshta 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:MsgBoxif "%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的相关文件。