myvtm/addin/packaging/WIN/original.bat

@setlocal enabledelayedexpansion
@echo off

@rem 要求以管理员方式启动
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

color 0F
@cls
title 【可视柜台应用程序安装脚本】
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  set "DEL=%%a"
)

cd /d "%~dp0"

@set /a argumentNum=0
@set ret=0
@rem 1 关机 2 重启
@set poweroffPC=0
@set /a installType=0
@set installPure=1
@for %%a in (%*) do set /a argumentNum+=1
@if %argumentNum% gtr 0 (
	@echo argument count: %argumentNum%
	@if %argumentNum% == 1 (
		@if "%1" == "uninstall" (
			@set installType=4
		) else if "%1" == "pure" (
			@set installType=1
		)
	)
) else (
	@echo no any arguments
)

@echo [RVCTermianal] ========== Install Start ==========
@echo 安装脚本模式: %installType%

@set sysProductKey=
for /f "skip=1 delims==" %%i in ('wmic path softwarelicensingservice get OA3xOriginalProductKey') do (
    @set sysProductKey=%%i
	@goto DoneGetProductKey
)
:DoneGetProductKey
@echo sysProductKey=%sysProductKey%
if "%sysProductKey%" == "" (
    @echo [DEBUG] 操作系统未激活！
) else (
    @echo [DEBUG] 操作系统已激活。
)

@set ROOT=%cd%
@set rvc_src_path_rvc_dir=%ROOT%\rvc
@set rvc_src_path_Run_dir=%ROOT%\Run
@set rvc_src_path_rvc_res_dir=%rvc_src_path_rvc_dir%\Resources
@set rvc_install_path_root=%HOMEDRIVE%:
@set sysdisk=1
@set lnkPath=spexplorerauto.lnk
@set AutoStartDir=C:\Users\%username%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
@set AutoStartDir2=C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
@set VS2019MarkFile=C:\Program Files (x86)\Microsoft Visual Studio\2019\Enterprise\Common7\IDE\devenv.exe

tasklist /nh | find /i "spshell.exe"
@if errorlevel 1 (
	@echo [INFO] 可视柜台进程不存在，跳过进程清理
) else (
	@echo [INFO] 检测到可视柜台进程存在，开始清理可视柜台相关进程……
	TASKKILL /F /IM spshell.exe
	TASKKILL /F /IM guardian.exe
	TASKKILL /F /IM cefclient.exe

	@for /f "tokens=1,2 delims= " %%a in ('tasklist /m ^| findstr "sphost.exe"') do (
		@echo name=%%a, PID = %%b, and will kill it.
		TASKKILL /F /PID %%a
	)
)
@rem 如果是非生产环境并且且是开发者的电脑在安装版本，那么部分公共的设置不生效，例如壁纸，开机自启动
@if %installType% equ 0 (
	@if exist "%VS2019MarkFile%" (
		@call :ColorText E0 "[WARN] 检测到当前安装的系统环境为开发人员环境，将跳过部分设置，避免影响开发日常工作"
		@set installPure=0
	)
)
@echo installPure=%installPure%

@if exist "D:\\" (
	@if exist "D:\\Run\\version\\vtm.exe" (
		@set rvc_install_path_root=D:
		@set sysdisk=0
	) else (
		@set rvc_install_path_root=D:
		@set sysdisk=0
	)
)
@echo [DEBUG] rvc_install_path_root=%rvc_install_path_root%
@echo [DEBUG] rvc_src_path_Run_dir=%rvc_src_path_Run_dir%

@set rvc_install_path_rvc_dir=%rvc_install_path_root%\rvc
@set rvc_install_path_rvc_res_dir=%rvc_install_path_root%\rvc\Resources
@set rvc_install_path_Run_dir=%rvc_install_path_root%\Run
@set rvc_install_path_hardware_dir=%rvc_install_path_Run_dir%\hardwarecfg
@set rvc_install_path_versions_dir=%rvc_install_path_Run_dir%\version

