::
::旨在优化电子课堂安装流程
::

@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_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers" /v "%~dp0%AppName%" /t REG_SZ /d "%CompLayer%" /f
    start %Folder%\adobeAirV29.exe
)

::打开官网登录页
start http://www.magepark.cn/login/
复制代码