求大大帮忙改一个bat，谷歌拼音绿化工具，麻烦再改一下

2012543309 · 发表于 2012-10-1 20:59:35

内容如下：

@Echo Off
Pushd %~dp0
Title QQ2012绿化与卸载
If "%PROCESSOR_ARCHITECTURE%"=="AMD64" (Set b=%SystemRoot%\SysWOW64) Else (Set b=%SystemRoot%\system32)
Rd "%b%\test_permission_QQ2012" >nul 2>nul
Md "%b%\test_permission_QQ2012" 2>nul||(Echo 请使用右键管理员身份运行&&Pause >nul&&Exit)
Rd "%b%\test_permission_QQ2012" >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)
:Menu
@ ECHO.
ECHO 　　　          QQ2012 绿色简化版功能菜单
@ ECHO. ┏*━*━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*┓
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃
@ ECHO. ┃    ①屏蔽扫描硬盘及绿化QQ2012                   ┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　　　       ┃
@ ECHO. ┃    ②屏蔽群动态群热点广告(非Hosts)             ┃
@ ECHO. ┃ 　　　　　　　　　　　　　　　　　　　　       ┃
@ ECHO. ┃    ③屏蔽登录面板广告与动态推荐皮肤屏蔽上传。 ┃
@ ECHO. ┃                                                 ┃
@ ECHO. ┃    ④修复空间照片上传功能                      ┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃
@ ECHO. ┃　　 ⑤创建桌面快捷方式　　　　　　　　　　　　　　┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃
@ ECHO. ┃　　 ⑥卸载　　　　　　　　　　　　　　          ┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃
@ ECHO. ┃　　 ⑦退出　　　　　　　　　　　　　　　       　┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃    　　
@ ECHO. ┗*━*━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*┛
@ ECHO.
set /p c=请输入对应的数字按[Enter]执行:
:Goto
If "%c%"=="1" Goto HID
If "%c%"=="2" Goto RDGG
If "%c%"=="3" Goto DTGG
If "%c%"=="4" Goto ZPSC
If "%c%"=="5" Goto KJFS
If "%c%"=="6" Goto XZCX
If "%c%"=="7" Exit
Goto Menu
ECHO 　　　       正在屏蔽扫描硬盘，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:HID
taskkill /f /im QQ* >NUL 2>NUL
taskkill /f /im TXP*>NUL 2>NUL
del/f/q "%TMP%\*.tvl">NUL 2>NUL
del/f/q "%TMP%\*.tsd">NUL 2>NUL
del/f/q "%TMP%\*.dat">NUL 2>NUL
regsvr32 /s Bin\TXSSO\SSOCommon.dll
rd/s/q "%TMP%\QQSafeud.exe" 2>NUL
rd/s/q "%AppData%\Tencent\QQ"2>NUL
rd/s/q "%AppData%\Tencent\Users"2>NUL
del/f/q "%TMP%\QQSafeud.exe">NUL 2>NUL
regsvr32 /s Bin\npSSOAxCtrlForPTLogin.dll
md "%AppData%\Tencent\QQ\Misc\CSC\2052"2>NUL
reg delete HKCU\Software\Tencent\QPlus /F>NUL 2>NUL
echo.NO>"%AppData%\Tencent\QQ\Misc\CSC\2052\7"2>NUL
echo.NOBanner>"%AppData%\Tencent\QQ\Misc\LogoFile"2>NUL
regsvr32 /s Plugin\Com.Tencent.NetDisk\Bin\QQDisk\Bin\TXFTNActiveX.dll
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
ECHO 　　       正在屏蔽群动态群热点广告，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:RDGG
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
ECHO 　正在屏蔽登录面板广告与动态推荐皮肤上传，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:DTGG
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
ECHO 　       正在修复空间照片上传功能，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:ZPSC
regsvr32 /s Bin\QQPhotoDrawEx.dll
Set e=修复空间照片上传功能完成
Goto MsgBox
ECHO 　       正在卸载QQ2012，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:XZCX
regsvr32 /u /s Plugin\Com.Tencent.NetDisk\Bin\QQDisk\Bin\TXFTNActiveX.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:"=%
taskkill /f /im QQ* >NUL 2>NUL
taskkill /f /im TXP*>NUL 2>NUL
regsvr32 /s /u Bin\Timwp.dll
regsvr32 /s /u Bin\TXPFProxy.dll
regsvr32 /s /u Bin\SSOCommon.dll
Regsvr32 /s /u Bin\QQPhotoDrawEx.dll
rd/s/q "%AppData%\Tencent\QQ"  2>NUL
rd/s/q "%AppData%\Tencent\TXSSO"2>NUL
rd/s/q "%AppData%\Tencent\Users"2>NUL
rd/s/q "%AllUsersProfile%\Tencent"2>NUL
regsvr32 /s /u Bin\npSSOAxCtrlForPTLogin.dll
rd/s/q "%AllUsersProfile%\Documents\Tencent"2>NUL
rd/s/q "%CommonProgramFiles%\Tencent\TXFTN" 2>NUL
rd/s/q "%CommonProgramFiles%\Tencent\TXPTOP" 2>NUL
rd/s/q "%CommonProgramFiles%\Tencent\NPQSCALL"2>NUL
Del /f /q "%d:\\=\%QQ2012.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%\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
ECHO 　       正在创建桌面快捷方式，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:KJFS
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\QQ2012.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

