Merge pull request #1 from RunlingDev/master

Complete
RunlingDev · Mar 2, 2024 · 591f213 · 591f213
2 parents 9d8cc1e + 9638cf9
commit 591f213
Show file tree

Hide file tree

Showing 8 changed files with 371 additions and 0 deletions.
diff --git a/bin/extra_fra.bat b/bin/extra_fra.bat
@@ -0,0 +1,83 @@
+chcp 65001
+@echo off
+color 1F
+
+rem GetUAC
+echo Getting UAC...
+if exist "%SystemRoot%\SysWOW64" path %path%;%windir%\SysNative;%SystemRoot%\SysWOW64;%~dp0
+bcdedit >nul
+if '%errorlevel%' NEQ '0' (goto UACPrompt) else (goto UACAdmin)
+:UACPrompt
+%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
+exit /B
+:UACAdmin
+cd /d "%~dp0"
+echo Get UAC Succeed.
+cls
+
+rem FlashReable
+color 27
+echo " _____ _     ____  ____  _       ____  _____ ____  ____  _     _____"
+echo "/    // \   /  _ \/ ___\/ \ /|  /  __\/  __//  _ \/  __\/ \   /  __/"
+echo "|  __\| |   | / \||    \| |_||  |  \/||  \  | / \|| | //| |   |  \  "
+echo "| |   | |_/\| |-||\___ || | ||  |    /|  /_ | |-||| |_\\| |_/\|  /_ "
+echo "\_/   \____/\_/ \|\____/\_/ \|  \_/\_\\____\\_/ \|\____/\____/\____\"
+echo. & echo.
+
+echo -----
+
+echo Flash Reable Entra - Delete All the Settings.sol. 
+echo Author:RunLing
+echo Github:https://github.com/RunlingDev/FlashReable
+
+echo -----
+
+color 4F
+echo Disclaimer:
+echo This script will search and delete ALL file named "settings.sol".
+echo IT MIGHT CAUSE UNKONWN PROBLEM.
+echo If so, the writer WON'T take responsibility
+echo Continue?Exit by close this window.
+echo.
+echo 免责声明：
+
+echo 这个脚本将全盘遍历并删除所有名为"Settings.sol"的文件
+
+echo 这可能导致文件丢失等未知问题
+
+echo 如果您选择继续，出现的问题作者概不负责
+
+echo 是否继续？
+
+pause
+echo -----
+
+color 27
+set opwd=%cd% 
+for %%i in (C:\ D:\ E:\ F:\ G:\ H:\ I:\ J:\ K:\) do (
+	if exist %%i (
+		echo Searching for %%i ...
+        echo It takes time. Be patiently.
+        echo 这可能需要一段时间。请耐心等待。
+
+		cd /d %%i
+        for /f "delims=" %%a in ('dir /S/b "settings.sol"') do (
+            echo Find "settings.sol":%%a
+            echo Overwriting...
+        	echo 2>"%%a"
+        	attrib "%%a" +r
+            echo Done.
+		)
+        echo -----
+	)
+)
+cd /d %opwd%
+echo Done.The "settings.sol" is now overwritten.
+
+echo -----
+color 1F
+echo Settings.sol Overwriting Succeed.Congratulations!
+echo Thanks for your using.
+echo Note:You'd better run again the common version.
+echo https://github.com/RunlingDev/FlashReable/blob/main/bin/FlashReable.bat
+pause
diff --git a/bin/flashreable.bat b/bin/flashreable.bat
@@ -0,0 +1,68 @@
+chcp 65001
+@echo off
+color 1F
+
+rem GetUAC
+echo Getting UAC...
+if exist "%SystemRoot%\SysWOW64" path %path%;%windir%\SysNative;%SystemRoot%\SysWOW64;%~dp0
+bcdedit >nul
+if '%errorlevel%' NEQ '0' (goto UACPrompt) else (goto UACAdmin)
+:UACPrompt
+%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
+exit /B
+:UACAdmin
+cd /d "%~dp0"
+echo Get UAC Succeed.
+cls
+
+rem FlashReable
+color 27
+echo " _____ _     ____  ____  _       ____  _____ ____  ____  _     _____"
+echo "/    // \   /  _ \/ ___\/ \ /|  /  __\/  __//  _ \/  __\/ \   /  __/"
+echo "|  __\| |   | / \||    \| |_||  |  \/||  \  | / \|| | //| |   |  \  "
+echo "| |   | |_/\| |-||\___ || | ||  |    /|  /_ | |-||| |_\\| |_/\|  /_ "
+echo "\_/   \____/\_/ \|\____/\_/ \|  \_/\_\\____\\_/ \|\____/\____/\____\"
+echo. & echo.
+
+echo -----
+
+echo Flash Reable - Auto Script to able Flash. 
+echo Author:RunLing
+echo Github:https://github.com/RunlingDev/FlashReable
+
+echo -----
+
+echo Deleting Settings.sol...
+del /q /f "C:\Users\%username%\AppData\Roaming\Macromedia\Flash Player\macromedia.com\support\flashplayer\sys\settings.sol"
+echo Done.
+
+echo New Empty Settings.sol...
+set opwd=%cd%
+cd /d "C:\Users\%username%\AppData\Roaming\Macromedia\Flash Player\macromedia.com\support\flashplayer\sys\"
+echo 2>settings.sol
+attrib settings.sol +r
+cd /d %opwd%
+echo Done.
+
+echo Editing hosts...
+echo If the Manager reports error, please choose "allowed".
+
+echo 如果杀毒软件报错，请选择允许。
+
+cd /d "C:\Windows\System32\drivers\etc\"
+echo  127.0.0.1 flash.cn>>hosts
+echo  127.0.0.1 geo2.adobe.com>>hosts
+echo  127.0.0.1 macromedia.com>>hosts
+echo  127.0.0.1 fpdownload.macromedia.com>>hosts
+echo  127.0.0.1 fpdownload2.macromedia.com>>hosts
+cd /d %opwd%
+echo Done.
+
+echo -----
+color 1F
+echo Flash Player Reable Succeed.Congratulations!
+echo You can now use Adobe Flash Player without FlashHelper.
+echo Thanks for your using.
+echo Note:If it couldn't work, try to use the extra version of this script:
+echo https://github.com/RunlingDev/FlashReable/blob/main/bin/extra_fra.bat
+pause
diff --git a/屏幕截图 2024-03-02 123835.png → img/01.png b/屏幕截图 2024-03-02 123835.png → img/01.png
diff --git a/src/GetUAC.bat b/src/GetUAC.bat
@@ -0,0 +1,11 @@
+chcp 65001
+@echo off
+if exist "%SystemRoot%\SysWOW64" path %path%;%windir%\SysNative;%SystemRoot%\SysWOW64;%~dp0
+bcdedit >nul
+if '%errorlevel%' NEQ '0' (goto UACPrompt) else (goto UACAdmin)
+:UACPrompt
+%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
+exit /B
+:UACAdmin
+cd /d "%~dp0"
+echo Get UAC Succeed.
diff --git a/src/SAD.bat b/src/SAD.bat
@@ -0,0 +1,42 @@
+chcp 65001
+@echo off
+set opwd=%cd% 
+color 4F
+echo -----
+echo Disclaimer:
+echo This script will search and delete ALL file named "settings.sol".
+echo IT MIGHT CAUSE UNKONWN PROBLEM.
+echo If so, the writer WON'T take responsibility
+echo Continue?Exit by close this window.
+echo.
+echo 免责声明：
+
+echo 这个脚本将全盘遍历并删除所有名为"Settings.sol"的文件
+
+echo 这可能导致文件丢失等未知问题
+
+echo 如果您选择继续，出现的问题作者概不负责
+
+echo 是否继续？
+
+pause
+color 17
+echo -----
+for %%i in (C:\ D:\ E:\ F:\ G:\ H:\ I:\ J:\ K:\) do (
+	if exist %%i (
+		echo Searching for %%i ...
+        echo It takes time. Be patiently.
+        echo 这可能需要一段时间。请耐心等待。
+
+		cd /d %%i
+        for /f "delims=" %%a in ('dir /S/b "settings.sol"') do (
+        	echo 2>"%%a"
+        	attrib "%%a" +r
+		)
+        echo -----
+	)
+)
+cd /d %opwd%
+echo Done.The "settings.sol" is now deleted.
+echo -----
+pause
diff --git a/src/Search.bat b/src/Search.bat
@@ -0,0 +1,16 @@
+chcp 65001
+@echo off
+set opwd=%cd% 
+echo -----
+for %%i in (C:\ D:\ E:\ F:\ G:\ H:\ I:\ J:\ K:\) do (
+	if exist %%i (
+        echo.
+		echo Searching for %%i ...
+        echo It takes time. Be patiently.
+		cd /d %%i
+        dir /S/b "settings.sol"
+	)
+)
+cd /d %opwd%
+echo Done.
+pause
diff --git a/src/e_fra.bat b/src/e_fra.bat
@@ -0,0 +1,83 @@
+chcp 65001
+@echo off
+color 1F
+
+rem GetUAC
+echo Getting UAC...
+if exist "%SystemRoot%\SysWOW64" path %path%;%windir%\SysNative;%SystemRoot%\SysWOW64;%~dp0
+bcdedit >nul
+if '%errorlevel%' NEQ '0' (goto UACPrompt) else (goto UACAdmin)
+:UACPrompt
+%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
+exit /B
+:UACAdmin
+cd /d "%~dp0"
+echo Get UAC Succeed.
+cls
+
+rem FlashReable
+color 27
+echo " _____ _     ____  ____  _       ____  _____ ____  ____  _     _____"
+echo "/    // \   /  _ \/ ___\/ \ /|  /  __\/  __//  _ \/  __\/ \   /  __/"
+echo "|  __\| |   | / \||    \| |_||  |  \/||  \  | / \|| | //| |   |  \  "
+echo "| |   | |_/\| |-||\___ || | ||  |    /|  /_ | |-||| |_\\| |_/\|  /_ "
+echo "\_/   \____/\_/ \|\____/\_/ \|  \_/\_\\____\\_/ \|\____/\____/\____\"
+echo. & echo.
+
+echo -----
+
+echo Flash Reable Entra - Delete All the Settings.sol. 
+echo Author:RunLing
+echo Github:https://github.com/RunlingDev/FlashReable
+
+echo -----
+
+color 4F
+echo Disclaimer:
+echo This script will search and delete ALL file named "settings.sol".
+echo IT MIGHT CAUSE UNKONWN PROBLEM.
+echo If so, the writer WON'T take responsibility
+echo Continue?Exit by close this window.
+echo.
+echo 免责声明：
+
+echo 这个脚本将全盘遍历并删除所有名为"Settings.sol"的文件
+
+echo 这可能导致文件丢失等未知问题
+
+echo 如果您选择继续，出现的问题作者概不负责
+
+echo 是否继续？
+
+pause
+echo -----
+
+color 27
+set opwd=%cd% 
+for %%i in (C:\ D:\ E:\ F:\ G:\ H:\ I:\ J:\ K:\) do (
+	if exist %%i (
+		echo Searching for %%i ...
+        echo It takes time. Be patiently.
+        echo 这可能需要一段时间。请耐心等待。
+
+		cd /d %%i
+        for /f "delims=" %%a in ('dir /S/b "settings.sol"') do (
+            echo Find "settings.sol":%%a
+            echo Overwriting...
+        	echo 2>"%%a"
+        	attrib "%%a" +r
+            echo Done.
+		)
+        echo -----
+	)
+)
+cd /d %opwd%
+echo Done.The "settings.sol" is now overwritten.
+
+echo -----
+color 1F
+echo Settings.sol Overwriting Succeed.Congratulations!
+echo Thanks for your using.
+echo Note:You'd better run again the common version.
+echo https://github.com/RunlingDev/FlashReable/blob/main/bin/FlashReable.bat
+pause
diff --git a/src/fra.bat b/src/fra.bat
@@ -0,0 +1,68 @@
+chcp 65001
+@echo off
+color 1F
+
+rem GetUAC
+echo Getting UAC...
+if exist "%SystemRoot%\SysWOW64" path %path%;%windir%\SysNative;%SystemRoot%\SysWOW64;%~dp0
+bcdedit >nul
+if '%errorlevel%' NEQ '0' (goto UACPrompt) else (goto UACAdmin)
+:UACPrompt
+%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
+exit /B
+:UACAdmin
+cd /d "%~dp0"
+echo Get UAC Succeed.
+cls
+
+rem FlashReable
+color 27
+echo " _____ _     ____  ____  _       ____  _____ ____  ____  _     _____"
+echo "/    // \   /  _ \/ ___\/ \ /|  /  __\/  __//  _ \/  __\/ \   /  __/"
+echo "|  __\| |   | / \||    \| |_||  |  \/||  \  | / \|| | //| |   |  \  "
+echo "| |   | |_/\| |-||\___ || | ||  |    /|  /_ | |-||| |_\\| |_/\|  /_ "
+echo "\_/   \____/\_/ \|\____/\_/ \|  \_/\_\\____\\_/ \|\____/\____/\____\"
+echo. & echo.
+
+echo -----
+
+echo Flash Reable - Auto Script to able Flash. 
+echo Author:RunLing
+echo Github:https://github.com/RunlingDev/FlashReable
+
+echo -----
+
+echo Deleting Settings.sol...
+del /q /f "C:\Users\%username%\AppData\Roaming\Macromedia\Flash Player\macromedia.com\support\flashplayer\sys\settings.sol"
+echo Done.
+
+echo New Empty Settings.sol...
+set opwd=%cd%
+cd /d "C:\Users\%username%\AppData\Roaming\Macromedia\Flash Player\macromedia.com\support\flashplayer\sys\"
+echo 2>settings.sol
+attrib settings.sol +r
+cd /d %opwd%
+echo Done.
+
+echo Editing hosts...
+echo If the Manager reports error, please choose "allowed".
+
+echo 如果杀毒软件报错，请选择允许。
+
+cd /d "C:\Windows\System32\drivers\etc\"
+echo  127.0.0.1 flash.cn>>hosts
+echo  127.0.0.1 geo2.adobe.com>>hosts
+echo  127.0.0.1 macromedia.com>>hosts
+echo  127.0.0.1 fpdownload.macromedia.com>>hosts
+echo  127.0.0.1 fpdownload2.macromedia.com>>hosts
+cd /d %opwd%
+echo Done.
+
+echo -----
+color 1F
+echo Flash Player Reable Succeed.Congratulations!
+echo You can now use Adobe Flash Player without FlashHelper.
+echo Thanks for your using.
+echo Note:If it couldn't work, try to use the extra version of this script:
+echo https://github.com/RunlingDev/FlashReable/blob/main/bin/extra_fra.bat
+pause