【集成QQ音乐库】酷我音乐PC绿色版-可下无损

syllj123

绿色版的，集成qq音乐库，歌曲比较多了。
忘了说明：能下收费的！！！！不多说，自己体验
解压后先运行文件里的绿化


连接：https://www.lanzouj.com/i8g7rng

慕易

可以把绿化卸载合并，楼主提供的卸载就卸载不了桌面图标，我这个应该可以，有兴趣朋友试一试，下面是bat
@ECHO OFF
mode con cols=39 lines=22
title 慕易 改版
color 5f
>NUL 2>&1 REG.exe query "HKU\S-1-5-19" || (
    ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
    ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
    "%TEMP%\Getadmin.vbs"
    DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL
    Exit /b
)



:Menu

@ echo.
echo     酷我音乐 8.7.4 VIP去广告绿色版

echo           ....................
echo   北京      %date%
echo   时间       %time%
echo           ....................
@ echo.
@ echo.　　　　　   菜 单 选 项
@ echo.
echo.  绿化 酷我音乐         → 请输入（1）
echo  ....................................
echo.  卸载 酷我音乐         → 请输入（2）
echo  ....................................

echo.&echo.
set /p a=输入数字，然后按回车键：
IF NOT "%a%"=="" SET a=%a:~0,1%
if "%a%"=="1" Goto Setup
if "%a%"=="2" Goto Uninst

echo.&echo 输入无效，请重新输入！
PAUSE >NUL && CLS && GOTO Menu

:Setup
taskkill /f /im KwMusic* >NUL 2>NUL
taskkill /f /im KwService*  >NUL 2>NUL
taskkill /f /im KwWebKit*  >NUL 2>NUL
taskkill /f /im KwWallpaper* >NUL 2>NUL

rd/s/q "%ProgramData%\Kuwodata" 2>NUL
rd/s/q "%AllUsersProfile%\Application Data\Kuwodata" 2>NUL

if exist "%Public%" md "%ProgramData%\Kuwodata" 2>NUL
if exist "%Public%" xcopy /e/i/y  "$APPDATA\kuwodata" "%ProgramData%\Kuwodata" >NUL 2>NUL
if not exist "%Public%" md "%AllUsersProfile%\Application Data\kuwodata" 2>NUL
if not exist "%Public%" xcopy /e/i/y  "$APPDATA\kuwodata" "%AllUsersProfile%\Application Data\kuwodata"
Attrib +r "%ProgramData%\kuwodata\kwmusic2013\ModuleData\ModMusicTool\conf.txt" >NUL 2>NUL
Attrib +r "%AllUsersProfile%\Application Data\kuwodata\kwmusic2013\ModuleData\ModMusicTool\conf.txt" >NUL 2>NUL

If Exist "%Public%"  reg add "HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers" /f /v "%~dp0KwMusic.exe" /d "~ RUNASADMIN" >NUL



mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\酷我音乐.lnk""):b.TargetPath=""%~dp0KwMusic.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
&EXIT



:Uninst
taskkill /f /im KwMusic* >NUL 2>NUL
taskkill /f /im KwService* >NUL 2>NUL
taskkill /f /im KwWebKit*  >NUL 2>NUL
taskkill /f /im KwWallpaper* >NUL 2>NUL

rd/s/q "Bin\log"
rd/s/q "Bin\bin" 2>NUL
rd/s/q "Bin\data" 2>NUL
rd/s/q "Bin\temp" 2>NUL
rd/s/q "Bin\Skin\nav" 2>NUL
rd/s/q "Bin\Skin\servertheme" 2>NUL
rd/s/q "bin\html\webpacket" 2>NUL
rd/s/q "bin\html\webdata\radio" 2>NUL
del/f  "Bin\kid.ini" >NUL 2>NUL
del/f  "Bin\plugin\in_wave.dll" >NUL 2>NUL
del/f  "Bin\plugin\dsp_omxe.dll" >NUL 2>NUL
del/f  "Bin\plugin\dsp_DeFX.dll" >NUL 2>NUL
del/f  "Bin\plugin\dsp_izOzone.dll" >NUL 2>NUL

rd/s/q "%ProgramData%\kuwodata" 2>NUL
rd/s/q "%UserProfile%\AppData\Local\kwmusic" 2>NUL
rd/s/q "%AllUsersProfile%\Application Data\Kuwodata" 2>NUL
rd/s/q "%UserProfile%\Local Settings\Application Data\kwmusic" 2>NUL

del /q "%userprofile%\Desktop\酷我音乐.lnk" >NUL  2>NUL
del /q "%userprofile%\桌面\酷我音乐.lnk" >NUL  2>NUL&EXIT

xinsuren

wzlazjt 发表于 2020-1-4 16:37
这两天不知道怎么搞的，试了很多酷我版本都下载不了，没有进度，楼主这个也不行，不知道你们是不是这样。。 ...

把火绒关了就好了   

mfkbbdx1

能直接下载无损音频吗

gsp418

下载试用，感谢提供

追随你的风

呜呜呜呜呜呜呜

raomengkai

感谢楼主，希望能下载无损音乐

Meliodas`By

感谢分享,收藏。

kumwingchiu

硬盘坏了，以前保存的好听老歌都没有了。

深爱我的女孩

  暂且收藏，待他日所想，定来取下！

kaige09

真的不错  谢谢分享

春雨忆江南

谢谢分享