====================================
改成加载bat直接生成桌面快捷方式，不用再按选项5和回车键，再把加载完成后的确定键也去掉，意思是加载生成桌面快捷方式后直接关掉批处理

===============
谷歌拼音：
http://pan.baidu.com/share/link?shareid=69200&uk=67687601

谷歌拼音里面有一个绿化工具，运行绿化工具后需要点击绿化才可以用，求大大帮改一下绿化工具这个文件，改成运行绿化工具后不需要再点击绿化。绿化后不要留尾巴再关闭一下什么的

[ 本帖最后由 2012543309 于 2012-10-1 23:11 编辑 ]

baosheng00 · 发表于 2012-10-1 22:19:33

@Echo Off
Pushd %~dp0
Title QQ2012绿化与卸载
If "%PROCESSOR_ARCHITECTURE%"=="AMD64" (Set b=%SystemRoot%\SysWOW64) Else (Set b=%SystemRoot%\system32)
Rd "%b%\test_permission_QQ2012" >nul 2>nul
Md "%b%\test_permission_QQ2012" 2>nul||(Echo 请使用右键管理员身份运行&&Pause >nul&&Exit)
Rd "%b%\test_permission_QQ2012" >nul 2>nul
SetLocal EnableDelayedExpansion
Goto MsgBox