@echo [DEBUG] rvc_install_path_rvc_dir=%rvc_install_path_rvc_dir%
@echo [DEBUG] rvc_install_path_rvc_res_dir=%rvc_install_path_rvc_res_dir%
@echo [DEBUG] rvc_install_path_Run_dir=%rvc_install_path_Run_dir%
@echo [DEBUG] rvc_install_path_hardware_dir=%rvc_install_path_hardware_dir%
@echo [DEBUG] rvc_install_path_versions_dir=%rvc_install_path_versions_dir%

@set RVCTerminalDirName=
@set RVCTerminalDirFullPath=
@set RVCCurInstallVersion=
@for /d %%a in (%rvc_src_path_Run_dir%\version\*) do (
	@set RVCTerminalDirFullPath=%%a
	@set RVCTerminalDirName=%%~nxa
	@goto GetRVCTerminalDirNameDone
)
:GetRVCTerminalDirNameDone
@set RVCCurInstallVersion=%RVCTerminalDirName%
@echo [DEBUG] RVCCurInstallVersion=%RVCCurInstallVersion%

@if exist %rvc_install_path_hardware_dir%\root.ini (
	@echo [WARN] 存在root.ini文件，认为是存量安装，跳过版本清理操作
) else (
	@echo [INFO] 清理（删除）历史版本（如有）......
	@if exist %rvc_install_path_Run_dir% rd /S /Q %rvc_install_path_Run_dir% > nul 2>&1
	@if exist %rvc_install_path_rvc_dir% rd /S /Q %rvc_install_path_rvc_dir% > nul 2>&1
	@echo [INFO] 清理（删除）历史版本（如有）OK!
)

@if %installType% equ 4 (
	@echo [INFO] 清理（删除）历史版本（如有）......
	@if exist %rvc_install_path_Run_dir% rd /S /Q %rvc_install_path_Run_dir% > nul 2>&1
	@if exist %rvc_install_path_rvc_dir% rd /S /Q %rvc_install_path_rvc_dir% > nul 2>&1
	@echo [INFO] 清理（删除）历史版本（如有）OK!
	@goto setAutoStartWithRegist
)

@if not exist "%rvc_install_path_rvc_dir%" md "%rvc_install_path_rvc_dir%"
@if not exist "%rvc_install_path_rvc_res_dir%" md "%rvc_install_path_rvc_res_dir%"
@if not exist "%rvc_install_path_Run_dir%" md "%rvc_install_path_Run_dir%"
@if not exist "%rvc_install_path_hardware_dir%" md "%rvc_install_path_hardware_dir%"
@if not exist "%rvc_install_path_versions_dir%" md "%rvc_install_path_versions_dir%"

@echo 【0/1】拷贝RVC目录...
@xcopy %rvc_src_path_rvc_dir% %rvc_install_path_rvc_dir%  /E/Y/Q
@echo 【1/1】拷贝RVC目录OK！

@echo 【1/2】拷贝终端版本，文件数量较多，部分终端拷贝时间比较长，请稍加等候......
@if exist %rvc_src_path_Run_dir%\hardwarecfg ( xcopy %rvc_src_path_Run_dir%\hardwarecfg %rvc_install_path_hardware_dir%  /E/Y/Q )
@xcopy %rvc_src_path_Run_dir%\version %rvc_install_path_versions_dir%  /E/Y/Q
@echo 【2/2】拷贝终端版本OK！

@echo 【2/3】设置系统桌面壁纸
@set FileCount=0
@set desk_path=%USERPROFILE%\Desktop
@set desk_path_pub=C:\Users\Public\Desktop
@echo [DEBUG] desk_path=%desk_path%
@if %installPure% equ 0 (
	@call :ColorText E0 "[WARN] 开发设备不清理桌面和设置壁纸，直接跳过"
	@goto doNotRunUpdatePerEtc
)

