前言：
過完年後，有老師反應學校的電腦，怎麼過完年，swf的檔案就無法用瀏覽器開啟了!!怎麼辦？!天啊!!無法像過去一樣用swf的檔案來教學了!!哀號聲就在慣用電腦教學的老師間此起彼落。或是到現場一看，出現這個畫面：
老師下課了!!老師跑到我面前說聲謝謝。但是老師覺得手動調整時間很麻煩!!能不能有個便利的方法，比方說一鍵回到過去，一鍵回到現在。
遇到的困難：
1.要變更系統時間，需要系統管理員的權限。老師希望執行BAT時，越簡單越好。意思是不要用滑鼠右鍵，以系統管理員身分執行。只要動動滑鼠左鍵就好。
2.網頁的flash與SWF不能動，要讓SWF與網頁的flash可以動。換句話說，老師在教師機教學時，會用到的SWF、網頁flash都要能夠動。
解決的方案：
目前將Google大神提供的解決方案與網路朋友提供的接學方案整理下：
1.調整系統時間
(1).手動調整
(2).BAT調整
2.Flash Player 替代產品
(1).Ruffle
(2).Adobe Flash Player – Debug
3.使用舊版
(1)舊版flash player
a.版本30以前
b.適用Windows 7 以下
(2)舊版Firefox
a.版本83.03以下
4.轉檔-swf轉exe
5.網站播放-https://ruffle.rs/demo/
6.Puffin 瀏覽器播放
7.potplayer播放
解決之道心智圖：
心智圖：心智圖下載
現在將目前狀況整理成心智圖。
解決的方案：1.調整系統時間
(1).手動調整：
A.分析：
a.每次上課時操作一次，且操作複雜。
b.每次下課前操作一次，且還要再調整回來。
B.操作方式：
(2).BAT調整
A.分析：
a.每次上課時操作一次，但操作簡單，一鍵完成。
b.每次下課前操作一次，且還要再調整回來，但操作簡單，一鍵完成。
B.操作方式：
a.上課時用滑鼠對Return2Past.bat點兩下。
b.下課前用滑鼠對Back2Now.bat點兩下。
其程式碼如下：
程式目的：系統時間回到指定過去的時間
檔案名稱：Return2Past.bat
檔案內容：
@echo off
REM 設定回到過去的日期
set PastTime=2021/01/01
REM :: BatchGotAdmin (Run as Admin code starts)
REM --> Check for permissions
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
REM --> If error flag set, we do not have admin.
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
REM :: BatchGotAdmin (Run as Admin code ends)
REM :: Your codes should start from the following line
@echo off
REM 寫入今天的日期到a.txt
@Date /t > a.txt
REM 設定日期回到初始設定時間
@Date %PastTime%
EXIT
程式目的：系統時間回到使用Return2Past.bat的日期
檔案名稱：Back2Now.bat
檔案內容：
@echo off
REM 取得系統管理員權限
REM :: BatchGotAdmin (Run as Admin code starts)
REM --> Check for permissions
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
REM --> If error flag set, we do not have admin.
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
REM :: BatchGotAdmin (Run as Admin code ends)
REM :: Your codes should start from the following line
@echo off
@for /f "tokens=1 delims=/" %%a in (a.txt) do set aa=%%a
@for /f "tokens=2 delims=/" %%b in (a.txt) do set bb=%%b
@for /f "tokens=3 delims=/" %%c in (a.txt) do set cc=%%c
REM 檢查是否先執行Return2Past.bat
if exist "a.txt" (
@Date %aa%-%bb%-%cc%
) else (
echo "警告!!您還未執行Return2Past.bat'!!請先執行Return2Past.bat!!"
PAUSE
)
REM 刪除檔案a.txt
@del a.txt
EXIT
沒有留言:
張貼留言