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

taskkill /f /im Funs* >NUL 2>NUL
taskkill /f /im Inner* >NUL 2>NUL

rd/s/q "%UserProfile%\Funshion\ini"2>NUL
rd/s/q "%UserProfile%\Funshion\base"2>NUL
rd/s/q "%UserProfile%\Funshion\cache"2>NUL
rd/s/q "%UserProfile%\Funshion\update"2>NUL
rd/s/q "%UserProfile%\Funshion\jdmarket"2>NUL
rd/s/q "%UserProfile%\Funshion\Shortcut"2>NUL
rd/s/q "%UserProfile%\Funshion\mobileinfo"2>NUL
del /q "%Windir%\System32\Funs*\.ini">NUL 2>NUL
del /q "%WinDir%\SysWOW64\Funs*\.ini">NUL 2>NUL
del /q "%UserProfile%\Funshion\*.ini">NUL 2>NUL
copy /y Skin2\FunShion.ini "%UserProfile%">NUL 2>NUL
if exist "%Public%" rd/s/q "%ProgramData%\Funshion"2>NUL
rd/s/q "%AllUsersProfile%\Application Data\Funshion"2>NUL
:: if exist "%Windir%\SysWOW64" regsvr32 /s FsMediaBar64.dll
:: if not exist "%Windir%\SysWOW64" regsvr32 /s FsMediaBar.dll

SET SF="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
FOR /F "tokens=2,*" %%I IN ('REG QUERY %SF% /v Personal 2^>NUL^|FIND /I "Personal"') DO SET "myDoc=%%~J"
IF DEFINED myDoc (CD /D "%myDoc:"=%" 2>NUL || SET "myDoc=")
rd/s/q "风行高清影视" 2>NUL

ECHO.&ECHO.完成! 是否创建桌面快捷方式？
ECHO.&ECHO.是请按任意键，否就直接关闭！&PAUSE >NUL 2>NUL
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\风行影视.lnk""):b.TargetPath=""%~dp0Funshion.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
CLS & ECHO.& ECHO.创建完成! &PAUSE >NUL 2>NUL & EXIT