: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)
:Menu
@ ECHO.
ECHO 　　　          QQ2012 绿色简化版功能菜单
@ ECHO. ┏*━*━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*┓
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃
@ ECHO. ┃    ①屏蔽扫描硬盘及绿化QQ2012                   ┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　　　       ┃
@ ECHO. ┃    ②屏蔽群动态群热点广告(非Hosts)             ┃
@ ECHO. ┃ 　　　　　　　　　　　　　　　　　　　　       ┃
@ ECHO. ┃    ③屏蔽登录面板广告与动态推荐皮肤屏蔽上传。 ┃
@ ECHO. ┃                                                 ┃
@ ECHO. ┃    ④修复空间照片上传功能                      ┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃
@ ECHO. ┃　　 ⑤创建桌面快捷方式　　　　　　　　　　　　　　┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃
@ ECHO. ┃　　 ⑥卸载　　　　　　　　　　　　　　          ┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃
@ ECHO. ┃　　 ⑦退出　　　　　　　　　　　　　　　       　┃
@ ECHO. ┃　　　　　　　　　　　　　　　　　　　       　　 ┃    　　
@ ECHO. ┗*━*━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*┛
@ ECHO.
set /p c=请输入对应的数字按[Enter]执行:
:Goto
If "%c%"=="1" Goto HID
If "%c%"=="2" Goto RDGG
If "%c%"=="3" Goto DTGG
If "%c%"=="4" Goto ZPSC
If "%c%"=="5" Goto KJFS
If "%c%"=="6" Goto XZCX
If "%c%"=="7" Exit
Goto Menu
ECHO 　　　       正在屏蔽扫描硬盘，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:HID
taskkill /f /im QQ* >NUL 2>NUL
taskkill /f /im TXP*>NUL 2>NUL
del/f/q "%TMP%\*.tvl">NUL 2>NUL
del/f/q "%TMP%\*.tsd">NUL 2>NUL
del/f/q "%TMP%\*.dat">NUL 2>NUL
regsvr32 /s Bin\TXSSO\SSOCommon.dll
rd/s/q "%TMP%\QQSafeud.exe" 2>NUL
rd/s/q "%AppData%\Tencent\QQ"2>NUL
rd/s/q "%AppData%\Tencent\Users"2>NUL
del/f/q "%TMP%\QQSafeud.exe">NUL 2>NUL
regsvr32 /s Bin\npSSOAxCtrlForPTLogin.dll
md "%AppData%\Tencent\QQ\Misc\CSC\2052"2>NUL
reg delete HKCU\Software\Tencent\QPlus /F>NUL 2>NUL
echo.NO>"%AppData%\Tencent\QQ\Misc\CSC\2052\7"2>NUL
echo.NOBanner>"%AppData%\Tencent\QQ\Misc\LogoFile"2>NUL
regsvr32 /s Plugin\Com.Tencent.NetDisk\Bin\QQDisk\Bin\TXFTNActiveX.dll
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
ECHO 　　       正在屏蔽群动态群热点广告，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:RDGG
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
ECHO 　正在屏蔽登录面板广告与动态推荐皮肤上传，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:DTGG
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
ECHO 　       正在修复空间照片上传功能，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:ZPSC
regsvr32 /s Bin\QQPhotoDrawEx.dll
Set e=修复空间照片上传功能完成
Goto MsgBox
ECHO 　       正在卸载QQ2012，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:XZCX
regsvr32 /u /s Plugin\Com.Tencent.NetDisk\Bin\QQDisk\Bin\TXFTNActiveX.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:"=%
taskkill /f /im QQ* >NUL 2>NUL
taskkill /f /im TXP*>NUL 2>NUL
regsvr32 /s /u Bin\Timwp.dll
regsvr32 /s /u Bin\TXPFProxy.dll
regsvr32 /s /u Bin\SSOCommon.dll
Regsvr32 /s /u Bin\QQPhotoDrawEx.dll
rd/s/q "%AppData%\Tencent\QQ"  2>NUL
rd/s/q "%AppData%\Tencent\TXSSO"2>NUL
rd/s/q "%AppData%\Tencent\Users"2>NUL
rd/s/q "%AllUsersProfile%\Tencent"2>NUL
regsvr32 /s /u Bin\npSSOAxCtrlForPTLogin.dll
rd/s/q "%AllUsersProfile%\Documents\Tencent"2>NUL
rd/s/q "%CommonProgramFiles%\Tencent\TXFTN" 2>NUL
rd/s/q "%CommonProgramFiles%\Tencent\TXPTOP" 2>NUL
rd/s/q "%CommonProgramFiles%\Tencent\NPQSCALL"2>NUL
Del /f /q "%d:\\=\%QQ2012.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%\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
:MsgBox

ECHO 　       正在创建桌面快捷方式，请稍等。。。
@ ECHO. *━*━*━*━*━*━*━━☆━━*━*━*━*━*━*━*━*
:KJFS
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\QQ2012.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

2012543309 · 发表于 2012-10-1 22:28:42

谢谢，再改一下好吗，把创建完成后那个确定键项也删掉，意思是创建完桌面快捷方式后自动关掉批处理，不用再按一下确定

穿云鹤 · 发表于 2012-10-3 06:24:25

我也来受益，谢谢两位分享。

		自动登录	找回密码
密码			注册

[求助] 求大大帮忙改一个bat，谷歌拼音绿化工具，麻烦再改一下

回复 #2 baosheng00 的帖子