@echo [INFO] 清理桌面文件内容
@for /d %%a in (%desk_path%\*) do (
	@echo [DEBUG] %%a
	@rd /S /Q "%%a"
)
@for %%a in (%desk_path%\*) do (
	@echo [DEBUG] %%a
	@del "%%a"
)
@for /d %%a in (%desk_path_pub%\*) do (
	@echo [DEBUG] %%a
	@rd /S /Q "%%a"
)
@for %%a in (%desk_path_pub%\*) do (
	@echo [DEBUG] %%a
	@del "%%a"
)

@echo [INFO] 清理桌面 此电脑 图标
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel" /v {20D04FE0-3AEA-1069-A2D8-08002B30309D} /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu" /v {20D04FE0-3AEA-1069-A2D8-08002B30309D} /t REG_DWORD /d 1 /f
@echo [INFO] 清理桌面 回收站 图标
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel" /v {645FF040-5081-101B-9F08-00AA002F954E} /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu" /v {645FF040-5081-101B-9F08-00AA002F954E} /t REG_DWORD /d 1 /f
@echo [INFO] 清理桌面 网络 图标
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel" /v {F02C1A0D-BE21-4350-88B0-7367FC96EF3C} /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu" /v {F02C1A0D-BE21-4350-88B0-7367FC96EF3C} /t REG_DWORD /d 1 /f
@echo [INFO] 清理桌面 控制面板 图标
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel" /v {5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0} /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu" /v {5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0} /t REG_DWORD /d 1 /f
@echo [INFO] 清理桌面 用户的文件 图标
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel" /v {59031a47-3f72-44a7-89c5-5595fe6b30ee} /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu" /v {59031a47-3f72-44a7-89c5-5595fe6b30ee} /t REG_DWORD /d 1 /f

@echo [INFO] 清理桌面文件内容OK！

@set WallpaperPath=%rvc_install_path_rvc_res_dir%\WallPaper1920.png
@if not exist C:\Windows\Web\Wallpaper\WallPaper1920.png (
	@if exist "C:\Windows\Web\Wallpaper" (
		@copy %WallpaperPath% C:\Windows\Web\Wallpaper
		@set WallpaperPath=C:\Windows\Web\Wallpaper\WallPaper1920.png
	)
) else (
	@echo [DEBUG] 指定壁纸已存在系统目录
	@set WallpaperPath=C:\Windows\Web\Wallpaper\WallPaper1920.png
)
@echo [DEBUG] WallpaperPath=%WallpaperPath%
@echo [INFO] 通过注册表设置桌面壁纸
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /t REG_SZ /d %WallpaperPath% /f 
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WallpaperStyle /t REG_DWORD /d 2 /f
@call :ColorText E0 "[WARN] 通过注册表设置桌面壁纸OK！（部分机器需要重启后才生效，请注意观察）"
@echo 【3/3】设置系统桌面壁纸OK!

@rem taskkill /f /im explorer.exe
@rem cmd /c start explorer
@echo 【3/4】设置隐藏系统任务栏
@rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3" /v Settings /t REG_BINARY /d 01000000000000000000000000000000 /f
@rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v Hidden /t REG_DWORD /d 2 /f
@rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideTaskbar /t REG_DWORD /d 1 /f
@rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v Hidden /t REG_DWORD /d 1 /f
@rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideTaskbar /t REG_DWORD /d 0 /f
@rem mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):a.Run""taskbar.exe /hide"",0,False:close")

@call :ColorText E0 "【4/4】隐藏系统任务栏功能还在测试验证中（部分系统适用）"
@rem powershell -command "&{$p='HKCU:SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3';$v=(Get-ItemProperty -Path $p).Settings;$v[8]=2;&Set-ItemProperty -Path $p -Name Settings -Value $v;&Stop-Process -f -ProcessName explorer}"
RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters

@rem 将任务栏自动隐藏选项切换为关闭
@rem powershell -command "&{$p='HKCU:SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3';$v=(Get-ItemProperty -Path $p).Settings;$v[8]=2;&Set-ItemProperty -Path $p -Name Settings -Value $v;&Stop-Process -f -ProcessName explorer}"

:doNotRunUpdatePerEtc


@echo 【4/5】设置可视柜台应用程序开机自启动
@if %installType% neq 1 (
	@if %installType% neq 4 (
		@goto setAutoStartWithStartup
	)
)
@rem 生产安装和卸载模式才执行，通过注册表设置开机自启动
:setAutoStartWithRegist
@echo [DEBUG] 读取注册表信息，判断是否已经设置开机自启动，如果未设置或者之前设置为脚本自启动，修改为通过VTM.exe自启动
@set regFile=%TEMP%\rvc_spshellautostart.reg
@set regTmpFile=%cd%\rvckey.txt
@set explorerKey=
@set needSetAutoStartFlag=1
@set explorerNormal=0
regedit /e %regFile% "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
@rem 每个包含在字符串内的引号必须使用两个双引号括起来
@type %regFile% | find /I """Shell""=" > %regTmpFile%
@for /f "usebackq delims== tokens=2" %%a in (%regTmpFile%) do (
	@set explorerKey=%%~a
)
@del %regFile%
@del %regTmpFile%
@echo [DEBUG] original explorer key:%explorerKey%
@for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do call set explorerKey=%%explorerKey:%%i=%%i%%
@echo [DEBUG] explorer key:%explorerKey%

@if "%explorerKey%" == "explorer.exe" (
	@echo [DEBUG] 检测到未设置为开机自启动模式
	@set explorerNormal=1
) else if "%explorerKey%" == "d:\\run\\version\\vtm.exe" (
	@call :ColorText 2F "检测到已设置为VTM.exe开机自启动模式"
	@set needSetAutoStartFlag=0
) else if "%explorerKey%" == "wscript d:\\run\\version\\spexplorerfast.vbs" (
	@echo [DEBUG] 检测到已设置为VBS脚本开机自启动模式
)

@if %installType% equ 1 (
	@if %needSetAutoStartFlag% equ 1 (
		@echo [DEBUG] 设置可视柜台应用程序开机自启动（同时屏蔽桌面）
		@echo [DEBUG] 临时存储设置开机自启动的注册表脚本
		@echo Windows Registry Editor Version 5.00 > %regFile%
		@echo. >> %regFile%
		@echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >> %regFile%
		@if %sysdisk% equ 1 ( echo "Shell"="c:\\run\\version\\vtm.exe" >> %regFile% ) else ( echo "Shell"="d:\\run\\version\\vtm.exe" >> %regFile% )
		@echo "Shell1"="explorer.exe" >> %regFile%
		@echo [DEBUG] 更新注册表！
		regedit /s %regFile%
		@del %regFile%
		@rem @set poweroffPC=2
	)
)
@if %installType% equ 4 (
	@if %explorerNormal% neq 1 (
		@echo [DEBUG] 取消可视柜台应用程序开机自启动（同时恢复桌面）
		@echo [DEBUG] 临时存储取消开机自启动的注册表脚本
		@echo Windows Registry Editor Version 5.00 > %regFile%
		@echo. >> %regFile%
		@echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >> %regFile%
		@echo "Shell1"="d:\\run\\version\\vtm.exe" >> %regFile%
		@echo "Shell"="explorer.exe" >> %regFile%
		@echo [DEBUG] 更新注册表！
		regedit /s %regFile%
		@del %regFile%
		@rem @set poweroffPC=2
	)
	@echo [DEBUG] 移除自启动文件
	@echo [DEBUG] AutoStartDir=%AutoStartDir%
	@echo [DEBUG] AutoStartDir2=%AutoStartDir2%
	@if exist "%AutoStartDir%\%lnkPath%" (
		@echo [DEBUG] 移除自启动文件1
		@del "%AutoStartDir%\%lnkPath%"
	)
	@if exist "%AutoStartDir2%\%lnkPath%" (
		@echo [DEBUG] 移除自启动文件2
		@del "%AutoStartDir2%\%lnkPath%"
	)
	@goto End
)
@goto DoneAutostartSet

:setAutoStartWithStartup
@rem 测试环境，通过程序管理设置开机自启动

@rem 移除旧有的可视柜台自启动快捷键（通过安装程序自动生成的）
@for %%i in ("%AutoStartDir2%\招商银行可视柜台*.lnk") do (
	@echo [DEBUG] %%i
	@del "%%i"
)
@set targetPath=%rvc_install_path_versions_dir%\vtm.exe

@if %installPure% equ 1 goto setAutoStartAndDesktopIcon
@call :ColorText E0 "[WARN] 开发设备不设置开机自启动，仅设置桌面图标"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b1=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\可视柜台.lnk""):b1.TargetPath=""%targetPath%"":b1.WorkingDirectory=""%rvc_install_path_versions_dir%"":b1.Description=""招行可视柜台终端应用"":b1.Save:close")
@goto DoneAutostartSet

:setAutoStartAndDesktopIcon
@echo [INFO] 设置应用自启动和桌面图标
@rem ResourceWatcher:可视柜台.lnk
@rem RVCTerminalApplication:招商银行可视柜台.lnk
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""startup"") & ""\%lnkPath%""):b.TargetPath=""%targetPath%"":b.WorkingDirectory=""%rvc_install_path_versions_dir%"":b.Description=""招行可视柜台终端应用"":b.Save:Set b1=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\可视柜台.lnk""):b1.TargetPath=""%targetPath%"":b1.WorkingDirectory=""%rvc_install_path_versions_dir%"":b1.Description=""招行可视柜台终端应用"":b1.Save:close")

:DoneAutostartSet
@echo 【5/5】设置可视柜台应用程序开机自启动OK! 
@goto End

:InstallError
@set ret=1

:End
@if "%ret%" == "1" (
	@call :ColorText 4F "[ERROR] 安装失败，具体失败步骤见上方描述！！"
	@pause
	@goto Done
)

@call :ColorText 2F "[INFO] ===所有安装步骤执行成功，正常退出，请双击桌面图标启动可视柜台应用进入安装配置，可视柜台应用版本号：%RVCCurInstallVersion%==="
@set /a timoutsecs=5
@echo [INFO] %timoutsecs%s 后自动退出该执行脚本并最小化到桌面

@for /l %%a in (1, 1, %timoutsecs%) do (
		timeout 1 > nul
		@set /a lastsecs=%timoutsecs%-%%a
		@echo [INFO] !lastsecs!s 后自动退出该执行脚本并最小化到桌面
	)
	
@echo 最小化到桌面
@rem MinimizeAll ToggleDesktop	
mshta VBScript:Execute("Set a=CreateObject(""Shell.Application""):a.MinimizeAll:close")
@rem @start %rvc_install_path_versions_dir%
:Done
@exit %ret%

:stringLenth
	@set thestring=%~1
	@if not defined theString (
		@set Return=0
		@set %2=0
		@goto :eof
	)
	@set Return=0
	
:stringLenth_continue
	@set /a Return+=1
	@set thestring=%thestring:~0,-1%
	@if defined thestring goto stringLenth_continue
	@if not "%2"=="" set %2=%Return%
	@goto :eof


:ColorText
@rem color 2F 这里的2代表背景，F代表字色
@rem 0＝黑、1＝蓝、2＝绿、3＝浅绿、4＝红、5＝紫、6＝黄、7=白、8=灰、9=淡蓝、
@rem A＝淡绿、B=淡浅绿、C=淡红、D=淡紫、E=淡黄、F=亮白
	<nul set /p ".=%DEL%" > "%~2"
	@findstr /v /a:%1 /R "^$" "%~2" nul
	@del "%~2" > nul 2>&1
	@echo.
	@goto :eof