[已解決]求大神對批處理優化勘誤最后由 zldarwin 于 -9-19 12:35近日通過論壇幫助，解決了多年的兼容性設置問題（站內鏈接），感謝 Batcher 的專業解答。隨后補充細節，雖測試正常，仍怕隱藏致命問題，仍想繼續完善，誠邀大神們指正。看看能否“優化語句語法、精簡代碼、使邏輯順序更合理”等。批處理用于執行自解壓安裝包后的自動設定。

::
::旨在優化電子課堂安裝流程
::
@echo off
set AppName=幼幼版3~4歲D.exe
set CompLayer=~ WIN7RTM
set Folder=幼幼版3~4歲D
::創建自定義桌面快捷方式
set qbmname=創意閱讀(上)2~3歲 D.lnk
set qbmexec=%~dp0幼幼版3~4歲D.exe
mshta VBscript:Execute(Set a=CreateObject(Wscript.Shell):Set b=a.CreateShortcut(a.SpecialFolders(Desktop) & %qbmname%):b.TargetPath=%qbmexec%:b.WorkingDirectory=%~dp0:b.Save:close)
::檢測系統版本后，安裝不同版本Adobe Air
for /f delims= %%i in ('ver') do (
set version=%%i
)
set version=%version:~-9,3%
if %version% equ 6.1 (
echo Windows 7
start %Folder%adobeAirV32.exe
) else (
echo Windows 10/11
::Win10/Win11下，設置系統兼容性
reg add HKEY_CURRENT_USERSOFTWAREMicrosoftWindows NTCurrentVersionAppCompatFlagsLayers /v %~dp0%AppName% /t REG_SZ /d %CompLayer% /f
start %Folder%adobeAirV29.exe
)
::打開官網登錄頁
start http://www.magepark.cn/login/
nclick="copycode($('code0'));">復制代碼