quas_v4.0.0.eng.cmd

@echo off
rem @set myfiles=d:\Quest2\adb
rem @set myfiles=%~dp0Source
@mode con:cols=100 lines=52
@color 07

@set cp=utf
::@set cp=oem

@call :_%cp%
%codepage% 1>nul

@echo.
rem StartRusTextBlock
rem @echo ADB запускается...
rem EndRusTextBlock
rem StartEngTextBlock
@echo ADB is starting..
rem EndEngTextBlock
@echo.

rem goto _beginn

call :_CheckRegisterKeys
if /i [%1]==[b]  call :_colorsetlite && goto _beginn
if /i [%1]==[a] set right=1 && goto _adminright
if /i [%1]==[u] set right=2 && goto _userright 
if /i [%1]==[c] set right=3 && goto _uacright
if /i [%1]==[h]  call :_ShowAllUndocCommands
if [%1]==[] goto :_begin0


:::_begin00

:_begin0
::@call :_CheckUserAdmin
call :_cdcbnoreg
@call :_CheckSideloadMode
@call :_CheckBootloaderMode
@call :_CheckCableMode
@call :_CheckWiFiMode
@call :_CheckDoubleOrNoDeviceMode
@call :_CheckDevMode
@call :_CheckAfterWiFiCheckMode
@call :_CheckSideloadMode
@call :_CheckBootloaderMode

:_begin1
rem @echo.
rem @echo ADB запускается...

:_tabBegin
@call :_tabGeneral
goto _tabMenu

:_beginn
@call :_hat

:_tabMenu
rem @color 07
@echo off
@echo.
@echo.
rem StartRusTextBlock
rem @echo      0.  Выход из программы
rem @echo.
rem @echo      1.  Управление обновлениями				
rem @echo      2.  Отправка строки текста на шлем
rem @echo      4.  Перезагрузка в разные режимы и информация о текущем
rem @echo      5.  Создание скриншотов дисплея шлема
rem @echo      6.  Копирование скриншотов и видео со шлема на ПК
rem @echo      7.  Подключение шлема "ADB по Wi-Fi"
rem @echo      8.  Переподключение шлема "ADB по кабелю"
rem @echo      9.  Подключение шлема как съемного диска
rem @echo      C.  Cистемная информация
rem @echo      E.  Тестирование, диагностика, решение различных проблем
rem @echo      F.  Дополнительные опции	
rem @echo      G.  Прошивка шлема и информация о прошивке
rem @echo      I.  Прогресс скачивания/обновления, установка DNS
rem @echo      J.  Работа с приложениями
rem @echo      K.  Установка уровней CPU/GPU 
rem @echo      L.  Установка нативного RefreshRate и разрешения дисплея
rem @echo      M.  Управление Oculus Link/Airlink
rem @echo      N.  Создание ярлыков для копирования файлов и установки приложений
rem @echo      P.  Корректировка даты, времени и таймзоны в шлеме
rem @echo      Q.  Резервирование данных приложений
rem @echo      R.  Стрим видеотрансляции на ПК
rem 
rem @echo.
rem @echo      H.  Список расширенных команд и параметров
rem @echo      W.  Связь с автором
rem @echo      X.  Открыть консоль cmd
rem @echo      Y.  Открыть консоль adb shell
rem @echo      Z.  Помощь в решении проблем
rem EndRusTextBlock
rem StartEngTextBlock
@echo      0.  Exit from the program
@echo.
@echo      1.  Updates Management
@echo      2.  Sending a text string to the headset
@echo      4.  Reboot into different modes and current information
@echo      5.  Making screenshots of the headset display
@echo      6.  Copying screenshots and videoshots from the headset to the PC
@echo      7.  Connecting the headset via "ADB over Wi-Fi"
@echo      8.  Reconnecting the headset via "ADB over cable"
@echo      9.  Connecting the headset as a removable disk
@echo      C.  System information
@echo      E.  Testing, diagnostics, resolving various issues
@echo      F.  Additional options
@echo      G.  Headset firmware update and firmware information
@echo      I.  Download/update progress, DNS setup
@echo      J.  Application management
@echo      K.  Setting CPU/GPU levels
@echo      L.  Setting native RefreshRate and display resolution
@echo      M.  Oculus Link/Airlink management
@echo      N.  Creating shortcuts for copying files and installing applications
@echo      P.  Adjusting date, time, and timezone on the headset
@echo      Q.  App data backup
@echo      R.  Stream video casting to PC
@echo.
@echo      H.  List of advanced commands and parameters
@echo      W.  Contact the author
@echo      X.  Open cmd console
@echo      Y.  Open ADB shell console
@echo      Z.  Help
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _beginn
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="1" (GOTO _updateservice)
if /i "%choice%"=="2" (GOTO _sendtext)
if /i "%choice%"=="4" (GOTO _menurestart)
if /i "%choice%"=="5" (GOTO _screenshotmenu)
if /i "%choice%"=="6" (GOTO _scrshcopy)
if /i "%choice%"=="7" (GOTO _adbwifi)
if /i "%choice%"=="8" (GOTO _reconnect)
if /i "%choice%"=="9" (GOTO _usbflash)
if /i "%choice%"=="c" (GOTO _syscommenu)
if /i "%choice%"=="e" (GOTO _shellmenu)
if /i "%choice%"=="f" (GOTO _AdditionalOptionsMenu)
if /i "%choice%"=="g" (GOTO _fwmenu)
if /i "%choice%"=="gg" (GOTO _fwmenuskip)
if /i "%choice%"=="h" (GOTO _ShowAllUndocCommands)
if /i "%choice%"=="i" (GOTO _todmenu)
if /i "%choice%"=="j" (GOTO _installmenugen)
if /i "%choice%"=="k" (GOTO _menugpucpu)
if /i "%choice%"=="l" (GOTO _resolutionfix)
if /i "%choice%"=="m" (GOTO _oculuslink)
if /i "%choice%"=="n" (GOTO _qctprocedure)
if /i "%choice%"=="p" (GOTO _datetime)
if /i "%choice%"=="q" (GOTO _backupdatamenu)
if /i "%choice%"=="r" (GOTO _streamingmenu)
if /i "%choice%"=="s" (GOTO _moreview)
if /i "%choice%"=="w" (GOTO _contactauthor)
if /i "%choice%"=="y" (GOTO _openshell)
if /i "%choice%"=="x" (GOTO _opencmd)
if /i "%choice%"=="z" (GOTO _helplinksmenu)
:: Egg
if /i "%choice%"=="449" (GOTO _449info)
if /i "%choice%"=="103" (GOTO _103info)
if /i "%choice%"=="квас" (GOTO _egg)
if /i "%choice%"=="QUAS" (GOTO _egg)
@cls
goto _beginn


:_contactauthor
cls
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Страница автора на Github
rem @echo    B.  Сообщество Виаркомм			[RU]
rem @echo    C.  Описание работы программы
rem @echo    D.  Подкинуть монет: By me the coffee	[QR code]
rem @echo    E.  Подкинуть монет: By me the coffee	[Web browser]
rem @echo.
rem @echo.
rem @echo   Примечание: Ссылки будут открыты в браузере по умолчанию
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Program page on Github
@echo    B.  VRcomm community			[RU]
@echo    C.  Program description
@echo    D.  Donate: By me the coffee		[QR code]
@echo    E.  Donate: By me the coffee		[Web browser]
@echo.
@echo.
@echo   Note: Links will be opened in the default browser
rem EndEngTextBlock
@echo.    
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _contactauthor
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (start " " "https://github.com/Varsett/Quas" && goto _beginn)
if /i "%choice%"=="b" (start " " "https://vrcomm.ru/" && goto _beginn)
rem StartRusTextBlock
rem if /i "%choice%"=="c" (start " " "https://docs.google.com/document/d/1VOyN6Tcz5FUVwpywOZKCGdLITgTaaCWhV1pxvGWZuwc")
rem EndRusTextBlock
rem StartEngTextBlock
if /i "%choice%"=="c" (start " " "https://docs.google.com/document/d/1jQh_Kmpx9mXPeTnw-A334XEIQvEsqYRW2nbeboEAbYk")
rem EndEngTextBlock
if /i "%choice%"=="d" (start " " "%myfiles%\bmc_qr.png")
if /i "%choice%"=="e" (start " " "https://buymeacoffee.com/varset" && goto _beginn)

rem if /i "%choice%"=="b" (GOTO _shellrestart2)
rem if /i "%choice%"=="q" (start " " "_____")
goto _contactauthor




:_ShowAllUndocCommands
cls
@echo.
@echo.
rem StartRusTextBlock
rem @echo    Дополнительные ключи и команды:
rem @echo   --------------------------------
rem @echo.
rem @echo 	h	= Это окно (можно набрать в Главном меню)
rem @echo 	u	= Перезапустить от имени пользователя
rem @echo 	c	= Перезапустить от админа с запросом UAC
rem @echo 	a	= Перезапустить от админа без запроса UAC
rem @echo 	b	= Ускоренный старт Quas: без таблицы и проверок
rem @echo 	G-FF	= Дополнительное пояснение об инкрементальных прошивках
rem @echo 	J-A-d	= Включить установку с возможностью downgrade
rem @echo 	J-A-v	= Включить отображение подробностей установки
rem @echo 	J-A-l	= Включить запись в файл лога установки
rem @echo 	449	= Таблица разделов шлема и их размер в байтах и гигабайтах
rem @echo 	103	= Таблица разделов шлема и их размер в байтах и гигабайтах
rem @echo.
rem @echo  ПОЯСНЕНИЕ:
rem @echo.
rem @echo   Последовательность G-FF означает, что следует сначала выбрать пункт G,
rem @echo   затем пункт FF. И аналогично J-A-d означает, что следует сначала выбрать пункт J,
rem @echo   затем пункт A, после этого ввеси (добавить) параметр d.
rem @echo.
rem @echo   Ключи u, c, a, b можно использовать как параметр при запуске программы Quas, например:
rem @echo   quas_v3.2.0.rus.exe b
rem EndRusTextBlock
rem StartEngTextBlock
@echo    Additional keys and commands:
@echo   --------------------------------
@echo.
@echo 	h		= This window (can be chosen in the Main menu)
@echo 	u		= Restart as user
@echo 	c		= Restart as admin with UAC prompt
@echo 	a		= Restart as admin without UAC prompt
@echo 	b		= Quick start Quas: without table and checks (bypass)
@echo 	G-^>FF		= Additional explanation about incremental firmware updates
@echo 	J-^>A-^>d		= Enable installation with downgrade capability
@echo 	J-^>A-^>v		= Enable installation details display (verbose)
@echo 	J-^>A-^>l		= Enable installation log file recording
@echo 	449		= Headset partition table and their sizes in bytes and gigabytes
@echo 	103		= Headset partition table and their sizes in bytes and gigabytes
@echo  NOTE:
@echo.
@echo   The sequence G-FF means you should first select option G,
@echo   then option FF. Similarly, J-A-d means you should first select option J,
@echo   then option A, and then enter (add) parameter d.
@echo.
@echo   The keys u, c, a, b can be used as parameters when starting the Quas program, for example:
@echo   quas_v3.2.0.rus.exe b
rem EndEngTextBlock
call :_ColorTest
@echo.
@echo.
@echo  -------------
goto _returnmenu

:_shellmenu
cls
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Перезапуск оболочки шлема
rem @echo    B.  Перезапуск оболочки шлема (второй вариант)
rem @echo    C.  Управление Wi-Fi на шлеме				
rem @echo    D.  Принудительный старт домашнего окружения шлема
rem @echo    E.  Управление Защитной системой
rem @echo    F.  Управление датчиком приближения
rem @echo    G.  Устранить проблему перезагрузки кнопками громкости (удалить KeyMapper)
rem @echo    H.  Перезапуск ADB сервера на ПК
rem @echo    I.  Встроить ADB и пакет утилит в систему, а также удалить весь этот хлам из нее
rem @echo    J.  Выполнение команд Fastboot
rem @echo    K.  Восстановить настройки отключения экрана (screen timeout)
rem @echo    L.  Создание расшаренного ресурса на ПК
rem @echo    N.  Проверка исправности кабеля
rem @echo.   O.  Проверка исправности камер (Только Quest 2)
rem @echo    P.  Измерение скорости Wi-Fi между шлемом и ПК	[EXP]
rem @echo.   Q.  Статистика сетевых подключений (netstat)
rem @echo    R.  Диагностика дисплея 
rem @echo    S.  Управление параметрами Планирование GPU, Аппаратное ускорение и Игровой режим
rem @echo    T.  Проверка статуса загрузки шлема
rem @echo    U.  Мониторинг нагрузки и диагностика компонентов	[EXP]
rem @echo.
rem @echo    X.  Открыть консоль cmd
rem @echo    Z.  Помощь в решении проблем.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Restarting the headset shell
@echo    B.  Restarting the headset shell (second option)
@echo    C.  Managing Wi-Fi on the headset
@echo    D.  Forcing the start of the headset's home environment
@echo    E.  Managing the Guardian
@echo    F.  Proximity sensor management
@echo    G.  Fix volume button reboot issue (remove KeyMapper)
@echo    H.  Restart ADB server on PC
@echo    I.  Embed ADB and utility package into the system, as well as remove all this junk from it
@echo    J.  Starting Fastboot commands
@echo    K.  Restore screen timeout settings
@echo    L.  Creating a shared resource on a PC
@echo    N.  Cable functionality check
@echo.   O.  Camera functionality check (Quest 2 only)
@echo    P.  Measure Wi-Fi speed between the headset and PC [EXP]
@echo.   Q.  Network connection statistics (netstat)
@echo    R.  Display diagnostics
@echo    S.  Management parameters Hardaware Acceleration and Game Mode
@echo    T.  Check boot status
@echo    U.  Load monitoring and component diagnostics [EXP]
@echo.
@echo    X.  Open cmd console
rem EndEngTextBlock
@echo.    
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _shellmenu
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _shellrestart)
if /i "%choice%"=="b" (GOTO _shellrestart2)
if /i "%choice%"=="c" (GOTO _wificontrol)
if /i "%choice%"=="d" (GOTO _homescreen)
if /i "%choice%"=="e" (GOTO _guardian)
if /i "%choice%"=="f" (GOTO _proxsensor)
if /i "%choice%"=="g" (GOTO _deletekm)
if /i "%choice%"=="h" (GOTO _ADBServerRestart)
if /i "%choice%"=="i" (GOTO _adbintegr)
if /i "%choice%"=="j" (GOTO _FastbootCommandList)
if /i "%choice%"=="k" (GOTO _scrtimeout)
if /i "%choice%"=="l" (GOTO _setshare)
if /i "%choice%"=="n" (GOTO _TestVrUsvCopy)
if /i "%choice%"=="o" (GOTO _camtest)
if /i "%choice%"=="p" (GOTO _iperftest)
if /i "%choice%"=="q" (GOTO _shownetstatall)
if /i "%choice%"=="r" (GOTO _displaydiagmain)
if /i "%choice%"=="s" (GOTO _hwagamecontrol)
if /i "%choice%"=="t" (GOTO _bootstatusviewermenu)
if /i "%choice%"=="u" (GOTO _alltempmenu)

if /i "%choice%"=="x" (GOTO _opencmd)
rem if /i "%choice%"=="z" (GOTO _helplinksmenu)
@cls
goto _shellmenu

:_FastbootCommandList
cls
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Fasboot devices			: Проверка доступности устройства
rem @echo    B.  Fastboot oem device-info		: Собрать и сохранить OEM информацию устройства
rem @echo    C.  Fastboot getvar all		: Собрать и сохранить  всю возможную информацию устройства
rem @echo    D.  Fastboot continue		: Продолжить загрузку шлема
rem @echo    E.  Fastboot reboot-fastboot		: Перезагрузить шлем в режим Fastboot
rem @echo    F.  Fastboot reboot-recovery		: Перезагрузить шлем в режим Recovery
rem @echo    G.  Fastboot reboot-bootloader	: Перезагрузить шлем в режим Bootloader
rem @echo.
rem @echo.
rem @echo.
rem @echo	ВАЖНО:
rem @echo.
rem @echo     В этом разделе нет проверок на подключение и определение режима устройства.
rem @echo     Чтобы убедиться, что устройство может отвечать на команды fastboot,
rem @echo     выберите первую команду - fastboot device. Если в ответ увидите строку 
rem @echo     с серийным номером, значит устройство может отвечать на некоторые команды,
rem @echo     а если видите строку ^< waiting for any device ^>, значит устройство
rem @echo     недоступно для команд fastboot, увы.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Fasboot devices                  : Check device availability
@echo    B.  Fastboot oem device-info         : Collect and save device OEM information
@echo    C.  Fastboot getvar all              : Collect and save all possible device information
@echo    D.  Fastboot continue                : Continue helmet boot
@echo    E.  Fastboot reboot-fastboot         : Reboot helmet into Fastboot mode
@echo    F.  Fastboot reboot-recovery         : Reboot helmet into Recovery mode
@echo    G.  Fastboot reboot-bootloader       : Reboot helmet into Bootloader mode
@echo.
@echo.
@echo.
@echo    IMPORTANT:
@echo.
@echo     This section does not check for device connection and mode detection.
@echo     To ensure the device can respond to fastboot commands,
@echo     select the first command - fastboot device. If you see a line 
@echo     with the serial number in response, the device can respond to some commands.
@echo     If you see the line ^< waiting for any device ^>, the device
@echo     is not available for fastboot commands, unfortunately.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _shellmenu
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _fbdevices)
if /i "%choice%"=="b" (GOTO _fbgetoeminfo)
if /i "%choice%"=="c" (GOTO _fbgetvar)
if /i "%choice%"=="d" (GOTO _fbcontinue)
if /i "%choice%"=="e" (GOTO _fbrebootfb)
if /i "%choice%"=="f" (GOTO _fbrebootrc)
if /i "%choice%"=="g" (GOTO _fbrebootbl)
rem if /i "%choice%"=="g" (GOTO _guardian)
rem if /i "%choice%"=="h" (GOTO _guardian)

:_fbdevices
rem StartRusTextBlock
rem @%MYFILES%\fastboot devices | findstr /i /c:"fastboot" || @echo ======================================== ^ & @echo +++ Шлем не отвечает на команды fastboot +++ & call :_prevmenu & goto _FastbootCommandList
rem EndRusTextBlock
rem StartEngTextBlock
@%MYFILES%\fastboot devices | findstr /i /c:"fastboot" || @echo ======================================== ^ & @echo +++ Helmet is not responding to fastboot commands +++ & call :_prevmenu & goto _FastbootCommandList
rem EndEngTextBlock


call :_prevmenu
goto _FastbootCommandList

:_fbgetoeminfo
setlocal enableextensions enabledelayedexpansion
call :_settime
for /f "tokens=*" %%a in ('@%myfiles%\fastboot oem device-info 2^>^&1') do (
set txt=%%a
@echo !txt! >> oem-info-%dt%.txt
)
@echo.
@echo ---
rem StartRusTextBlock
rem @echo Команда Fastboot oem-info выполнена
rem @echo.
rem @echo  ----------------------------------------------------------------------
rem @echo  = Информация oem info сохранена в файле oem-info-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo Fastboot oem-info command executed
@echo.
@echo  ----------------------------------------------------------------------
@echo  = oem-info information saved in oem-info-%dt%.txt file
rem EndEngTextBlock
@echo.
call :_prevmenu
goto _FastbootCommandList

:_fbgetvar
setlocal enableextensions enabledelayedexpansion
call :_settime
for /f "tokens=*" %%a in ('@%myfiles%\fastboot getvar all 2^>^&1') do (
set txt=%%a
@echo !txt! >> getvar-all-%dt%.txt
)
@echo.
@echo ---
rem StartRusTextBlock
rem @echo Команда Fastboot getvar all выполнена
rem @echo.
rem @echo  ----------------------------------------------------------------------
rem @echo  = Информация getvar сохранена в файле getvar-all-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo Fastboot getvar command executed
@echo.
@echo  ----------------------------------------------------------------------
@echo  = getvar information saved in getvar-%dt%.txt file
rem EndEngTextBlock
@echo.
call :_prevmenu
goto _FastbootCommandList

:_fbcontinue
@%myfiles%\Fastboot continue
@echo.
@echo ---
rem StartRusTextBlock
rem @echo Команда Fastboot continue выполнена
rem EndRusTextBlock
rem StartEngTextBlock
@echo Fastboot continue command executed
rem EndEngTextBlock
call :_prevmenu
goto _FastbootCommandList

:_fbrebootfb
@%myfiles%\Fastboot reboot-fastboot
@echo.
@echo ---
rem StartRusTextBlock
rem @echo Команда Fastboot reboot-fastboot выполнена
rem EndRusTextBlock
rem StartEngTextBlock
@echo Fastboot reboot-fastboot command executed
rem EndEngTextBlock
call :_prevmenu
goto _FastbootCommandList

:_fbrebootrc
@%myfiles%\Fastboot reboot-recovery
@echo.
@echo ---
rem StartRusTextBlock
rem @echo Команда Fastboot reboot-recovery выполнена
rem EndRusTextBlock
rem StartEngTextBlock
@echo Fastboot reboot-recovery command executed
rem EndEngTextBlock
call :_prevmenu
goto _FastbootCommandList

:_fbrebootbl
@%myfiles%\Fastboot reboot-bootloader
@echo.
@echo ---
rem StartRusTextBlock
rem @echo Команда Fastboot reboot-bootloader выполнена
rem EndRusTextBlock
rem StartEngTextBlock
@echo Fastboot reboot-bootloader command executed
rem EndEngTextBlock
call :_prevmenu
goto _FastbootCommandList

rem :_GetvarReview
rem @%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul || @echo ======================================== ^ & @echo +++ Шлем не в режиме Booloader +++ & goto  _returnmenu
rem call :_settime
rem for /f %%a in ('@%myfiles%\fastboot getvar all') do (
rem set txt=%%a
rem echo %txt%>> getvar-all-%dt%.txt
rem )
rem @echo  ----------------------------------------------------------------------
rem @echo  = Информация getvar сохранена в файле getvar-all-%dt%.txt
rem @echo.
rem @echo  ----------------------------------------------------------------------
rem call :_prevmenu
rem goto _shellmenu

:_bootstatusviewermenu
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo    S.  Проверить статус загрузки шлема  [EXP]
rem @echo.
rem @echo.
rem @echo.
rem @echo  Иногда в процессе загрузки шлем отображает лого или три точки, и непонятно, он уже загрузился
rem @echo  или еще нет. Данная процедура поможет выяснить на каком этапе застрял шлем.
rem @echo.
rem @echo  Это очень упрощенная проверка, не ожидайте слишком много. В будущем возможна доработка.
rem @echo.
rem @echo  Вкратце загрузка в систему Андроид состоит из нескольких этапов:
rem @echo.
rem @echo    1. Загрузчик (Bootloader)
rem @echo    2. Загрузчик ядра (Kernel)
rem @echo    3. Инициализация Android (init)
rem @echo    4. Запуск служб (Services)
rem @echo    5. Установка и запуск приложений (Applications)
rem @echo.
rem @echo  Проверка выполняется начиная с третьего пункта - Инициализация Android. В этот момент
rem @echo  становится доступным управление по ADB - первый этап проверки. Затем второй этап
rem @echo  проверки: Запуск служб и приложений. И третий этап - проверка окончательного завершения загрузки.
@echo  
rem @echo.
rem @echo  Если после всего этого у вас на экране по-прежнему лого, три точки или просто серый экран,
rem @echo  попробуйте следующие варианты:
rem @echo.
rem @echo  1. Снять силиконовую или другую накладку (если она есть) с маски шлема 
rem @echo.
rem @echo  2. Загрузиться в USB Update Mode (так называемый "бутлоадер")
rem @echo     Выбрать там опцию Boot Device, подождать загрузки шлема минут 10
rem @echo     Повторить эту операцию трижды.
rem @echo.
rem @echo  3. Из Главного меню этой программы выберит пункт Е - Тестирование, диагностика...
rem @echo     В этом мекню пробуйте пункты A, B, D.
rem @echo     Если не поможет, пробуйте:
rem @echo     Пункт E - отключите Защитную систему
rem @echo     Пункт F - отключите датчик приближения
rem @echo     Пункт С - отключите Wi-Fi
rem @echo     И на всякий случай, проверьте исправность камер, пункт O (Только для Quest 2)
rem EndRusTextBlock
rem StartEngTextBlock
@echo    S.  Check headset loading status  [EXP]
@echo.
@echo.
@echo.
@echo.
@echo  Sometimes during the loading process, the headset displays a logo or three dots,
@echo  and it's unclear if it has already loaded or not.
@echo  This procedure will help determine at what stage the headset is stuck.
@echo.
@echo This is a very simplified check, do not expect too much from it.
@echo  In brief, the Android system loading consists of several stages:
@echo.
@echo    1. Bootloader
@echo    2. Kernel Loader
@echo    3. Android Initialization (init)
@echo    4. Starting Services
@echo    5. Installing and Starting Applications
@echo.
@echo  The check is performed starting from the third point - Android Initialization.
@echo  At this moment, ADB control becomes available - the first stage of the check.
@echo  Then the second stage of the check: Starting services and applications.
@echo  And the third stage - checking the final loading completion.
@echo.
@echo  If after all this you still have a logo, three dots, or just a gray screen on the display,
@echo  try the following options:
@echo.
@echo  1. Remove the silicone or other cover (if any) from the headset mask.
@echo.
@echo  2. Boot into USB Update Mode (the so-called "bootloader", although it is not)
@echo     Select the Boot Device option there.
@echo     Perform this operation three times.
@echo.
@echo  3. From the Main menu of this program, select item E - Testing, Diagnostics...
@echo     In this menu, try items A, B, D.
@echo     If it does not help, try:
@echo     Item E - disable the Protection System.
@echo     Item F - disable the proximity sensor.
@echo     Item C - disable Wi-Fi.
@echo     And just in case, check the functionality of the cameras, item O (Only for Quest 2).
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _bootstatusviewer
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="s" (GOTO _bootstatusviewer)
goto _bootstatusviewer
cls

:_bootstatusviewer
cls
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo        Проверка статуса загрузки шлема
rem EndRusTextBlock
rem StartEngTextBlock
@echo        Checking headset loading status
rem EndEngTextBlock
@echo        ===============================
@echo.
@echo.
@echo.
@echo.
@echo   ------------------------------------------------------
@%myfiles%\adb devices | findstr "device"$ 1>nul 2>nul
if %errorlevel% == 0 (
rem StartRusTextBlock
rem @echo   = ADB доступен. Первичный этап загрузки завершен
rem ) else (
rem @echo   = ADB недоступен, шлем в процессе загрузки
rem @echo.
rem @echo.
rem @echo.
rem @echo ^>^>^> Для прерывания нажмите любую кнопку ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = ADB is available. Primary loading stage completed
) else (
@echo   = ADB is not available, headset is in the loading process
@echo.
@echo.
@echo.
@echo ^>^>^> Press any key to interrupt ^<^<^<
rem EndEngTextBlock
goto _updatebootstatus
)
@echo.
for /f %%c in ('@%myfiles%\adb shell getprop service.bootanim.exit_vendor 2^>nul') do set exitvendorbootstatus=%%c
if [%exitvendorbootstatus%] NEQ [1] (
@echo   ------------------------------------------------------
rem StartRusTextBlock
rem @echo   = Шлем в статусе загрузочной анимации. Загрузка шлема не завершена.
rem @echo.
rem @echo.
rem @echo.
rem @echo ^>^>^> Для прерывания нажмите любую кнопку ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = headset is in loading animation status. headset loading is not complete.
@echo.
@echo.
@echo.
@echo ^>^>^> Press any key to interrupt ^<^<^<
rem EndEngTextBlock
goto _updatebootstatus
) else (
@echo   ------------------------------------------------------
rem StartRusTextBlock
rem @echo   = Этап загрузочной анимации завершен успешно
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Loading animation stage completed successfully
rem EndEngTextBlock
)
@echo.
for /f %%d in ('@%myfiles%\adb shell getprop init.svc.bootanim 2^>nul') do set bootanimbootstatus=%%d
if [%bootanimbootstatus%] NEQ [stopped] (
@echo   ------------------------------------------------------
rem StartRusTextBlock
rem @echo   = Шлем в процессе загрузки в Виртуальное окружение
rem @echo.
rem @echo.
rem @echo.
rem @echo ^>^>^> Для прерывания нажмите любую кнопку ^<^<^<
rem ) else (
rem @echo   ------------------------------------------------------
rem @echo   === Загрузка шлема полностью завершена ===
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = headset is in the process of loading into Virtual Environment
@echo.
@echo.
@echo.
@echo ^>^>^> Press any key to interrupt ^<^<^<
) else (
@echo   ------------------------------------------------------
@echo   === headset loading is fully completed ===
rem EndEngTextBlock
@echo.
@echo.
call :_prevmenu
goto _shellmenu
)
@echo.
@echo.
:_updatebootstatus
rem StartRusTextBlock
rem timeout 1| >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Процедура прервана +++ ^ & @echo. ^ & call :_prevmenu ^ & @goto _shellmenu
rem EndRusTextBlock
rem StartEngTextBlock
timeout 1| >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Procedure was interrupted +++ ^ & @echo. ^ & call :_prevmenu ^ & @goto _shellmenu
rem EndEngTextBlock
set adbdevicebootstatus=
set bootanimbootstatus=
set exitvendorbootstatus=
goto _bootstatusviewer

:_AdditionalOptionsMenu
cls
call :_hat
call :_hatmenu
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo    A.  Смена имени пользователя
rem @echo    B.  Показать скрытые настройки
rem @echo    C.  Устранение ошибки OpenSSL SHA Crash Bug
rem @echo    D.  Перезапуск сервиса Oculus на ПК
rem @echo    E.  Открыть в шлеме настройки VPN
rem @echo    F.  Установить высокий приоритет сервисам Oculus
rem @echo    G.  Комплексная установка приложения Oculus Wireless ADB
rem @echo    H.  Управление ключами реестра для запуска Quas
rem @echo    I.  Управление приложения Социальной платформы


rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Change global username
@echo    B.  Show hidden settings
@echo    C.  Fixing the OpenSSL SHA Crash Bug
@echo    D.  Restarting the Oculus service on PC
@echo    E.  Open VPN settings on the headset
@echo    F.  Set high priority for Oculus services
@echo    G.  Oculus Wireless ADB complex	[EXP]
@echo    H.  Managing registry keys for application startup
@echo    I.  Social Platform management
@echo.
rem EndEngTextBlock
@echo.    
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _AdditionalOptionsMenu
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _changeusernamemenu)
if /i "%choice%"=="b" (GOTO _startsettings)
if /i "%choice%"=="c" (GOTO _opensslerrorfix)
if /i "%choice%"=="d" (GOTO _ocsrvrestart)
if /i "%choice%"=="e" (GOTO _openvpn)
if /i "%choice%"=="f" (GOTO _setpriority)
if /i "%choice%"=="g" (GOTO _OculusWirelessADBcomplex)
if /i "%choice%"=="h" (GOTO _RegistryKeysSettings)
if /i "%choice%"=="i" (GOTO _SocialPControl)
@cls
goto _AdditionalOptionsMenu

:_SocialPControl
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    D.  Отключение Cоциальной платформы
rem @echo    E.  Включение Cоциальной платформы
rem @echo.
rem @echo.
rem @echo.
rem @echo.
rem @echo    ПРИМЕЧАНИЕ:
rem @echo.
rem @echo        К Социальной платформе относятся:
rem @echo        - Приложение Люди
rem @echo        - Приложение Мир Meta Horizon
rem @echo        - Группы в этих приложениях
rem @echo        - Сообщения в этих приложениях
rem @echo.
rem @echo    После отключения при загрузке шлема будет выводиться сообщение 
rem @echo    о недоступности Социальной платформы. 
rem EndRusTextBlock
rem StartEngTextBlock
@echo    D.  Disable Social Platform
@echo    E.  Enable Social Platform
@echo.
@echo.
@echo.
@echo.
@echo    NOTE:
@echo        The Social Platform includes:
@echo        - People app
@echo        - Meta Horizon World app
@echo        - groups in these apps
@echo        - messages in these apps
@echo.
@echo    After disabling, a message about the unavailability of the Social Platform 
@echo    will be displayed during helmet loading.
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _socialpcontrol
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="d" (GOTO _socpdisable)
if /i "%choice%"=="e" (GOTO _socpenable)
@cls
goto _socialpcontrol

:_socpdisable
@%MYFILES%\adb shell pm disable-user --user 0 com.oculus.socialplatform 1>nul 2>nul
@echo  ========================================
rem StartRusTextBlock
rem @echo  Социальная платформа отключена
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Social Platform disabled
rem EndEngTextBlock
@goto _returnmenu

:_socpenable
@%MYFILES%\adb shell pm enable --user 0 com.oculus.socialplatform 1>nul 2>nul
rem StartRusTextBlock
rem @echo  ========================================
rem @echo  Социальная платформа включена
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Social Platform enabled
rem EndEngTextBlock
@goto _returnmenu


:_ODTDefaultResetMenu
@cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo		0. Выход из программы
rem @echo		M. Выход в меню
rem @echo	    Enter. Подтвердить сброс настроек
rem EndRusTextBlock
rem StartEngTextBlock
@echo		0. Exit program
@echo		M. Exit menu
@echo	    Enter. Confirm reset settings
rem EndEngTextBlock
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo   ВАЖНО:
rem @echo.
rem @echo     При сбросе настроек будут перезапущены сервисы Oculus 
rem @echo     и удалены все параметры в разделе реестра HKCU\SOFTWARE\Oculus\RemoteHeadset
rem EndRusTextBlock
rem StartEngTextBlock
@echo   IMPORTANT:
rem @echo.
@echo     Resetting will restart Oculus services 
@echo     and deleted all settings in the registry key HKCU\SOFTWARE\Oculus\RemoteHeadset
rem EndEngTextBlock
@echo.
@echo.
@echo.
rem set choice=
set "choice=1"
rem StartRusTextBlock
rem Set /p choice="Выберите опцию меню и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
Set /p choice="Choose menu option and press Enter: "
rem EndEngTextBlock
rem call :_MenuChoiceEnter
@echo.
if not defined choice goto _ODTDefaultResetMenu
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="1" (GOTO _ODTDefaultReset)
goto _ODTDefaultResetMenu


:_ODTDefaultReset
@net stop OVRservice 1>nul 2>nul
@net start OVRservice 1>nul 2>nul
@if ERRORLEVEL == 1 GOTO _noodtreset
@reg delete "HKCU\SOFTWARE\Oculus\RemoteHeadset" /va /f 1>nul 2>nul
rem StartRusTextBlock
rem @echo  ==============================================
rem @echo  = Настройки сброшены к дефолтным установкам
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Settings reset to default settings
rem EndEngTextBlock
call :_prevmenu
goto _AdditionalOptionsMenu

:_noodtreset
@echo  ===========================================
rem StartRusTextBlock
rem @echo   +++ Сервисы Oculus отсутствуют на ПК +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = +++ Oculus services missing on PC +++
rem EndEngTextBlock
call :_prevmenu
goto _AdditionalOptionsMenu

:_RegistryKeysSettings
cls
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo    A. Установить ключ "Bypass" в реестр
rem @echo    B. Удалить ключ "Bypass" из реестра
rem @echo    C. Проверить наличие ключа в реестре
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A. Set the "Bypass" key in the registry
@echo    B. Remove the "Bypass" key from the registry
@echo    C. Check the presence of a key in the registry
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Ключ "Bypass" позволяет не отображать информационную таблицу,и, соответственно, 
rem @echo  пропустить начальные проверки шлема. Его можно установить в пункте A.
rem @echo.
rem @echo  Это существенно ускорит запуск программы Quas, ориентировочно на полторы секунды.
rem @echo  Вместо всего этого информационного барахла в левом верхнем углу программы
rem @echo  будет отображены цветовые и буквенные индикаторы.
rem @echo  Зачения индикаторов можно узнать из Главного меню, пункт H.
rem @echo.
rem @echo  В любой момент с помощью меню можно удалить ключ из реестра и программа
rem @echo  станет работать как обычно, с показом начальной информации.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  The "Bypass" key allows you not to display the information table, and, accordingly, 
@echo  skip the initial checks of the headset. It can be installed at point A.
@echo.
@echo  This will significantly speed up the launch of the Quas program, approximately
@echo  by one and a half seconds. Instead of all this informational clutter in the 
@echo  top left corner of the program, color and letter indicators will be displayed.
@echo  Indicator values can be found in the Main menu, item H.
@echo.
@echo  At any time, you can use the menu to remove the key from the registry, and the program
@echo  will work as usual, showing the initial information.
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _RegistryKeysSettings
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _setbypasskey)
if /i "%choice%"=="b" (GOTO _delbypasskey)
if /i "%choice%"=="c" (GOTO _checkbypasskey)
goto _RegistryKeysSettings


:_setbypasskey
reg add "HKEY_CURRENT_USER\Software\Quas" /v Bypass /t REG_DWORD /d 0xb /f 1>nul 2>nul
@echo -----------------------------------------------------
rem StartRusTextBlock
rem @echo Ключ "Bypass" записан в реестр
rem EndRusTextBlock
rem StartEngTextBlock
@echo The "Bypass" key is written to the registry
rem EndEngTextBlock


call :_prevmenu
goto _RegistryKeysSettings

:_delbypasskey
@reg delete "HKEY_CURRENT_USER\Software\Quas" /v Bypass /f 1>nul 2>nul
@echo -----------------------------------------------------
rem StartRusTextBlock
rem @echo Ключ "Bypass" удален из реестра
rem EndRusTextBlock
rem StartEngTextBlock
@echo The "Bypass" key has been removed from the registry
rem EndEngTextBlock
call :_prevmenu
goto _RegistryKeysSettings


:_checkbypasskey
set bpstatus=
For /f "tokens=3" %%a in ('reg query HKEY_CURRENT_USER\Software\Quas /v Bypass 2^>nul') do set bpstatus=%%a
@echo -----------------------------------------------------
rem StartRusTextBlock
rem @if [%bpstatus%]==[] (@echo Ключ отсутствует в реестре && call :_prevmenu && goto _RegistryKeysSettings)
rem @if %bpstatus%==0xb (@echo Ключ найден в реестре && call :_prevmenu && goto _RegistryKeysSettings)
rem EndRusTextBlock
rem StartEngTextBlock
@if [%bpstatus%]==[] (@echo The "Bypass" key is missing from registry && call :_prevmenu && goto _RegistryKeysSettings)
@if %bpstatus%==0xb (@echo "Bypass" key found in registry && call :_prevmenu && goto _RegistryKeysSettings)
rem EndEngTextBlock
call :_prevmenu
goto _RegistryKeysSettings


:_OculusWirelessADBcomplex
cls
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo    A. Установить приложение Oculus Wireless ADB
rem @echo    B. Установить приложение Bugjaeger ADB
rem @echo    C. Подключиться к шлему по порту 5555
rem @echo    D. Подключиться к шлему по случайному порту
rem @echo    E. Показать все соединения
rem @echo    F. Отключить все беспроводные соединения
rem @echo    G. Ввести IP и порт подключения вручную
rem 
rem @echo.
rem @echo    H. Дополнительная информация
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A. Install Oculus Wireless ADB app
@echo    B. Install Bugjaeger ADB app
@echo    C. Connect to the headset via port 5555
@echo    D. Connect to the headset using a random port
@echo    E. Show all connections
@echo    F. Disconnect all wireless connections
@echo    G. Enter IP and connection port manually
@echo.
@echo    H. Additional information
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Специальная установка Oculus Wireless ADB, предназначенная для использования внутри шлема,
rem @echo  без подключения к компьютеру, например, выполнение команд ADB на самом шлеме
rem @echo  для установки нативного разрешения или уровнеq CPU/GPU.
rem @echo  Именно так работает программа Quest Games Optimizer
rem @echo  Данный способ предоставит возможность вручную устанавливать режимы и управлять шлемом
rem @echo  командами ADB непосредственно с него самого.
rem @echo.
rem @echo  После установки Oculus Wireless ADB программа будет открыта на шлеме. 
rem @echo.
rem @echo  Далее следуйте инструкции:
rem @echo   - В приложении Oculus Wireless ADB нажмите серый квадратик TCPIP 5555
rem @echo   - Во всплывшем окне нажмите Ок. Квадратик станет зеленым
rem @echo   - Включите тумблер ADB Wireless Connect
rem @echo   - В окне "Разрешить беспроводную отладку для этой сети? нажмите "Разрешать всегда"
rem @echo   - В окне "Разрешить отладку USB?" нажмите "Разрешать всегда"
rem @echo.
rem @echo  Всплывающие окна об отладке и сети могут появляться в разном порядке и в разное время,
rem @echo  например, после перезагрузки они (или как минимум одно) будет всплывать снова.
rem @echo  В каждом случае нажимайте "Разрешать всегда".
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Special setup for Oculus Wireless ADB, intended for use inside the headset,
@echo  without connecting to a computer, for example, running ADB commands on the headset itself
@echo  to install native resolution or CPU/GPU levels.
@echo  This is how the Quest Games Optimizer program works.
@echo  This method will allow manually setting modes and controlling the headset
@echo  with ADB commands directly from it.
@echo.
@echo  After installing Oculus Wireless ADB, the program will open on the headset.
@echo.
@echo  Follow these instruction:
@echo    - In the Oculus Wireless ADB app tap the gray square TCPIP 5555
@echo    - In the pop-up window, tap OK. The square will turn green
@echo    - Turn on the ADB Wireless Connect toggle
@echo    - In the "Allow wireless debugging for this network?" window, click "Allow always"
@echo    - In the "Allow USB Debugging?" window, tap "Always Allow"
@echo.
@echo  Debugging and network pop-up windows may appear in different order and at different times,
@echo  for example, after reboot they (or at least one) will pop up again.
@echo  In each case tap "Always Allow".
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _OculusWirelessADBcomplex
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _OculusWirelessADBpackage)
if /i "%choice%"=="b" (GOTO _bugjinstaller)
if /i "%choice%"=="c" (GOTO _ConnectStdPort)
if /i "%choice%"=="d" (GOTO _ConnectRandomPort)
if /i "%choice%"=="e" (GOTO _ConnectionsCheck)
if /i "%choice%"=="f" (GOTO _alladbdisconnect)
if /i "%choice%"=="g" (GOTO _enterconportman)
if /i "%choice%"=="h" (GOTO _additionalinfo)
goto _OculusWirelessADBcomplex


:_OculusWirelessADBpackage
call :_cdc
set dlappl=tdg.oculuswirelessadb-1.2.apk
set curllink=https://www.dropbox.com/scl/fi/04aodeddzojdwpkqqi2zf/tdg.oculuswirelessadb-1.2.apk?rlkey=v3gl22fr99zqfjsocoatt0lp0
call :_dlinstall
%myfiles%\adb shell pm grant tdg.oculuswirelessadb android.permission.WRITE_SECURE_SETTINGS 1>nul 2>nul
%myfiles%\adb shell pm grant tdg.oculuswirelessadb android.permission.READ_LOGS 1>nul 2>nul
timeout 2 >nul
%myfiles%\adb tcpip 5555
timeout 3 >nul
%myfiles%\adb shell am start tdg.oculuswirelessadb/.MainActivity 1>nul 2>nul
@echo.
@echo.
rem StartRusTextBlock
rem @echo  = Программа открыта. Наденьте шлем и следуйте инструкциям выше
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Application was opened. Put on headset and follow manual
rem EndEngTextBlock
call :_prevmenu
goto _OculusWirelessADBcomplex

:_bugjinstaller
call :_cdc
set dlappl=Bugjaeger-Premium-v5.0-full.apk
set curllink=https://www.dropbox.com/scl/fi/s098v5stzlktj91gkkpsp/Bugjaeger-Premium-v5.0-full.apk?rlkey=qp99kc6q6nm7j89r53gh5f8q0
call :_dlinstall
call :_prevmenu
goto _OculusWirelessADBcomplex

:_ConnectStdPort
rem %myfiles%\adb disconnect
timeout 2 >nul
%myfiles%\adb tcpip 5555
if %errorlevel%==1 goto _nodevfoundconnect
call :_prevmenu
goto _OculusWirelessADBcomplex

:_ConnectRandomPort
@%MYFILES%\adb devices | findstr /i /c:"offline" 1>nul 2>nul
rem если устройство в offline то errorlevel равен 0
@If %ERRORLEVEL%==0 %myfiles%\adb disconnect && timeout 5 >nul
@For /f "tokens=*" %%a in ('%myfiles%\AndroidMdnsDiscover.exe') do set randipport=%%a
@if "%randipport%"=="No devices found" goto _nodevfoundconnect
%myfiles%\adb connect %randipport%
rem  1>nul 2>nul
rem if %errorlevel% NEQ 1 (
rem rem StartRusTextBlock
rem rem @echo Подключено: %randipport%
rem rem EndRusTextBlock
rem rem StartEngTextBlock
rem @echo Connected to : %randipport%
rem rem EndEngTextBlock
rem ) else (
rem rem StartRusTextBlock
rem rem @echo Подключение не удалось. Попробуйте еще раз
rem rem EndRusTextBlock
rem rem StartEngTextBlock
rem @echo Connection failed. Try once more.
rem rem EndEngTextBlock
rem )
call :_prevmenu
goto _OculusWirelessADBcomplex

:_nodevfoundconnect
@echo.
@echo ---------------------------
rem StartRusTextBlock
rem @echo  Шлем не обнаружен
rem @echo.
rem @echo  Наденьте шлем, запустите приложение Oculus Wireless ADB
rem @echo  Включите или переключите тумблер ADB Wireless Connect,
rem @echo  затем попробуйте подключиться снова
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset not found
@echo.
@echo  Put on headset and Start Oculus Wireless ADB application
@echo  Turn on or toggle the ADB Wireless Connect toggle then try connecting again
rem EndEngTextBlock
call :_prevmenu
goto _OculusWirelessADBcomplex

:_ConnectionsCheck
@echo.
%myfiles%\adb devices
@echo.
call :_prevmenu
goto _OculusWirelessADBcomplex

:_alladbdisconnect
%myfiles%\adb disconnect
call :_prevmenu
goto _OculusWirelessADBcomplex

:_enterconportman
rem StartRusTextBlock
rem @Set /p ip="Введите IP адрес и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="Enter the IP address and press Enter: "
rem EndEngTextBlock
rem StartRusTextBlock
rem if not defined choice goto _OculusWirelessADBcomplex
rem if /i "%choice%"=="0" (exit)
rem if /i "%choice%"=="m" (GOTO _beginn)
rem 
rem @echo.
rem @Set /p port="Введите номер порта и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="Enter port numper and press Enter: "
rem EndEngTextBlock
if not defined choice goto _OculusWirelessADBcomplex
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
rem goto _OculusWirelessADBcomplex
@echo --------------------------------
@echo ..Пробуем подключиться...
@%myfiles%\adb connect %ip%:%port%
call :_prevmenu
goto _OculusWirelessADBcomplex



:_additionalinfo
cls
rem StartRusTextBlock
rem @echo.
rem @echo.
rem @echo.
rem @echo          Дополнительная информация по использованию
rem @echo.
rem @echo.
rem @echo.
rem @echo В окне программы Oculus Wireless ADB будут показаны одинаковые IP адреса
rem @echo вашего шлема, но с разными портами. Можно подключаться по любому порту
rem @echo или по внутреннему IP адресу: 127.0.0.1. Пятизначный порт будет постоянно меняться,
rem @echo а порт 5555 останется неизменным.
rem @echo.
rem @echo Например, установите программу Bugjaeger, запустите и подключитесь к шлему:
rem @echo  - Нажмите иконку вилки со значком плюс справа вверху
rem @echo  - Введите IP адрес: 127.0.0.1 и порт 5555
rem @echo  - Нажмите Connect.
rem @echo  - Дождитесь надписи Connected в нижней части окна программы.
rem @echo.
rem @echo Кроме того, также можно подключаться с ПК к шлему по ADB через беспроводное соединение:
rem @echo  - Введите в консоли cmd команду adb connect 192.168.1.1:5555
rem @echo  - Вместо адреса 192.168.1.1 введите свой адрес - тот, который показан в окне программы.
rem @echo.
rem @echo  Или можете использовать подключение с помощью пунктов C или D.
rem @echo  В последнем случае случайный порт будет найден автоматически.
rem @echo.
rem @echo  Если подключиться не удается, перезагрузите шлем и попробуйте снова.
rem @echo  Также попробуйте подключиться к случайному порту или к порту 5555,
rem @echo  предварительно отключив все соединения в пункте F.
rem @echo.
rem @echo ВАЖНО: Беспроводное соединение будет сохраняться до тех пор, пока вы не перезагрузите шлем
rem @echo        или не завершите на ПК процесс adb.exe
rem @echo.
rem @echo        Еще раз отмечу, что приложение Oculus Wireless ADB предназначено, как правило,
rem @echo        для управления шлемом по ADB неспосредственно с самого шлема, без смартфона и ПК
rem EndRusTextBlock
rem StartEngTextBlock
@echo.
@echo.
@echo.
@echo                    Additional information on use
@echo.
@echo.
@echo.
@echo  In the Oculus Wireless ADB program window will show the same IP addresses
@echo  of your headset, but with different ports. You can connect to any port
@echo  or to the internal IP address: 127.0.0.1. The five-digit port will change constantly,
@echo  but port 5555 will remain unchanged.
@echo.
@echo  For example, install the Bugjaeger program, run it, and connect to the headset:
@echo    - Press the plug icon with a plus sign in the upper right corner
@echo    - Enter the IP address: 127.0.0.1 and port 5555
@echo    - Press Connect.
@echo    - Wait for the message Connected at the bottom of the program window.
@echo.
@echo  Additionally, you can also connect from a PC to the headset via ADB over wireless:
@echo    - Enter the command adb connect 192.168.1.1:5555 in the cmd console
@echo    - Instead of the address 192.168.1.1, enter your address - the one shown in the program window.
@echo.
@echo  Or you can use the connection using points C or D.
@echo  In the latter case, a random port will be found automatically.
@echo.
@echo  If you can't connect, reboot your headset and try again.
@echo  Also try connecting to a random port or port 5555
@echo  after first disabling all connections in point F.
@echo.
@echo  IMPORTANT: The wireless connection will remain until you restart the headset
@echo             or terminate the adb.exe process on the PC
@echo.
@echo             Let me note once again that the Oculus Wireless ADB application
@echo             is intended, as a rule, to control the headset via ADB directly 
@echo             from the headset itself, without a smartphone and PC
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
call :_prevmenu
goto _OculusWirelessADBcomplex
rem rem StartRusTextBlock
rem rem @start cmd /k "type dophelp.txt && @echo Для закрытия окна нажмите любую кнопку && @pause 1>nul && exit"
rem rem EndRusTextBlock
rem rem StartEngTextBlock
rem @start cmd /k "type dophelp.txt && @echo Press any key to close the window && @pause >nul && exit"
rem rem EndEngTextBlock
rem @ping localhost -n 2 2>nul 1>nul
rem @del dophelp.txt /f /q 2>nul 1>nul

:_displaydiagmain
cls
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo    1. Тест дисплея 1 вариант
rem @echo    2. Тест дисплея 2 вариант
rem EndRusTextBlock
rem StartEngTextBlock
@echo    1. Display test. 1 variant
@echo    2. Display test. 2 variant
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo   После запуска на шлеме откроется страница в дефолтном браузере.
rem @echo   С ее помощью можно провести онлайн-тест дисплея.
rem EndRusTextBlock
rem StartEngTextBlock
@echo After starting, a page will open in the default browser on the heaset.
@echo With its help, you can conduct an online display test.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _displaydiagmain
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="1" (GOTO _displaydiag1)
if /i "%choice%"=="2" (GOTO _displaydiag2)
rem if /i "%choice%"=="z" (GOTO _helplinksmenu)
goto _displaydiagmain

:_displaydiag1
%myfiles%\adb shell am start -n "com.oculus.vrshell/.MainActivity" -d apk://com.oculus.browser -e uri https://vr.ivanik.ru/ 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
rem StartRusTextBlock
rem @echo   Наденьте шлем, в браузере будет открыта страница с тестом
rem EndRusTextBlock
rem StartEngTextBlock
@echo Put on headset, a page with the test will open in the browser.
rem EndEngTextBlock
call :_prevmenu
goto _shellmenu

:_displaydiag2
%myfiles%\adb shell am start -n "com.oculus.vrshell/.MainActivity" -d apk://com.oculus.browser -e uri https://testmyscreen.com/ 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
rem StartRusTextBlock
rem @echo   Наденьте шлем, в браузере будет открыта страница с тестом
rem EndRusTextBlock
rem StartEngTextBlock
@echo Put on headset, a page with the test will open in the browser.
rem EndEngTextBlock
call :_prevmenu
goto _shellmenu


:_ADBServerRestart
@echo ========================================
rem StartRusTextBlock
rem @echo  Перезапускаем ADB сервер...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Restarting ADB server...
rem EndEngTextBlock
@echo. 
@%MYFILES%\adb kill-server
@%MYFILES%\adb start-server 1>nul 2>nul
@echo ----------------------------------------
rem StartRusTextBlock
rem @echo  = Сервер перезапущен
rem @echo  Можете подключить кабель к шлему
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Server restarted
@echo  You can connect the cable to the headset
rem EndEngTextBlock
@echo. 
@echo ----------------------------------------
@goto _returnmenu


:_DeleteKM

@%MYFILES%\adb shell dpm remove-active-admin io.github.sds100.keymapper.debug
call :_erlvl
@echo.
@echo --------------------------------------------------------------
rem StartRusTextBlock
rem @echo На возможное сообщение об ошибке не обращайте внимания.
rem EndRusTextBlock
rem StartEngTextBlock
@echo Ignore any potential error messages.
rem EndEngTextBlock
@echo --------------------------------------------------------------
@timeout 3 >nul
@%MYFILES%\adb shell pm disable-user io.github.sds100.keymapper.debug
@echo.
@echo --------------------------------------------------------------
rem StartRusTextBlock
rem @echo  = KeyMapper удален.
rem @echo  Если он все еще фигурирует в приложениях на шлеме, 
rem @echo  удалите его обычным образом и перезагрузитесь.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = KeyMapper removed.
@echo  If it still appears in the applications on the headset,
@echo  remove it in regular way and reboot.
rem EndEngTextBlock
@echo --------------------------------------------------------------
@echo.
goto _returnmenu



:_updateservice
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    C.  Текущий статус обновлений
rem @echo    D.  Отключение сервиса обновлений прошивки шлема
rem @echo    E.  Включение сервиса обновлений прошивки шлема
rem @echo    F.  Запретить обновления ПО Oculus Home на ПК
rem @echo    G.  Разрешить обновления ПО Оculus Home на ПК
rem EndRusTextBlock
rem StartEngTextBlock
@echo    C. Current update status
@echo    D. Disable headset firmware update service
@echo    E. Enable headset firmware update service
@echo    F. Block Oculus Home software updates on PC
@echo    G. Allow Oculus Home software updates on PC
rem EndEngTextBlock
@echo.

call :_MenuChoiceEnter
@echo.
if not defined choice goto _updateservice
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="c" (goto _UpdateStatus1)
if /i "%choice%"=="d" (GOTO _updservoff)
if /i "%choice%"=="e" (GOTO _updservon)
if /i "%choice%"=="f" (GOTO _updservocoff)
if /i "%choice%"=="g" (GOTO _updservocon)
@cls
goto _updateservice

:_UpdateStatus1
call :_cdc
%myfiles%\adb shell pm list packages -d 2>&1 | findstr /i /c:"com.oculus.updater"  2>nul 1>nul
rem @echo %DevModelNm%
rem StartRusTextBlock
rem if %errorlevel%==1 (set updstatus=Включены) else (set updstatus=Отключены)
rem EndRusTextBlock
rem StartEngTextBlock
if %errorlevel%==1 (set updstatus=Enabled) else (set updstatus=Disabled)
rem EndEngTextBlock
@echo ========================================
rem StartRusTextBlock
rem @echo = Обновления %updstatus%
rem EndRusTextBlock
rem StartEngTextBlock
@echo = Updates %updstatus%
rem EndEngTextBlock
@echo. 
@echo ----------------------------------------
@goto _returnmenu

:_updservoff
@%MYFILES%\adb shell pm disable-user --user 0 com.oculus.updater
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo Сервис обновлений отключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo Update service disabled
rem EndEngTextBlock
@goto _returnmenu

:_updservon
@%MYFILES%\adb shell pm enable --user 0 com.oculus.updater
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Сервис обновлений включен
rem EndRusTextBlock
rem StartEngTextBlock
@echo Update service enabled
rem EndEngTextBlock
@goto _returnmenu

:_updservocoff
@rd /q /s "C:\Program Files\Oculus\Staging" 2>nul 1>nul
@rd /q /s "C:\Program Files\Oculus\tmp" 2>nul 1>nul
@fsutil file createnew "C:\Program Files\Oculus\tmp" 0 2>nul 1>nul
@fsutil file createnew "C:\Program Files\Oculus\Staging" 0 2>nul 1>nul
@echo ========================================
rem StartRusTextBlock
rem @echo  Обновления Oculus Home не разрешены
rem EndRusTextBlock
rem StartEngTextBlock
@echo Oculus Home updates are not allowed
rem EndEngTextBlock
@goto _returnmenu

:_updservocon
@del /q "C:\Program Files\Oculus\Staging" /f 2>nul 1>nul
@del /q "C:\Program Files\Oculus\tmp" /f 2>nul 1>nul
@echo ========================================
rem StartRusTextBlock
rem @echo  Обновления Oculus Home разрешены
rem EndRusTextBlock
rem StartEngTextBlock
@echo Oculus Home updates are allowed
rem EndEngTextBlock
@goto _returnmenu

:_menugpucpu
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    C.  Установка уровня CPU
rem @echo    G.  Установка уровня GPU
rem @echo    S.  Показать текущие уровни
rem @echo.
rem @echo.
rem @echo    ВАЖНО:
rem @echo.
rem @echo      Работает пока только на Meta Quest 2
rem EndRusTextBlock
rem StartEngTextBlock
@echo    C. Set CPU level
@echo    G. Set GPU level
@echo    S. Show current levels
@echo.
@echo.
@echo    IMPORTANT:
@echo.
@echo      Works only on Meta Quest 2 for now
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _menugpucpu
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="c" (GOTO _cpu)
if /i "%choice%"=="g" (GOTO _gpu)
if /i "%choice%"=="s" (GOTO _currentpu)

@cls
goto _menugpucpu

:_cpu
call :_cdc
call :_hat
@echo.
@echo off
rem StartRusTextBlock
rem @echo      ----------------------------
rem @echo       ВЫБЕРИТЕ УРОВЕНЬ РАБОТЫ CPU
rem @echo      ----------------------------
rem @echo.
rem @echo    C.  Узнать текущий уровень
rem @echo    M.  Возврат в меню
rem @echo.
rem @echo    0.  Минимальный
rem @echo    1.  Низкий
rem @echo    2.  Средний
rem @echo    3.  Высокий
rem @echo    4.  Супервысокий
rem @echo    5.  Максимальный
rem @echo    A.  Авто
rem EndRusTextBlock
rem StartEngTextBlock
@echo      ----------------------------
@echo       SELECT CPU PERFORMANCE LEVEL
@echo      ----------------------------
@echo.
@echo    C.  Check current level
@echo    M.  Return to menu
@echo.
@echo    0.  Minimum
@echo    1.  Low
@echo    2.  Medium
@echo    3.  High
@echo    4.  Ultra
@echo    5.  Maximum
rem @echo    6
rem @echo    7
@echo    A.  Аuto
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _cpu
if "%choice%"=="0" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel 0 & goto _cpusetmenu)
if "%choice%"=="1" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel 1 & goto _cpusetmenu)
if "%choice%"=="2" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel 2 & goto _cpusetmenu)
if "%choice%"=="3" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel 3 & goto _cpusetmenu)
if "%choice%"=="4" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel 4 & goto _cpusetmenu)
if "%choice%"=="5" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel 5 & goto _cpusetmenu)
if "%choice%"=="6" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel 6 & goto _cpusetmenu)
if "%choice%"=="7" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel 7 & goto _cpusetmenu)
if /i "%choice%"=="a" (@%MYFILES%\adb shell setprop debug.oculus.cpuLevel -1 & goto _cpusetmenu)

if /i "%choice%"=="c" (GOTO _currentpu)
if /i "%choice%"=="m" (GOTO _menugpucpu)
:_cpusetmenu
@echo ========================================
rem StartRusTextBlock
rem @echo  Параметры установлены
rem EndRusTextBlock
rem StartEngTextBlock
@echo Settings have been applied
rem EndEngTextBlock
call :_prevmenu
cls
@goto _menugpucpu

:_gpu
call :_cdc
call :_hat
@echo.
@echo off
rem StartRusTextBlock
rem @echo      ----------------------------
rem @echo       ВЫБЕРИТЕ УРОВЕНЬ РАБОТЫ GPU
rem @echo      ----------------------------
rem @echo.
rem @echo    C.  Узнать текущий уровень
rem @echo    M.  Возврат в меню
rem @echo.
rem @echo    0.  Минимальный
rem @echo    1.  Низкий
rem @echo    2.  Средний
rem @echo    3.  Высокий
rem @echo    4.  Супервысокий
rem @echo    5.  Максимальный
rem @echo    A.  Авто
rem EndRusTextBlock
rem StartEngTextBlock
@echo      ----------------------------
@echo       SELECT CPU PERFORMANCE LEVEL
@echo      ----------------------------
@echo.
@echo    C.  Check current level
@echo    M.  Return to menu
@echo.
@echo    0.  Minimum
@echo    1.  Low
@echo    2.  Medium
@echo    3.  High
@echo    4.  Ultra
@echo    5.  Maximum
@echo    A.  Аuto
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _gpu
if "%choice%"=="0" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel 0 & goto _gpusetmenu)
if "%choice%"=="1" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel 1 & goto _gpusetmenu)
if "%choice%"=="2" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel 2 & goto _gpusetmenu)
if "%choice%"=="3" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel 3 & goto _gpusetmenu)
if "%choice%"=="4" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel 4 & goto _gpusetmenu)
if "%choice%"=="5" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel 5 & goto _gpusetmenu)
if "%choice%"=="6" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel 6 & goto _gpusetmenu)
if "%choice%"=="7" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel 7 & goto _gpusetmenu)
if /i "%choice%"=="a" (@%MYFILES%\adb shell setprop debug.oculus.gpuLevel -1 & goto _gpusetmenu)

if /i "%choice%"=="c" (GOTO _currentpu)
if /i "%choice%"=="m" (GOTO _menugpucpu)
:_gpusetmenu
@echo ========================================
rem StartRusTextBlock
rem @echo  Параметры установлены
rem EndRusTextBlock
rem StartEngTextBlock
@echo Settings have been applied
rem EndEngTextBlock
call :_prevmenu
@cls
goto _menugpucpu

:_currentpu
call :_cdc
rem StartRusTextBlock
rem @echo Текущие уровни
rem EndRusTextBlock
rem StartEngTextBlock
@echo Current levels:
rem EndEngTextBlock
@echo GPU:
@%MYFILES%\adb shell getprop debug.oculus.gpuLevel
call :_erlvl
@echo CPU:
@%MYFILES%\adb shell getprop debug.oculus.cpuLevel
@echo ========================================
rem StartRusTextBlock
rem @echo  (пустые строки или -1 означают Auto)
rem EndRusTextBlock
rem StartEngTextBlock
@echo (Blank lines or -1 indicate Auto)
rem EndEngTextBlock
@goto _returnmenu

:_setpriority
call :_hat
@echo.
@echo off
rem StartRusTextBlock
rem @echo  Cледующим процессам будет установлен приоритет Высокий:
rem @echo.
rem @echo   OculusClient.exe
rem @echo   OculusDash.exe
rem @echo   OVRServer_x64.exe
rem @echo.
rem @echo    0.  Выход из программы
rem @echo    M.  Выход в главное меню
rem @echo.
rem @echo    Y.  Установить параметры
rem EndRusTextBlock
rem StartEngTextBlock
@echo  The following processes will be set to High priority:
@echo.
@echo   OculusClient.exe
@echo   OculusDash.exe
@echo   OVRServer_x64.exe
@echo.
@echo    0.  Exit the program
@echo    M.  Return to main menu
@echo.
@echo    Y.  Apply settings
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _setpriority
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="y" (call :_checkservices && GOTO _checkservices)
cls
goto _setpriority

:_checkservices
@sc query ovrservice 1>nul 2>&1
rem StartRusTextBlock
rem @if errorlevel == 1 @echo ======================================== ^ & @echo Сервис Oculus не установлен! & goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
@if errorlevel == 1 @echo ======================================== ^ & @echo The Oculus service is not installed! & goto _returnmenu
rem EndEngTextBlock
exit /b

:_setprioritycpu
@cmd.exe /c wmic process where name="OculusClient.exe" call setpriority 128
@cmd.exe /c wmic process where name="OculusDash.exe" call setpriority 128
@cmd.exe /c wmic process where name="OVRServer_x64.exe" call setpriority 128
@echo ========================================
rem StartRusTextBlock
rem @echo  Параметры установлены
rem EndRusTextBlock
rem StartEngTextBlock
@echo Settings have been applied
rem EndEngTextBlock
@goto _returnmenu

:_sendtext
call :_hat
@echo.
@echo.
@echo off
rem StartRusTextBlock
rem @echo  Установите курсор в шлеме на поле, в которое хотите вставить текст
rem @echo  [ например, в адресной строке браузера или в поле ввода ключа/пароля ]
rem @echo  [ для отмены и возврата в меню введите три двоеточия подряд :::]
rem @echo.
rem set /p txt="Введите вставьте текст для отправки на шлем и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Place the cursor in the field on the headset where you want to insert text
@echo  [ For example, in the browser address bar or in the key/password input field ]
@echo  [ To cancel and return to the menu, enter three colons in a row ::: ]
@echo.
set /p txt="Enter the text to send to the headset and press Enter: "
rem EndEngTextBlock
if /i "%txt%"==":::" (GOTO _beginn)
if /i "%txt%"=="(((" (GOTO _beginn)
if /i "%txt%"==")))" (GOTO _beginn)
@%MYFILES%\adb shell input text '%txt%' 1>nul 2>nul
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Можете надеть шлем, текст должен быть вставлен в поле
rem EndRusTextBlock
rem StartEngTextBlock
@echo  You can put on the headset; the text should be inserted into the field.
rem EndEngTextBlock
@goto _returnmenu

:_startsettings
:::::::::::::::::
@%MYFILES%\adb shell am start -a android.intent.action.VIEW -n com.android.settings/.Settings >nul
call :_erlvl
@ping localhost >nul
@echo ========================================
rem StartRusTextBlock
rem @echo  Можете надеть шлем, настройки должны быть открыты
rem EndRusTextBlock
rem StartEngTextBlock
@echo  You can put on the headset; the settings should be open.
rem EndEngTextBlock
@goto _returnmenu

:_menurestart
call :_hat
call :_hatmenu
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo    A.  Возобновление загрузки шлема из режима Bootloader
rem @echo    C.  Стандартная/штатная перезагрузка шлема.
rem @echo    B.  Перезагрузка шлема в режим Bootloader
rem @echo    R.  Перезагрузка шлема в режим Recovery
rem @echo    F.  Перезагрузка шлема в режим Fastboot
rem @echo    S.  Перезагрузка шлема в режим Sideload (обычный вариант)
rem @echo    T.  Перезагрузка шлема в режим Sideload (альтернативный вариант)
rem @echo    K.  Определить текущий режим шлема         [EXP]
rem @echo.   P.  Выключить шлем
rem @echo.
rem @echo   ВАЖНО:
rem @echo.
rem @echo  Не из каждого режима возможна перезагрузка в другой режим.
rem @echo. Если шлем не перезагружается, загляните в него
rem @echo  и выберите пункт Reboot system now.
rem @echo.
rem @echo  Будьте внимательны: из режима Sideload можно перезагрузиться
rem @echo. в штатный режим только через команды в этом меню или через 
rem @echo. пункт Boot Device в режиме Bootloader. (Питание и Громкость минус)
rem @echo. Перезагрузка кнопкой Питание загрузит шлем снова в Sideload.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Resuming booting from Bootloader mode
@echo    C.  Standard/Default Headset Reboot.
@echo    B.  Headset Reboot into Bootloader Mode
@echo    R.  Headset Reboot into Recovery Mode
@echo    F.  Headset Reboot into Fastboot Mode
@echo    S.  Headset Reboot into Sideload Mode (Regular Variant)
@echo    T.  Headset Reboot into Sideload Mode (Alternate Variant)
@echo    K.  Determine the Current Mode of the Headset         [EXP]
@echo.   P.  Power Off Headset
@echo.
@echo   IMPORTANT:
@echo.
@echo  Not every mode can be rebooted into another mode.
@echo. If the headset does not reboot, check inside it
@echo  and select the Reboot system now option.
@echo.
@echo  Attention: From Sideload mode, you can reboot
@echo. back to standard mode only through commands in this menu or through
@echo. the Boot Device option in Bootloader mode. (Power and Volume Down)
@echo. Rebooting by the Power button will boot the headset back into Sideload.
rem EndEngTextBlock
@echo.
@echo.
@echo.

call :_MenuChoiceEnter
@echo.
if not defined choice goto _menurestart
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _bootresuming)
if /i "%choice%"=="c" (GOTO _reboot)
if /i "%choice%"=="b" (GOTO _rbootloader)
if /i "%choice%"=="r" (GOTO _rrecovery)
if /i "%choice%"=="f" (GOTO _rfastboot)
if /i "%choice%"=="s" (GOTO _rsideload)
if /i "%choice%"=="t" (GOTO _rasideload)
if /i "%choice%"=="k" (GOTO _checkmode)
if /i "%choice%"=="p" (GOTO _hsshutdown)

@cls
goto _menurestart

:_bootresuming
@%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul || @echo ======================================== ^ & @echo +++ Headset is not in Booloader mode +++ & goto  _returnmenu
rem @%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
rem @If %ERRORLEVEL%==0 @%myfiles%\fastboot reboot & call :_rebootmessage & goto  _returnmenu
@%MYFILES%\fastboot continue 1>nul 2>nul
@echo ========================================
rem StartRusTextBlock
rem @echo  Загрузка шлема возобновлена
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset loading resumed
rem EndEngTextBlock
@echo.
@echo.
@goto _returnmenu

:_reboot
rem call :_cdc
@%MYFILES%\adb devices | findstr /i /c:"sideload" 1>nul 2>nul
@If %ERRORLEVEL%==0 @%MYFILES%\adb reboot  1>nul 2>nul& call :_rebootmessage & goto  _returnmenu
@%MYFILES%\adb devices | findstr "device"$ 1>nul 2>nul
@If %ERRORLEVEL%==0 @%MYFILES%\adb reboot  1>nul 2>nul& call :_rebootmessage & goto  _returnmenu
@%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
@If %ERRORLEVEL%==0 @%myfiles%\fastboot reboot  1>nul 2>nul& call :_rebootmessage & goto  _returnmenu
:_rebootmessage
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем отправлен в перезагрузку
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset sent for reboot.
rem EndEngTextBlock
exit /b
rem @goto _returnmenu

:_rbootloader
@%MYFILES%\adb reboot bootloader
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем будет загружен в режим Bootloader
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset will boot into Bootloader mode.
rem EndEngTextBlock
@goto _returnmenu

:_rrecovery
@%MYFILES%\adb reboot recovery
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем будет загружен в режим Recovery
rem @echo.
rem @echo  Дождитесь дохлого Андроида и надписи "No Command".
rem @echo  ( светодиод загорится белым, затем фиолетовым )
rem @echo.
rem @echo  Далее, удерживая на шлеме кнопку Питание, 
rem @echo  кратко нажмите Громкость+ (дальняя от носа).
rem @echo.
rem @echo  После этого отпустите кнопку Питание.
rem @echo  Должно появиться сине-желтое меню Android Recovery.
rem @echo  Если все так, это значит, что вы там, где надо.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset will boot into Recovery mode.
@echo.
@echo  Wait for the dead Android and "No Command" message.
@echo  (the LED will light up white, then purple)
@echo.
@echo  Then, while holding the Power button on the headset,
@echo  briefly press Volume+ (far button from the nose).
@echo.
@echo  After that, release the Power button.
@echo  A blue-yellow Android Recovery menu should appear.
@echo  If everything goes as planned, you're in the right place.
rem EndEngTextBlock
@goto _returnmenu

:_rfastboot
@%MYFILES%\adb reboot fastboot
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем будет загружен в режим Fastboot
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset will boot into Fastboot mode.
rem EndEngTextBlock
@goto _returnmenu

:_rsideload
@%MYFILES%\adb.exe reboot bootloader
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем будет загружен в режим Sideload (обычный вариант)
rem @echo  Загружаемся сначала в бутлоадер.. Секундочку...
rem @echo  [ светодиод будет гореть оранжевым ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset will boot into Sideload mode (regular variant).
@echo  Booting into the bootloader first... Just a moment...
@echo  [the LED will be orange]
rem EndEngTextBlock
@ping localhost -n 12 >nul
@echo.
@echo ----------------------------------------
@%MYFILES%\fastboot.exe oem reboot-sideload 1>NUL 2>&1
rem StartRusTextBlock
rem @echo   Переключаемся в режим Sideload.. Еще чуточку терпения...
rem @echo   [ светодиод загорится белым, затем фиолетовым ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Switching to Sideload mode... Just a little more patience...
@echo  [the LED will light up white, then purple]
rem EndEngTextBlock
@ping localhost -n 14 >nul
goto _sideloadmode

:_rasideload
@%MYFILES%\adb reboot sideload
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем будет загружен в режим Sideload (альтернативный вариант)
rem @echo  [ светодиод загорится белым, затем фиолетовым ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset will boot into Sideload mode (alternate variant).
@echo  [the LED will light up white, then purple]
rem EndEngTextBlock
@ping localhost -n 14 >nul
goto _sideloadmode

:_checkmode
rem call :_cdc
rem @%MYFILES%\adb devices | findstr /i /c:"sideload" 1>nul 2>nul
rem @If %ERRORLEVEL%==0 do (
rem @echo ========================================
rem @echo +++ Шлем в режиме Sideload +++
rem goto _returnmenu
rem )

rem @%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
rem @If %ERRORLEVEL%==0 do (
rem goto _fbtbtldmode
rem ) else (
rem rem @If %ERRORLEVEL%==1 
rem @echo ========================================
rem @echo +++ Шлем в штатном режиме +++
rem goto _returnmenu

rem @%MYFILES%\fastboot devices | findstr /i /c:"recovery" 1>nul 2>nul
rem @If %ERRORLEVEL%==0 do (
rem call :_recoverymode
rem )
rem goto _returnmenu
rem StartRusTextBlock
rem @%MYFILES%\adb devices | findstr /i /c:"sideload" 1>nul 2>nul
rem @If %ERRORLEVEL%==0 @echo ======================================== ^ & @echo +++ Шлем в режиме Sideload +++ & goto _returnmenu
rem @%MYFILES%\adb devices | findstr "device"$ 1>nul 2>nul
rem @If %ERRORLEVEL%==0 @echo ======================================== ^ & @echo +++ Шлем в штатном режиме +++ & goto _returnmenu
rem @%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
rem @If %ERRORLEVEL%==0  goto _fbtbtldmode
rem @If %ERRORLEVEL%==1 @echo ======================================== ^ & @echo +++ Шлем в режиме Recovery +++ & call :_recoverymode
rem EndRusTextBlock
rem StartEngTextBlock
@%MYFILES%\adb devices | findstr /i /c:"sideload" 1>nul 2>nul
@If %ERRORLEVEL%==0 @echo ======================================== ^ & @echo @echo +++ Headset in Sideload mode +++ & goto _returnmenu
@%MYFILES%\adb devices | findstr "device"$ 1>nul 2>nul
@If %ERRORLEVEL%==0 @echo ======================================== ^ & @echo +++ Headset in Normal mode +++ & goto _returnmenu
@%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
@If %ERRORLEVEL%==0  goto _fbtbtldmode
@If %ERRORLEVEL%==1 @echo ======================================== ^ & @echo +++ Headset in Recovery mode +++ & call :_recoverymode
rem EndEngTextBlock

goto _returnmenu

:_fbtbtldmode
@echo ======================================== 
@echo.
rem StartRusTextBlock
rem @echo  Если на экране шлема желто-синее меню, светодиод фиолетовый и надпись FASTBOOTD - 
rem @echo      - вы в режиме +++ Fastboot +++
rem @echo.
rem @echo  Если на экране бело-синее меню, светодиод оранжевый и надпись USB Update Mode - 
rem @echo     - вы в режиме +++ Bootloader +++ 
rem EndRusTextBlock
rem StartEngTextBlock
@echo  If you see a yellow-blue menu on the headset screen, the LED is purple, and the message is FASTBOOTD - 
@echo      - you are in +++ Fastboot +++ mode.
@echo.
@echo  If you see a white-blue menu on the screen, the LED is orange, and the message is USB Update Mode - 
@echo     - you are in +++ Bootloader +++ mode.
rem EndEngTextBlock
goto _returnmenu

:_recoverymode
@echo ======================================== 
@echo.
rem StartRusTextBlock
rem @echo  Если светодиод фиолетовый, а на дисплее шлема
rem @echo  дохлый Андроид и надпись No Command - 
rem @echo      - вы ПОЧТИ в режиме +++ Recovery +++
rem @echo.
rem @echo  Сейчас, удерживая на шлеме кнопку Питание, 
rem @echo  кратко нажмите Громкость+ (дальняя от носа).
rem @echo  После этого отпустите кнопку Питание.
rem @echo  Должно появиться сине-желтое меню Android Recovery.
rem @echo  Если все так, это значит, что вы там, где надо:
rem @echo      - в режиме +++ Recovery +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo  If the LED is purple, and on the headset display,
@echo  there's a dead Android and the message No Command - 
@echo      - you are ALMOST in +++ Recovery +++ mode.
@echo.
@echo  Now, while holding the Power button on the headset, 
@echo  briefly press Volume+ (far button from the nose).
@echo  After that, release the Power button.
@echo  A blue-yellow Android Recovery menu should appear.
@echo  If everything goes as planned, you're in the right place:
@echo      - in +++ Recovery +++ mode.
rem EndEngTextBlock
@exit /b

:_sideloadmode
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++++ Шлем в режиме Sideload +++++
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++ Headset in Sideload mode +++++
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    F.  Загрузить прошивку в шлем
rem @echo    R.  Перезагрузить шлем
rem @echo.
rem @echo.
rem @echo	ВАЖНО:
rem @echo. 
rem @echo  После выбора пункта F и нажатия Enter
rem @echo  загрузка прошивки начнется сразу, без подтверждения.
rem @echo.  
rem @echo  Файл с прошивкой должен называться update.zip
rem @echo  и лежать рядом с программой.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    F.  Load firmware into headset
@echo    R.  Reboot headset
@echo.
@echo.
@echo    IMPORTANT:
@echo. 
@echo  After selecting option F and pressing Enter
@echo  firmware loading will start immediately, without confirmation.
@echo.  
@echo  The firmware file must be named update.zip
@echo  and should be located next to the program.
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _sideloadmode
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="f" (GOTO _CheckFWfileExist)
if /i "%choice%"=="r" (GOTO _menurestart)
cls
goto _sideloadmode

:_hsshutdown
@%MYFILES%\adb shell reboot -p 1>nul 2>nul
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем выключается....
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset is turning off...
rem EndEngTextBlock
@goto _returnmenu

:_screenshotmenu
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    C.  Одиночный скриншот шлема
rem @echo    B.  Серия скриншотов шлема, каждый скриншот по нажатию клавиши	[EXP]
rem @echo    S.  Серия автоматических скриншотов с заданным интервалом		[EXP]
rem EndRusTextBlock
rem StartEngTextBlock
@echo    C.  Single screenshot of the headset
@echo    B.  Series of headset screenshots, one per key press    [EXP]
@echo    S.  Series of automatic screenshots with a specified interval    [EXP]
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _screenshotmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="c" (GOTO _screenshot)
if /i "%choice%"=="b" (GOTO _screenshotseries)
if /i "%choice%"=="s" (GOTO _screenshotseriesauto)
@cls
goto _screenshotmenu

:_screenshot
call :_cdc
call :_hat
@echo.
rem StartRusTextBlock
rem @echo  Немного терпения, создается скриншот..
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Please wait, creating a screenshot...
rem EndEngTextBlock
::@%MYFILES%\adb shell screencap -p /sdcard/screen.png
@%MYFILES%\adb exec-out screencap -p /sdcard/screen.png
call :_erlvl
@%MYFILES%\adb pull /sdcard/screen.png >nul
@%MYFILES%\adb shell rm /sdcard/screen.png
@For /f "tokens=2-4 delims=/ " %%a in ('date /t') do (set mydate=%%c-%%a-%%b)
@For /f "tokens=1-3 delims=/:" %%a in ("%TIME%") do (set mytime=%%a-%%b-%%c)
@set mytime=%mytime: =%
@ren screen.png "Screenshot%mydate%_%mytime%.png"
@echo.
@echo ========================================
rem StartRusTextBlock
rem @echo  Скриншот сохранен в текущем каталоге.
rem @echo  Через пару секунд будет открыт программой по умолчанию.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Screenshot is saved in the current directory.
@echo  It will be opened by the default program in a couple of seconds.
rem EndEngTextBlock
@echo 
@ping localhost >nul
@start Screenshot%mydate%_%mytime%.png
@goto _returnmenu

:_screenshotseries
call :_cdc
@cls
call :_hat
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Немного терпения, создается скриншот..
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Please wait, screenshot is being created...
rem EndEngTextBlock
@%MYFILES%\adb exec-out screencap -p /sdcard/screen.png
call :_erlvl
@%MYFILES%\adb pull /sdcard/screen.png >nul
@%MYFILES%\adb shell rm /sdcard/screen.png
@For /f "tokens=2-4 delims=/ " %%a in ('date /t') do (set mydate=%%c-%%a-%%b)
@For /f "tokens=1-3 delims=/:" %%a in ("%TIME%") do (set mytime=%%a-%%b-%%c)
@set mytime=%mytime: =%
@ren screen.png "Screenshot%mydate%_%mytime%.png"
@ping localhost >nul
@cls
call :_hat
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Скриншот сохранен в текущем каталоге.
rem @echo 
rem @echo  Нажмите Enter для создания следующего скриншота
rem @echo  Для завершения и выхода в меню введите 0 и нажмите Enter
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Screenshot saved in the current directory.
@echo 
@echo  Press Enter to create the next screenshot
@echo  To finish and return to the menu, enter 0 and press Enter
rem EndEngTextBlock
@set "choice="
@Set "choice=1"
@echo.
@Set /p choice=">> "
@echo.
if not defined choice goto _screenshotseries
if "%choice%"=="0" (GOTO _beginn)
if "%choice%"=="1" (GOTO _screenshotseries)
@goto _screenshotseries
@goto _returnmenu

:_screenshotseriesauto
call :_cdc
set intscrn=10
rem StartRusTextBlock
rem set /p intscrn="Введите интервал в секундах или 0 для выхода в меню и нажмите Enter : "
rem EndRusTextBlock
rem StartEngTextBlock
set /p intscrn="Enter the interval in seconds or 0 to return to the menu and press Enter: "
rem EndEngTextBlock
If %intscrn%==0 goto :_screenshotmenu
:_screenshotseriesauto1
call :_cdc
@cls
call :_hat
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Один бип - "Приготовиться, снимаю!"
rem @echo  Два бипа - "Снято!"
rem EndRusTextBlock
rem StartEngTextBlock
@echo  One beep - "Get ready, taking the screenshot!"
@echo  Two beeps - "Screenshot has been taken!"
rem EndEngTextBlock
@echo 
@echo.
@ping localhost -n 2 >nul
::@%MYFILES%\adb shell screencap -p /sdcard/screen.png
@%MYFILES%\adb exec-out screencap -p /sdcard/screen.png
call :_erlvl
@%MYFILES%\adb pull /sdcard/screen.png >nul
@%MYFILES%\adb shell rm /sdcard/screen.png
@For /f "tokens=2-4 delims=/ " %%a in ('date /t') do (set mydate=%%c-%%a-%%b)
@For /f "tokens=1-3 delims=/:" %%a in ("%TIME%") do (set mytime=%%a-%%b-%%c)
@set mytime=%mytime: =%
@ren screen.png "Screenshot%mydate%_%mytime%.png"
@cls
call :_hat
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Один бип - "Приготовиться, снимаю!"
rem @echo  Два бипа - "Снято!"
rem EndRusTextBlock
rem StartEngTextBlock
@echo  One beep - "Get ready, taking the screenshot!"
@echo  Two beeps - "Screenshot has been taken!"
rem EndEngTextBlock
@echo.
@echo ========================================
rem StartRusTextBlock
rem @echo  Скриншот сохранен в текущем каталоге.
rem @echo ^>^>^> Для прерывания нажмите любую кнопку ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Screenshot was saved in the current directory.
@echo ^>^>^> Press any key to interrupt ^<^<^<
rem EndEngTextBlock
@echo 
::@ping localhost -n %intscrn% >nul
rem StartRusTextBlock
rem timeout %intscrn%| >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Процедура прервана +++ ^ & @echo. ^ & @goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
timeout %intscrn%| >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Procedure was interrupted +++ ^ & @echo. ^ & @goto _returnmenu
rem EndEngTextBlock
@goto _screenshotseriesauto1

:_scrshcopy
rem StartRusTextBlock
rem @echo  ..Начато копирование скриншотов и видео...
rem EndRusTextBlock
rem StartEngTextBlock
@echo .. Copying srceenshots and videoshots started..
rem EndEngTextBlock
md %userprofile%\Desktop\QuestMedia 1>nul 2>nul
@%MYFILES%\adb pull "/sdcard/Oculus/Screenshots" %userprofile%\Desktop\QuestMedia >nul
@%MYFILES%\adb pull "/sdcard/Oculus/Videoshots" %userprofile%\Desktop\QuestMedia >nul
rem call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Скриншоты скопированы в каталог Screenshots на Рабочий стол
rem @echo  Каталог будет открыт через пару секунд
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Screenshots were copied to the Screenshots directory on the Desktop
@echo  The directory will open in a couple of seconds
rem EndEngTextBlock
@ping localhost >nul
@explorer %userprofile%\Desktop\QuestMedia >nul
@goto _returnmenu

:_adbwifi
call :_cdc
rem StartRusTextBlock
rem @echo  Отключаем предыдущие соединения...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Disconnecting previous connections...
rem EndEngTextBlock
@%MYFILES%\adb.exe disconnect >nul
@echo.
rem StartRusTextBlock
rem @echo  Ждем инициализаци порта...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Waiting for port initialization...
rem EndEngTextBlock
@%MYFILES%\adb tcpip 5555 >nul
@ping localhost >nul
@echo.
@FOR /F "tokens=2" %%G IN ('@%MYFILES%\adb.exe shell ip addr show wlan0 ^|findstr /i /c:"inet "') DO set ipfull=%%G
@FOR /F "tokens=1 delims=/" %%G in ("%ipfull%") DO set ip=%%G
@if [%ip%]==[] goto _noip
rem StartRusTextBlock
rem @echo  Подключаемся к шлему по IP %ip%...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Connecting to the headset by IP %ip%...
rem EndEngTextBlock
@%MYFILES%\adb connect %ip% 1>nul 2>nul
@echo.
@ping localhost >nul
::@%MYFILES%\adb devices
@echo ========================================
rem StartRusTextBlock
rem @echo  Отсоедините кабель, шлем подключен по Wi-Fi.
rem @echo  Имейте в виду: c подключенным кабелем у вас будет ДВА устройства:
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Disconnect the cable, the headset is connected via Wi-Fi.
@echo  Note: with the cable connected, you will have TWO devices:
rem EndEngTextBlock
@echo.
@%MYFILES%\adb devices
rem StartRusTextBlock
rem @echo  Это может вызвать ошибку "error: more than one device/emulator" 
rem EndRusTextBlock
rem StartEngTextBlock
@echo  This may cause the error "error: more than one device/emulator".
rem EndEngTextBlock
@goto _exitout

:_noip
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем не получил IP адрес от роутера!
rem @echo  Проверьте подключение шлема к WiFi.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  The headset did not receive an IP address from the router!
@echo  Check the headset's connection to Wi-Fi.
rem EndEngTextBlock
@goto _returnmenu

:_reconnect
rem call :_cdc
@echo.
rem StartRusTextBlock
rem @echo Секунду, идет переподключение на кабель...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  One moment, reconnecting via cable...
rem EndEngTextBlock
@%MYFILES%\adb kill-server
@%MYFILES%\adb start-server 1>nul 2>nul
@echo.
if errorlevel==1 goto _notfound
rem @%MYFILES%\adb.exe devices 
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем переподключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset reconnected.
rem EndEngTextBlock
@goto _returnmenu

:_usbflash
call :_cdc
@%MYFILES%\adb shell svc usb setFunctions mtp true
call :_erlvl
@start explorer.exe
@echo ========================================
rem StartRusTextBlock
rem @echo  Шлем подключен как съемный диск
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset connected as a removable disk.
rem EndEngTextBlock
@goto _returnmenu

:_opensslerrorfix
rem StartRusTextBlock
rem @echo  Задаем системную переменную
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Setting the system variable.
rem EndEngTextBlock
@echo OPENSSL_ia32cap ~0x20000000
@setx OPENSSL_ia32cap ~0x20000000 /M
@ping localhost >nul
@echo ========================================
rem StartRusTextBlock
rem @echo  Системная переменная прописана
rem EndRusTextBlock
rem StartEngTextBlock
@echo  System variable set
rem EndEngTextBlock
@goto _returnmenu

:_ocsrvrestart
rem StartRusTextBlock
rem @echo  Рестартуем сервис, немного терпения...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Restarting the service, please wait...
rem EndEngTextBlock
@net stop OVRservice 1>nul 2>nul
@net start OVRservice 1>nul 2>nul
@if ERRORLEVEL == 1 GOTO _nosrv
@echo ========================================
rem StartRusTextBlock
rem @echo  Сервис перезапущен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Service restarted
rem EndEngTextBlock
@goto _returnmenu

:_nosrv
@echo ========================================
rem StartRusTextBlock
rem @echo  Служба OVRservice не найдена! Нечего перезапускать.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  OVRservice not found! Nothing to restart.
rem EndEngTextBlock
@goto _returnmenu

:_shellrestart
rem call :_cdc
rem StartRusTextBlock
rem @echo  Перезапускаем оболочку, ждите...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Restarting the shell, please wait...
rem EndEngTextBlock
@%MYFILES%\adb shell am kill com.oculus.vrshell 1>nul 2>nul
call :_erlvl
@%MYFILES%\adb shell am force-stop com.oculus.vrshel 1>nul 2>nul
@%MYFILES%\adb shell pm disable-user --user 0 com.oculus.shellenv 1>nul 2>nul
@%MYFILES%\adb shell pm enable com.oculus.shellenv 1>nul 2>nul
@ping localhost >nul
@echo.
@echo ========================================
rem StartRusTextBlock
rem @echo  Оболочка перезапущена
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Shell restarted
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

:_shellrestart2
:: --- Альтернативный вариант ---
rem StartRusTextBlock
rem @echo  Перезапускаем оболочку, ждите...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Restarting the shell, please wait...
rem EndEngTextBlock
@%MYFILES%\adb shell am kill com.oculus.shellenv 1>nul 2>nul
call :_erlvl
@%MYFILES%\adb shell am force-stop com.oculus.shellenv 1>nul 2>nul
@%MYFILES%\adb shell am start com.oculus.shellenv 1>nul 2>nul
:: --- Старый вариант ---
::@%MYFILES%\adb shell pm disable-user --user 0 com.oculus.shellenv >nul
::@%MYFILES%\adb shell pm enable com.oculus.shellenv >nul
@ping localhost >nul
@echo.
@echo ========================================
rem StartRusTextBlock
rem @echo  Оболочка перезапущена
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Shell restarted
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

:_openvpn
call :_cdc
rem StartRusTextBlock
rem @echo  Открываем настройки VPN в шлеме...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Opening VPN settings on the headset...
rem EndEngTextBlock
@%MYFILES%\adb shell "am start -n 'com.android.settings/.Settings$VpnSettingsActivity'" >nul
@ping localhost >nul
@echo ========================================
rem StartRusTextBlock
rem @echo  Настройки должны быть открыты, наденьте шлем.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Settings should be open, put on the headset.
rem EndEngTextBlock

@goto _returnmenu

:_wificontrol
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    D.  Отключение Wi-Fi на шлеме
rem @echo    E.  Включение Wi-Fi на шлеме
rem @echo    F.  Рестарт Wi-Fi на шлеме
rem EndRusTextBlock
rem StartEngTextBlock
@echo    D.  Disable Wi-Fi on the headset
@echo    E.  Enable Wi-Fi on the headset
@echo    F.  Restart Wi-Fi on the headset
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _wificontrol
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="d" (GOTO _wifidisable)
if /i "%choice%"=="e" (GOTO _wifienable)
if /i "%choice%"=="f" (GOTO _wifirestart)
@cls
goto _wificontrol

:_wifidisable
:::::::::::::::::
@%MYFILES%\adb shell "svc wifi disable"
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Wi-Fi отключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Wi-Fi disabled
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

:_wifienable
:::::::::::::::::
@%MYFILES%\adb shell "svc wifi enable"
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Wi-Fi включен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Wi-Fi enabled
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

:_wifirestart
@%MYFILES%\adb shell "svc wifi disable"
call :_erlvl
@timeout 3 >nul
@%MYFILES%\adb shell "svc wifi enable"
@echo ========================================
@echo  Wi-Fi restarted
call :_prevmenu
@goto _shellmenu


:_autosenderr
rem @%MYFILES%\adb shell pm disable-user --user 0 com.oculus.presence
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Опция отключения автоотправки отчетов удалена.
rem @echo  Отключить и включить ее можно через мобильное приложение:
rem @echo  Настройки гарнитуры - Расширенный настройки.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  The option for disabling automatic report sending has been removed.
@echo  You can disable and enable it through the mobile application:
@echo  Headset Settings - Advanced Settings.
rem EndEngTextBlock
@goto _returnmenu

:_homescreen
@%MYFILES%\adb shell am start -a android.intent.action.MAIN -c android.intent.category.HOME 1>nul 2>nul
::@%MYFILES%\adb shell input keyevent 3
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  В шлеме вы увидите стандартное Виртуальное окружение
rem EndRusTextBlock
rem StartEngTextBlock
@echo  In the headset, you will see the standard Virtual Environment.
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
:: Quest Update Tool
::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

:_fwmenu
cls
endlocal
@echo.
@echo.
rem StartRusTextBlock
rem @echo  ADB запускается...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ADB is starting...
rem EndEngTextBlock
@call :_SetFirmwareFileName

setlocal enableextensions enabledelayedexpansion

@call :_CheckSideloadMode
@call :_CheckBootloaderMode
::@call :_CheckCableMode
::@call :_CheckWiFiMode
::@call :_CheckDoubleOrNoDeviceMode
::@call :_CheckDevMode
::@call :_CheckAfterWiFiCheckMode
:: Меню прошивки
:_fwmenuskip
@cls
@echo off
call :_hatqut
call :_hatmenu
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo    A.  Полностью автоматическая прошивка
rem @echo        [ требуется режим разработчика ]
rem @echo.
rem @echo    B.  Кнопочная автоматическая прошивка
rem @echo        [ режим разработчика не требуется, но убедитесь что шлем загружен в Bootloader ]
rem @echo.
rem @echo    C.  Извлечь ссылки на прошивки из шлема и скачать файлы прошивок   [EXP]
rem @echo        [ cсылки на прошивки сохранятся в файл link.txt и начнется скачивание ]
rem @echo.
rem @echo    CC. Только извлечь ссылки на прошивки из шлема, не скачивая файлы прошивок   [EXP]
rem @echo        [ cсылки на прошивки сохранятся в файл link.txt ]
rem @echo.
rem @echo    D.  Скачать различные версии прошивок для шлемов Meta Quest
rem @echo        [ откроются сайты со списком прошивок для скачивания]
rem @echo.
rem @echo    E.  Показать текущую версию прошивки шлема и проверить актуальность
rem @echo.
rem @echo    F.  Анализатор прошивок: проверка файла %FirmwareFileName% на корректность и совместимость
rem @echo.       
rem @echo    I. Дополнительные пояснения про инкрементальные прошивки
rem @echo.
@echo    G.  Открыть сайт с прошивками
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Fully automatic firmware flashing
@echo        [developer mode required]
@echo.
@echo    B.  Button-triggered automatic firmware flashing
@echo        [developer mode not required, but ensure the headset is in Bootloader mode]
@echo.
@echo    C.  Extract firmware links from helmet and download firmware files   [EXP]
@echo        [ firmware links will be saved to link.txt and downloading will start ]
@echo.
@echo    CC. Only extract firmware links from helmet without downloading firmware files   [EXP]
@echo        [ firmware links will be saved to link.txt ]
@echo.
@echo    D.  Open the website with firmware versions
@echo.
@echo    E.  Show the current firmware version of the headset and check for updates
@echo.
@echo    F.  Firmware analyzer: check the %FirmwareFileName% file for correctness and compatibility
@echo.
@echo    I. [additional explanations about incremental firmware updates]
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _fwmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _firmwareauto)
if /i "%choice%"=="b" (GOTO _firmwarebutton)
if /i "%choice%"=="c" (GOTO _fwdownload)
if /i "%choice%"=="cc" (GOTO _fwdownload)
if /i "%choice%"=="d" (GOTO _fwsitelink)
if /i "%choice%"=="e" (GOTO _fwtxtcompare)
if /i "%choice%"=="f" (GOTO _CheckFirmwareUpdate)
if /i "%choice%"=="ff" (GOTO _DopHelp)
if /i "%choice%"=="h" (call :_fwhelp)
if /i "%choice%"=="ftp" (GOTO _ftpmenu)

@cls
goto _fwmenu

:_fwsitelink
@start " " "https://cocaine.trade/"
goto :_fwmenuskip

:_fwhelp
::@@echo.
::@@echo.
@echo.
@echo.
@echo ----------------------------------------------------------------------
rem StartRusTextBlock
rem @echo    ee	: Сравнить версии, если новее, записать в fw.txt и выгрузить
rem @echo    ff	: Дополнительный help по инкрементным прошивкам
rem @echo    ftp	: Загрузить/выгрузить файлы fw и alllinks
rem EndRusTextBlock
rem StartEngTextBlock
@echo    ee	: Compare versions, if newer, write to fw.txt and download
@echo    ff	: Additional help on incremental firmware updates
@echo    ftp	: Upload/download fw and alllinks files
rem EndEngTextBlock
@echo ----------------------------------------------------------------------
@echo.
@echo.
call :_prevmenu
exit /b


:_ftpmenu
cls
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo       +++  СЕРВИСНОЕ МЕНЮ^^^! +++
rem @echo  ИСПОЛЬЗУЕТСЯ ТОЛЬКО ДЛЯ СЛУЖЕБНЫХ ЦЕЛЕЙ.
rem @echo.
rem @echo.
rem @echo    A.   Скачать fw.txt
rem @echo    A1.  Скачать fw1.txt
rem @echo    A2.  Скачать fw2.txt
rem @echo    A3.  Скачать fw3.txt
rem @echo    AP.  Скачать fwp.txt
rem @echo    AA.  Скачать все fw.txt разом
rem @echo.
rem @echo    B.   Залить fw.txt на FTP
rem @echo    B1.  Залить fw1.txt на FTP
rem @echo    B2.  Залить fw2.txt на FTP
rem @echo    B3.  Залить fw3.txt на FTP
rem @echo    BP.  Залить fwp.txt на FTP
rem @echo.
rem @echo    C.  Скачать allinls.txt
rem @echo    D.  Залить alllinks.txt на FTP
rem @echo    E.  Скачать alllinks.txt, удалить дубли строк и залить на FTP
rem @echo.
rem @echo    F.  Меню прошивки
rem @echo    G.  Скачать и забэкапить все файлы
rem EndRusTextBlock
rem StartEngTextBlock
@echo       +++  SERVICE MENU^^^! +++
@echo  FOR SERVICE PURPOSES ONLY.
@echo.
@echo.
@echo    A.   Download fw.txt
@echo    A1.  Download fw1.txt
@echo    A2.  Download fw2.txt
@echo    A3.  Download fw3.txt
@echo    AP.  Download fwp.txt
@echo    AA.  Download all fw.txt at once
@echo.
@echo    B.   Upload fw.txt to FTP
@echo    B1.  Upload fw1.txt to FTP
@echo    B2.  Upload fw2.txt to FTP
@echo    B3.  Upload fw3.txt to FTP
@echo    BP.  Upload fwp.txt to FTP
@echo.
@echo    C.  Download allinls.txt
@echo    D.  Upload alllinks.txt to FTP
@echo    E.  Download alllinks.txt, remove duplicate lines, and upload to FTP
@echo.
@echo    F.  Firmware menu
@echo    G.  Download and backup all files
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _ftpmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (set fwtxt=fw.txt && call :_GetFTPfwtxt)
if /i "%choice%"=="a1" (set fwtxt=fw1.txt && call :_GetFTPfwtxt)
if /i "%choice%"=="a2" (set fwtxt=fw2.txt && call :_GetFTPfwtxt)
if /i "%choice%"=="a3" (set fwtxt=fw3.txt && call :_GetFTPfwtxt)
if /i "%choice%"=="ap" (set fwtxt=fwp.txt && call :_GetFTPfwtxt)
if /i "%choice%"=="aa" (goto _DownloadAllFWfiles)
if /i "%choice%"=="b" (set fwtxt=fw.txt && call :_PutFTPfwtxt)
if /i "%choice%"=="b1" (set fwtxt=fw1.txt && call :_PutFTPfwtxt)
if /i "%choice%"=="b2" (set fwtxt=fw2.txt && call :_PutFTPfwtxt)
if /i "%choice%"=="b3" (set fwtxt=fw3.txt && call :_PutFTPfwtxt)
if /i "%choice%"=="bp" (set fwtxt=fwp.txt && call :_PutFTPfwtxt)
if /i "%choice%"=="c" (call :_GetFTPalllinks)
if /i "%choice%"=="d" (call :_PutFTPlllinks)
if /i "%choice%"=="e" (call :_AlllinksNoDoubles)
if /i "%choice%"=="f" (GOTO _fwmenu)
if /i "%choice%"=="g" (GOTO _fwtxtbackup)
@cls
goto _ftpmenu

:_DownloadAllFWfiles
set fwtxt=fw.txt
call :_GetFTPfwtxt
set fwtxt=fw1.txt
call :_GetFTPfwtxt
set fwtxt=fw2.txt
call :_GetFTPfwtxt
set fwtxt=fw3.txt
call :_GetFTPfwtxt
set fwtxt=fwp.txt
call :_GetFTPfwtxt
@echo ---------------
rem StartRusTextBlock
rem @echo = Все fw.txt скачаны
rem EndRusTextBlock
rem StartEngTextBlock
@echo = All fw.txt files downloaded
rem EndEngTextBlock
@echo.
call :_prevmenu
goto _ftpmenu

:_fwtxtbackup
call :_settime
@md %~dp0\ftp\ 2>nul
set ftpfile=fw.txt
call :_GetFTP
@move %ftpfile% %~dp0\ftp\ 1>nul 2>nul
set ftpfile=fw1.txt
call :_GetFTP
@move %ftpfile% %~dp0\ftp\ 1>nul 2>nul
set ftpfile=fw2.txt
call :_GetFTP
@move %ftpfile% %~dp0\ftp\ 1>nul 2>nul
set ftpfile=fw3.txt
call :_GetFTP
@move %ftpfile% %~dp0\ftp\ 1>nul 2>nul
set ftpfile=fwp.txt
call :_GetFTP
@move %ftpfile% %~dp0\ftp\ 1>nul 2>nul
set ftpfile=alllinks.txt
call :_GetFTP
@move %ftpfile% %~dp0\ftp\ 1>nul 2>nul
@%myfiles%\7z.exe a -mx7 -t7z ftpfiles-%dt%.7z %~dp0\ftp
@move ftpfiles-%dt%.7z d:\P\Dropbox\SecureWallet\HomeDevices\Quest\Backups\
@rd /s /q %~dp0\ftp
@echo ---------------------------------
rem StartRusTextBlock
rem @echo  = Готово
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Done
rem EndEngTextBlock
@echo.
goto _prevmenu
goto _ftpmenu


:: FTPfw
:_GetFTPfw
call :_SetFWtxtFileName
:_GetFTPfwtxt
set ftpfile=%fwtxt%
call :_GetFTP
@echo ---------------
rem StartRusTextBlock
rem @echo = %fwtxt% скачан
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = %fwtxt% downloaded
rem EndEngTextBlock
@echo.
call :_prevmenu
exit /b

:_PutFTPfw
call :_SetFWtxtFileName
:_PutFTPfwtxt
set ftpfile=%fwtxt%
rem set ftpfile=fw.txt
call :_PutFTP
@echo ---------------
rem StartRusTextBlock
rem @echo = %fwtxt% залит на FTP
rem EndRusTextBlock
rem StartEngTextBlock
@echo = %fwtxt% uploaded to FTP
rem EndEngTextBlock

@echo.
call :_prevmenu
exit /b

::FTPalllinks
:_GetFTPalllinks
set ftpfile=alllinks.txt
call :_GetFTP
@echo ---------------
rem StartRusTextBlock
rem @echo = alllinks.txt скачан
rem EndRusTextBlock
rem StartEngTextBlock
@echo = alllinks.txt downloaded
rem EndEngTextBlock
@echo.
call :_prevmenu
exit /b

:_PutFTPlllinks
set ftpfile=alllinks.txt
call :_PutFTP
@echo ---------------
rem StartRusTextBlock
rem @echo = allinks.txt залит на FTP
rem EndRusTextBlock
rem StartEngTextBlock
@echo = allinks.txt uploaded to FTP
rem EndEngTextBlock
@echo.
call :_prevmenu
exit /b

:_AlllinksNoDoubles
set ftpfile=alllinks.txt
call :_GetFTP
ren alllinks.txt alllinksdoubles.txt
@for /f "tokens=*" %%a in (alllinksdoubles.txt) do (
@findstr /l /c:"%%a" alllinks.txt 1>nul 2>nul || @echo %%a>>alllinks.txt
)
call :_PutFTP
@del alllinks.txt /q /f 1>nul 2>nul
@del alllinksdoubles.txt /q /f 1>nul 2>nul
@echo ---------------
rem StartRusTextBlock
rem @echo = allinks.txt очищен от дублирующих строк
rem EndRusTextBlock
rem StartEngTextBlock
@echo = alllinks.txt cleaned from duplicate lines
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите что-нибудь для возврата в предыдущее меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press anything to return to the previous menu ^<^<^<
rem EndEngTextBlock

@pause 1>nul 2>nul
exit /b
goto _ftpmenu

:_CheckFirmwareUpdate
@echo off
setlocal enableextensions enabledelayedexpansion
:: Проверка на корректность файла прошивки
::if exist "%FirmwareFileName%.zip" ren "%FirmwareFileName%.zip" "%FirmwareFileName%"
::@echo %FirmwareFileName%
::pause
if not exist %FirmwareFileName% goto _NOTEXIST
@%myfiles%\7z.exe t %FirmwareFileName% metadata -r -y 1>nul 2>error.txt
if %errorlevel% GTR 0 goto _ArchiveError
@del error.txt /f /q
@%myfiles%\7z.exe l %FirmwareFileName%  2>error.txt | findstr payload.bin >nul
if %errorlevel% GTR 0 goto _FWWRONG
@del error.txt /f /q
goto _ViewFirmware

:_ArchiveError
@cls
@echo -----------------------------------------------------
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++++ С файлом %FirmwareFileName% что-то не так +++++
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++ Something is wrong with the %FirmwareFileName% file +++++
rem EndEngTextBlock
::@@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo  ТЕКСТ ОШИБКИ:
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ERROR TEXT:
rem EndEngTextBlock
@echo -----------------------------------------------------
@type error.txt
@echo -----------------------------------------------------
@echo.
@del error.txt /f /q
goto _returnmenu

:_ViewFirmware
@echo.
rem StartRusTextBlock
rem @echo +++ Минутку, анализируем данные...
rem EndRusTextBlock
rem StartEngTextBlock
@echo +++ Just a moment, analyzing the data...
rem EndEngTextBlock
call :_ExtractBuildVersionsNumbers
call :_ExtractFirmwareVersion
call :_ExtractPreBuildNumber
call :_CheckBuildsFullInc
call :_ViewAndCompateDeviceName
call :_CompareVersion
rem cls

::!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

@if %fwpreb%==----------- (set incfull=-Full) else (set incfull=-inc-for-%fwpreb%)
rem @ren update.zip %fmfilename%-%fwnfilename%%incfull%.zip 2>nul 1>nul
rem @ren update.zip %fmfilename%-!fwpostn!%incfull%.zip 2>nul 1>nul
@ren update.zip %fmfilename%-%fwpostn%%incfull%.zip 2>nul 1>nul
call :_hat
@echo.
rem StartRusTextBlock
rem @echo					=== АНАЛИЗАТОР ПРОШИВОК ===
rem @echo.
rem @echo  --------------------------------------------------------------------------------------------------
rem @echo. Версия прошивки шлема	: %fwver%	: %headbuild%	: Модель шлема	: %DevModelNm%
rem @echo. Версия файла прошивки	: !fwpostn!	: %postbuild%	: Прошивка для	: %UpzModelNm%
rem @echo. Версия базы инкремента	: !fwpreb!	: %prebuild%	: Совместимость	: %IntPrdCompt%
rem @echo. Полная/Инкрементная	: %setfullinc%	:			:
rem @echo  --------------------------------------------------------------------------------------------------
rem @echo.
rem @echo  Версия базы инкремента - это Версия прошивки шлема, для которой предназначен именно этот инкремент.
rem @echo.
rem @echo  Иначе говоря, Версия прошивки шлема: 	[ %fwver% ]
rem @echo  и Версия базыи инкремента: 		[ %fwpreb% ] 
rem @echo  должны быть одинаковыми.
rem @echo.
rem @echo  Если прошивка полная, версия инкремента не отображается
rem @echo.
rem @echo  А версия файла прошивки должна быть выше текущей версии прошивки шлема.
rem @echo  Мы же собираемся обновлять прошивку, не так ли?
rem @echo.
rem @echo  ----------------------------------------------
rem @echo  == РЕЗУЛЬТАТ ПРОВЕРКИ:
rem EndRusTextBlock
rem StartEngTextBlock
@echo					=== FIRMWARE ANALYZER ===
@echo.
@echo  --------------------------------------------------------------------------------------------------
@echo. Headset firmware version	: %fwver%	: %headbuild%	: Headset model	: %DevModelNm%
@echo. Firmware file version		: !fwpostn!	: %postbuild%	: Firmware for	: %UpzModelNm%
@echo. Increment base version		: !fwpreb!	: %prebuild%	: Compatibility	: %IntPrdCompt%
@echo. Full/Incremental		: %setfullinc%		:			:
@echo  --------------------------------------------------------------------------------------------------
@echo.
@echo  The increment base version is the headset firmware version 
@echo  for which this increment is intended.
@echo.
@echo  In other words, Headset firmware version: 	[ %fwver% ]
@echo  and Increment base version: 			[ %fwpreb% ] 
@echo  should be the same.
@echo.
@echo  If the firmware is uptodate, the increment version is not displayed.
@echo.
@echo  And the version of the %FirmwareFileName% file should be newer than the headset firmware version.
@echo  After all, we are going to update the firmware, aren't we?
@echo.
@echo  ----------------------------------------------
@echo  == CHECK RESULT:
rem EndEngTextBlock
::@@echo.
rem rem @del fw.txt 2>&1 1> nul | findstr /V "" 1> nul 2>&1
@del %fwtxt% 2>&1 1> nul | findstr /V "" 1> nul 2>&1
if %errorlevel%==0 goto _NoInternetMessage
::@del fw.txt /q 1>NUL 2>&1
if not [%bl%]==[] goto _blmessage
@For /F %%r In ('@%myfiles%\adb shell getprop ro.boot.serialno') Do set sn=%%r
if [%sn%]==[] goto _NoHeadsetMessage
if %IntProductName% NEQ %UpZipIntProductName% goto _Uncompatible

call :_ChoiceFunctions

:_ExtractBuildVersionsNumbers
@%myfiles%\7z.exe e %FirmwareFileName% metadata -r -y 1>nul 2>nul
@FOR /F "tokens=2 delims==" %%k IN ('@FINDstr /c:"post-build-incremental" metadata') DO @set postbuild=%%k
@FOR /F "tokens=2 delims==" %%t IN ('@FINDstr /c:"pre-build-incremental" metadata') DO @set prebuild=%%t
@For /F %%f In ('@%MYFILES%\adb shell getprop ro.build.version.incremental') Do set headbuild=%%f
if [%prebuild%]==[] set prebuild=-----------------
if [%headbuild%]==[] set headbuild=-----------------
del metadata /q
exit /b


::>>>>>>>>>>>>>>>>>
:_ExtractFirmwareVersion
call :_hsfwversionextract
set fwver=%hsversion%
if [%fwver%]==[] set fwver=------------
@echo.
@del %fwtxt% /q 1>NUL 2>&1
call :_SetFWtxtFileName
set ftpfile=%fwtxt%
call :_GetFTP

:_fw
@echo off
@For /F "tokens=1,2 delims= " %%a In (%fwtxt%) Do (
@set fwpostbuildfile=%%a
@set fwpostn=%%b
if !postbuild! == !fwpostbuildfile! (
exit /b
) else (
rem @echo %fwtxt%
rem @echo fwpbf !fwpostbuildfile!
rem @echo fwp !fwpostn!
rem pause
rem StartRusTextBlock
rem @set "fwpostn=Неизвестно"
rem EndRusTextBlock
rem StartEngTextBlock
set fwpostn=Unknown
rem EndEngTextBlock
)
)
exit /b

@For /F "tokens=1,2 delims= " %%a In (%fwtxt%) Do (
@set fwheadbuildfile=%%a
@set fwheadn=%%b
@if !headbuild! == !fwheadbuildfile! (
exit /b
)
)
exit /b

:_ExtractPreBuildNumber
@For /F "tokens=1,2 delims= " %%a In (%fwtxt%) Do (
@set fwprebuildfile=%%a
@set fwpreb=%%b
if %prebuild%==----------------- set fwpreb=----------- && exit /b
if !prebuild! == !fwprebuildfile! (
exit /b
) else (
rem StartRusTextBlock
rem @set "fwpreb=Неизвестно"
rem EndRusTextBlock
rem StartEngTextBlock
@set "fwpreb=Unknown"
rem EndEngTextBlock
)
)
exit /b

:_CheckBuildsFullInc
::@if not exist fw.txt set fwpreb=Интернет йок & set fwpostn=Интернет йок
rem rem @if not exist fw.txt set fwpreb=No Internet. & set fwpostn=No Internet.
@if not exist %fwtxt% set fwpreb=No Internet. & set fwpostn=No Internet.

if %prebuild%==----------------- (
rem StartRusTextBlock
rem set setfullinc=Полная
rem EndRusTextBlock
rem StartEngTextBlock
@set setfullinc=Full
rem EndEngTextBlock
) else (
rem StartRusTextBlock
rem set setfullinc=Инкрементная
rem EndRusTextBlock
rem StartEngTextBlock
@set setfullinc=Incremental
rem EndEngTextBlock
)
exit /b

:_ChoiceFunctions
if %prebuild%==----------------- (
call :_CompareHeadPostbuild
) else (
call :_CompareHeadPrebuild
)
exit /b

:_CompareHeadPostbuild
set num1=%headbuild%
set num2=%postbuild%
set "tmp1=                 %num1%"
set "tmp2=                 %num2%"
set headpad="%tmp1:~-17%"
set postpad="%tmp2:~-17%"
if %postpad% == %headpad% (
@echo.
@echo  -----------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|   +++ На шлеме и в файле %FirmwareFileName% одинаковые прошивки +++   ^|
rem @echo  -----------------------------------------------------------------
rem @echo.
rem @echo   Прошить не получится.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   +++ The headset and %FirmwareFileName% file have the same firmware versions +++   ^|
@echo  -----------------------------------------------------------------
@echo.
@echo   Firmware flashing is not possible.
rem EndEngTextBlock

goto _FlashMenuNo
) else (
if %headpad% gtr %postpad% (
@echo.
@echo  ---------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|   +++ На шлеме более новая прошивка, чем в файле %FirmwareFileName% +++   ^|
rem @echo  ---------------------------------------------------------------------
rem @echo.
rem @echo   Прошить не получится.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   +++ The headset has a newer firmware version than in the %FirmwareFileName% file +++   ^|
@echo  ---------------------------------------------------------------------
@echo.
@echo   Firmware flashing is not possible.
rem EndEngTextBlock
goto _FlashMenuNo
) else (
@echo.
@echo  --------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|   +++ В файле %FirmwareFileName% более новая прошивка, чем в шлеме +++   ^|
rem @echo  --------------------------------------------------------------------
rem @echo.
rem @echo   Можно прошивать.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  --------------------------------------------------------------------
@echo  ^|   +++ The %FirmwareFileName% file has a newer firmware version than the headset +++   ^|
@echo  --------------------------------------------------------------------
@echo.
@echo   Firmware update is possible.
rem EndEngTextBlock
goto _FlashMenuYes
)
)
exit /b

:_CompareHeadPrebuild
set num1=%headbuild%
set num2=%prebuild%
set "tmp1=                 %num1%"
set "tmp2=                 %num2%"
set headpad="%tmp1:~-17%"
set prepad="%tmp2:~-17%"
if %headpad% == %prepad% (
@echo.
@echo  -----------------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|    +++ Версия базы инкремента совпадает с версией прошивки шлема +++     ^|
rem @echo  -----------------------------------------------------------------------------
rem @echo.
rem @echo   Можно прошивать.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   +++ Increment base version matches the headset firmware version +++   ^|
@echo  -----------------------------------------------------------------------------
@echo.
@echo   Firmware update is possible.
rem EndEngTextBlock
goto _FlashMenuYes
) else (
@echo.
@echo  --------------------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|     +++ Версия базы инкремента не совпадает с версией прошивки шлема +++     ^|
rem @echo  --------------------------------------------------------------------------------
rem @echo.
rem @echo   Прошить не получится.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   +++ Increment base version does not match the headset firmware version +++   ^|
@echo  --------------------------------------------------------------------------------
@echo.
@echo   Firmware flashing is not possible.
rem EndEngTextBlock
goto _FlashMenuNo
)

:_FlashMenuNo
@echo.
rem StartRusTextBlock
rem @echo   Но вы можете попробовать прошиться, на свой страх и риск.
rem @echo   Ничего критичного быть не должно, шлем просто не прошьется.
rem EndRusTextBlock
rem StartEngTextBlock
@echo   But you can try to flash it at your own risk.
@echo   There shouldn't be anything critical, the headset just won't be flashed.
rem EndEngTextBlock
@echo.
:_FlashMenuYes
@echo.
@echo.
@echo. %veryold1%
@echo. %veryold2%
@echo. %veryold3%
@echo.
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите любую кнопку для возврата в меню прошивки ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press any key to return to the firmware menu ^<^<^<
rem EndEngTextBlock
@pause >nul
goto :_fwmenuskip
::exit

:_CompareVersion
::set fwver="37.0.0.137
rem if %fwver:~1,2% GTR 38 (
rem exit /b
rem ) else (
rem set veryold1=Прошивка слишком старая. 
rem set veryold2=В этом случае следует шить в таком порядке:
rem set veryold3=Сначала обновление до v.50, затем можно самую последнюю.
exit /b
rem )


:_fwlinkdownload
@start " " "https://quest2vr.ru/прошивки-для-quest-2/"
@start " " "https://cocaine.trade/"
@start " " "https://app.koofr.net/links/9dcb7fff-03a5-4ad0-7b96-04258c02be15"
@echo.
@echo.
goto :_fwmenuskip
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите любую кнопку для возврата в меню прошивки ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press any key to return to the firmware menu ^<^<^<
rem EndEngTextBlock
@pause >nul

:_DopHelp
rem @chcp 65001 1>nul 2>nul
cls
rem StartRusTextBlock
rem @echo.
rem @echo.
rem @echo.
rem @echo.
rem @echo   ПОЯСНЕНИЕ ОБ ИНКРЕМЕНТНЫХ ПРОШИВКАХ
rem @echo.
rem @echo   Допустим, у нас прошивка в шлеме: 10.10, а шить мы собираемся такую: 20.10
rem @echo   И если она инкрементая, то есть - частичная, ее можно прошивать
rem @echo   только на определенную базовую версию в шлеме.
rem @echo   Для этого в файле прошивки дополнительно указывается номер версии прошивки шлема,
rem @echo   на которую можно прошивать. Эта версия и есть база инкремента, то есть фундамент.
rem @echo.
rem @echo   Например, у нас есть инкрементный файл прошивки с версией 20.10 она новее,
rem @echo   чем в шлеме (10.10), но при этом база у этого файла для версии 10.50.
rem @echo   И выходит, что версия файла прошивки хоть и выше шлемовой, но данный апдейт предназначен
rem @echo   ТОЛЬКО для шлемов с версией базы 10.50, а у нас шлем с базовой прошивкой 10.10
rem @echo.
rem @echo   Стало быть, прошить не получится.
rem @echo.
rem @echo.
rem @echo.
rem EndRusTextBlock
rem StartEngTextBlock
@echo.
@echo.
@echo   For example, we have firmware in the headset: 10.10
@echo.
@echo   And we are going to flash such firmware: 20.10
@echo.
@echo   And if it is incremental, i.e., partial, it can be flashed
@echo   only to a certain version in the headset.
@echo.
@echo   For this purpose, the firmware file additionally specifies the version
@echo   of the headset firmware that can be flashed.
@echo   This version is the increment base.
@echo.
@echo   For example, we have a firmware file with version 20.10
@echo   it is newer than the headset firmware (10.10).
@echo   but the increment base for the file is version 10.50.
@echo.
@echo   And it turns out that the firmware file version is higher than the headset firmware version,
@echo   but this update is ONLY intended for headsets with version 10.50,
@echo   and we have a headset with firmware version 10.10
@echo.
@echo   So, flashing won't work.
@echo.
@echo.
@echo.
rem EndEngTextBlock

:: @start cmd /c @%MYFILES%\adb shell
:: StartRusTextBlock
:: @start cmd /k "type dophelp.txt && @echo Для закрытия окна нажмите любую кнопку && @pause 1>nul && exit"
:: EndRusTextBlock
:: StartEngTextBlock
:: @start cmd /k "type dophelp.txt && @echo Press any key to close the window && @pause >nul && exit"
:: EndEngTextBlock
:: @ping localhost -n 2 2>nul 1>nul
:: @del dophelp.txt /f /q 2>nul 1>nul

call :_prevmenu
goto _fwmenu

:_ViewAndCompateDeviceName
set IntProductName=
@for /f %%a in ('@%myfiles%\adb shell getprop ro.product.name') do set IntProductName=%%a
:: Использовать эту, если не подойдет предыдущая
::@for /f %%a in ('@%myfiles%\adb shell getprop ro.product.device') do set IntProductName=%%a
@%myfiles%\7z.exe e %FirmwareFileName% metadata -r -y 1>nul 2>nul
@FOR /F "tokens=2 delims==" %%k IN ('@FINDstr /c:"pre-device" metadata') do @set UpZipIntProductName=%%k
if [%UpZipIntProductName%]==[] set UpZipIntProductName=----------
@del metadata /q 1>nul 2>nul
call :_SetCompareDeviceModelName
call :_SetCompareUpZipModelName
call :_CompareUpZipAndProductName
exit /b

:_SetCompareDeviceModelName
if [%IntProductName%]==[] set IntProductName=---------- && set DeviceModelName=-------- && exit /b
if %IntProductName%==monterey set DevModelNm=Quest 1&&set fmfilename=Q1&&set fwtxt=fw1.txt&&  exit /b
if %IntProductName%==hollywood set DevModelNm=Quest 2&&set fmfilename=Q2&&set fwtxt=fw2.txt&& exit /b
if %IntProductName%==seacliff set DevModelNm=Quest Pro&&set fmfilename=QP&&set fwtxt=fwp.txt&& exit /b
if %IntProductName%==eureka set DevModelNm=Quest 3&&set fmfilename=Q3&&set fwtxt=fw3.txt&& exit /b
rem StartRusTextBlock
rem set DeviceModelName=Неясно
rem EndRusTextBlock
rem StartEngTextBlock
set UpZipModelName=Unknown
rem EndEngTextBlock
set DevModelNm=------------
exit /b

:_SetCompareUpZipModelName
if %UpZipIntProductName%==monterey set UpzModelNm=Quest 1 &&set fmfilename=Q1&&set fwtxt=fw1.txt&& exit /b
if %UpZipIntProductName%==hollywood set UpzModelNm=Quest 2 &&set fmfilename=Q2&&set fwtxt=fw2.txt&& exit /b
if %UpZipIntProductName%==seacliff set UpzModelNm=Quest Pro &&set fmfilename=QP&&set fwtxt=fwp.txt&& exit /b
if %UpZipIntProductName%==eureka set UpzModelNm=Quest 3 &&set fmfilename=Q3&&set fwtxt=fw3.txt&& exit /b
:: Здесь первый символ слова "Неясно" - латинская "H"
rem StartRusTextBlock
rem set UpZipModelName=Hеясно
rem EndRusTextBlock
rem StartEngTextBlock
set UpZipModelName=Unknown
rem EndEngTextBlock
set DevModelNm=------------
exit /b

:_CompareUpZipAndProductName
if %IntProductName% NEQ %UpZipIntProductName% (
rem StartRusTextBlock
rem set "IntPrdCompt=Нет"
rem EndRusTextBlock
rem StartEngTextBlock
set "IntPrdCompt=No"
rem EndEngTextBlock
exit /b
) else (
rem StartRusTextBlock
rem set "IntPrdCompt=Да"
rem EndRusTextBlock
rem StartEngTextBlock
set "IntPrdCompt=Yes"
rem EndEngTextBlock
exit /b
)
exit /b

:_SetFWtxtFileName
@%myfiles%\7z.exe e %FirmwareFileName% metadata -r -y 1>nul 2>nul
@FOR /F "tokens=2 delims==" %%k IN ('@FINDstr /c:"pre-device" metadata') do @set UpZipIntProductName=%%k
if [%UpZipIntProductName%]==[] set UpZipIntProductName=----------
if %UpZipIntProductName%==monterey set DevModelNm=Quest 1&&set fmfilename=Q1&&set UpzModelNm=Quest 1 &&set fwtxt=fw1.txt&& exit /b
if %UpZipIntProductName%==hollywood set DevModelNm=Quest 2&&set fmfilename=Q2&& set UpzModelNm=Quest 2 &&set fwtxt=fw2.txt&& exit /b
if %UpZipIntProductName%==seacliff set DevModelNm=Quest Pro&&set fmfilename=QP&&set UpzModelNm=Quest Pro &&set fwtxt=fwp.txt&& exit /b
if %UpZipIntProductName%==eureka set DevModelNm=Quest 3&&set fmfilename=Q3&&set UpzModelNm=Quest 3 &&set fwtxt=fw3.txt&& exit /b
:: Здесь первый символ слова "Неясно" - латинская "H"
rem StartRusTextBlock
rem set UpZipModelName=Hеясно
rem EndRusTextBlock
rem StartEngTextBlock
set UpZipModelName=Unknown
rem EndEngTextBlock
exit /b


:_Uncompatible
@echo.
@echo  ---------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|   +++ Файл прошивки %FirmwareFileName% от другой модели шлема +++   ^|
rem @echo  ---------------------------------------------------------------
rem @echo.
rem @echo   Прошить не получится.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ---------------------------------------------------------------
@echo  ^|   +++ Firmware file %FirmwareFileName% from another headset model +++   ^|
@echo  ---------------------------------------------------------------
@echo.
@echo   Firmware flashing is not possible.
rem EndEngTextBlock

goto _FlashMenuYes

::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

:_firmwareauto
call :_SetFirmwareFileName
call :_cdc
call :_hat
@echo.
@echo off
call :_setfwtxt
rem StartRusTextBlock
rem if "%model%" EQU "Неизвестно" (
rem EndRusTextBlock
rem StartEngTextBlock
if "%model%" EQU "Unknown" (
rem EndEngTextBlock
set model=---------
rem StartRusTextBlock
rem set model1=+++ Подключено неизвестное устройство! +++
rem set umodel2=Продолжайте только если вы точно знаете, что делаете.
rem EndRusTextBlock
rem StartEngTextBlock
set model1=+++ Unknown device connected! +++
set umodel2=Continue only if you are absolutely sure what you are doing.
rem EndEngTextBlock
goto _CheckUpdateZip
) else (
rem StartRusTextBlock
rem set model1=+++ Подключено устройство: %model% +++
rem EndRusTextBlock
rem StartEngTextBlock
set model1=+++ Device connected: %model% +++
rem EndEngTextBlock
)
)

:_CheckUpdateZip
if exist %FirmwareFileName%.zip ren %FirmwareFileName%.zip %FirmwareFileName%
if not exist %FirmwareFileName% goto _NOTEXIST
@%MYFILES%\7z.exe l %FirmwareFileName% | findstr payload.bin >nul
@If %ERRORLEVEL% EQU 1 GOTO _FWWRONG
@echo.
@echo.
::@@echo.
@echo.
rem StartRusTextBlock
rem @echo          +++ Файл прошивки найден +++
rem @echo.
rem @echo.
rem @echo.   %model1% ^ & @echo. ^ & @echo. ^ & @echo. %umodel2%
rem @echo.
rem @echo.
rem @echo		0. Выход из программы
rem @echo		M. Выход в Главное меню
rem @echo		F. Выход в меню прошивки
rem @echo		T. Проверить файл %FirmwareFileName% на совместимость
rem @echo	    Enter. Начать прошивку
rem @echo.
rem @echo.
rem @echo.
rem @echo -----------------------------------------------------
rem @echo  Нажмите Enter для начала прошивки устройства
rem @echo  или выберите пункт меню и затем Enter
rem EndRusTextBlock
rem StartEngTextBlock
@echo          +++ Firmware file found +++
@echo.
@echo.
@echo.   %model1% ^ & @echo. ^ & @echo. ^ & @echo. %umodel2%
@echo.
@echo.
@echo		0. Exit the program
@echo		M. Exit to Main Menu
@echo		F. Exit to Firmware Menu
@echo		T. Check %FirmwareFileName% file compatibility
@echo	    Enter. Start device flashing
@echo.
@echo.
@echo.
@echo -----------------------------------------------------
@echo  Press Enter to start device flashing
@echo  or choose a menu item and then press Enter
rem EndEngTextBlock
:_fwmenu1
@echo off
@set "choice="
@Set "choice=1"
@echo.
@Set /p choice=">> "
@echo.
if not defined choice goto _fwmenu1
if "%choice%"=="1" (GOTO _contfw1)
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="f" (GOTO _fwmenuskip)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="t" (GOTO _CheckFirmwareUpdate)
goto _fwmenu1

:_contfw1
@echo.
@echo  ----------
rem StartRusTextBlock
rem @echo  = Загружаемся в бутлоадер..
rem @echo    [светодиод загорится оранжевым]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Booting into bootloader..
@echo    [LED will light up orange]
rem EndEngTextBlock
@echo.
@%MYFILES%\adb.exe reboot bootloader 1>NUL 2>&1
@ping localhost -n 12 >nul
@echo  ----------
rem StartRusTextBlock
rem @echo  = Переключаемся в режим загрузки прошивки..
rem @echo    [ светодиод загорится белым, затем фиолетовым ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Switching to firmware loading mode..
@echo    [LED will light up white, then purple]
rem EndEngTextBlock
@echo.
@%MYFILES%\fastboot.exe oem reboot-sideload 1>NUL 2>&1
@ping localhost -n 14 >nul

:_FirmwareUpload
@echo  ----------
rem StartRusTextBlock
rem @echo  = Загружаем прошивку в шлем..
rem @echo    [ на 94^%% может на минуту замререть или завершить процесс загрузки, это нормально ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Loading firmware into the headset..
@echo    [ at 94^%% it may freeze for a minute or complete the loading process, this is normal ]
rem EndEngTextBlock
@echo.
rem IF [%FirmwareFileName%] NEQ [update.zip] set FirmwareFileName=update.zip
@%MYFILES%\adb.exe sideload update.zip
@If ERRORLEVEL==1 goto _loadfwerror
@echo.
@echo.
rem StartRusTextBlock
@echo  ---------------------------------------------------
rem @echo  ^|     +++  Загрузка прошивки завершена  +++       ^|
rem @echo  ---------------------------------------------------
rem @echo.
rem @echo  Обратите внимание на сообщение после загрузки: 
rem @echo   Total xfer 1.00x - вы шьете ту же самую или более раннюю версию прошивки  
rem @echo   Total xfer 2.00x - новая прошивка успешно загружена в шлем
rem @echo.
rem @echo  Вскоре устройство будет перезагружено.
rem @echo  Установка новой прошивки продолжится автоматически.
rem @echo.
rem @echo  Не трогайте шлем, пока боковой светодиод не станет желтым или зеленым. 
rem @echo  Загрузка в окружение может занять до десяти минут, будьте терпеливы.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|     +++  Firmware loading complete  +++       ^|
@echo  ---------------------------------------------------
@echo.
@echo  Pay attention to the message after loading:
@echo   Total xfer 1.00x - you are flashing the same or earlier firmware version
@echo   Total xfer 2.00x - new firmware successfully loaded into the headset
@echo.
@echo  The device will be rebooted shortly.
@echo  Installing the new firmware will continue automatically.
@echo.
@echo  Do not touch the headset until the side LED turns yellow or green.
@echo  Loading into the environment may take up to ten minutes, please be patient.
rem EndEngTextBlock
@ping localhost -n 5 >nul
@echo.
@taskkill /IM adb.exe /F 2>nul 1>nul
@echo -----------------------------------------------------
goto _returnmenu

:_CheckFWfileExist
if not exist %cd%\update.zip goto _NOTEXIST
exit /b

:_firmwarebutton
endlocal
@call :_SetFirmwareFileName
@echo off
@cls
call :_hat
@echo.
@echo.
if exist %FirmwareFileName%.zip ren %FirmwareFileName%.zip %FirmwareFileName%
if not exist %FirmwareFileName% goto _NOTEXIST
@%MYFILES%\7z.exe l %FirmwareFileName% | findstr payload.bin >nul
@If %ERRORLEVEL% EQU 1 GOTO _FWWRONG
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++++  Файл прошивки найден  +++++
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++  Firmware file found  +++++
rem EndEngTextBlock
@echo.
@echo.
@echo.
@%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
@If %ERRORLEVEL%==1 goto _nobootloader
@echo.
rem StartRusTextBlock
::@@echo    Для получения информации о файле %FirmwareFileName%  
::@@echo    выйдите в основное меню и выберите пункт F.
@echo -----------------------------------------------------
@echo.
@echo.
rem @echo		0. Выход из программы 
rem @echo		M. Выход в Главное меню 
rem @echo		F. Выход в меню прошивки
rem @echo		T. Проанализировать файл прошивки
rem @echo	    Enter. Начать прошивку
rem EndRusTextBlock
rem StartEngTextBlock
@echo		0. Exit the program
@echo		M. Exit to Main Menu
@echo		F. Exit to Firmware Menu
@echo		T. Analyze firmware file
@echo	    Enter. Start flashing
rem EndEngTextBlock

:_fwmenu2
@echo off
@set "choice="
@Set "choice=1"
@echo.
@Set /p choice=">> "
@echo.
if not defined choice goto _fwmenu2
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="f" (GOTO _fwmenuskip)
if /i "%choice%"=="m" (GOTO _beginn)
if "%choice%"=="1" (GOTO _contfw2)
if /i "%choice%"=="t" (GOTO _CheckFirmwareUpdate)
goto _fwmenu2

:_contfw2
@echo.
@echo  ----------
rem StartRusTextBlock
rem @echo  = Переключаемся в режим загрузки прошивки..
rem @echo    [ светодиод загорится белым, затем фиолетовым ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Switching to firmware loading mode..
@echo    [LED will light up white, then purple]
rem EndEngTextBlock
::@@echo.
@%MYFILES%\fastboot.exe oem reboot-sideload 1>NUL 2>&1
@@ping localhost -n 14 >nul
@echo.
@echo  ----------
rem StartRusTextBlock
rem @echo  = Загружаем прошивку в шлем..
rem @echo    [ на 94^%% на минуту замрёт или завершит процесс загрузки, это нормально ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Loading firmware into the headset..
@echo    [ at 94^%% it may freeze for a minute or complete the loading process, this is normal ]
rem EndEngTextBlock
@echo.
@%MYFILES%\adb.exe sideload %FirmwareFileName%
@If %ERRORLEVEL%==1 goto _loadfwerror
@echo.
rem StartRusTextBlock
@echo  ---------------------------------------------------
rem @echo  ^|     +++  Загрузка прошивки завершена  +++       ^|
rem @echo  ---------------------------------------------------
rem @echo.
rem @echo  Обратите внимание на сообщение после загрузки: 
rem @echo   Total xfer 1.00x - вы шьете ту же самую или более раннюю версию прошивки
rem @echo   Total xfer 2.00x - новая прошивка успешно загружена в шлем
rem @echo.
rem @echo  Вскоре устройство будет перезагружено.
rem @echo  Установка новой прошивки продолжится автоматически.
rem @echo.
rem @echo  Не трогайте шлем, пока боковой светодиод не станет желтым или зеленым. 
rem @echo  Загрузка в окружение может занять 10-15  минут, будьте терпеливы.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|     +++  Firmware loading complete  +++       ^|
@echo  ---------------------------------------------------
@echo.
@echo  Pay attention to the message after loading:
@echo   Total xfer 1.00x - you are flashing the same or earlier firmware version
@echo   Total xfer 2.00x - new firmware successfully loaded into the headset
@echo.
@echo  The device will be rebooted shortly.
@echo  Installing the new firmware will continue automatically.
@echo.
@echo  Do not touch the headset until the side LED turns yellow or green.
@echo  Loading into the environment may take up to ten minutes, please be patient.@ping localhost -n 5 >nul
rem EndEngTextBlock
@echo.
@taskkill /IM adb.exe /F 2>nul 1>nul
goto _returnmenu

:_nobootloader
@echo off
@cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++ Шлем НЕ в режиме Bootloader! +++
rem @echo.
rem @echo.
rem @echo.
rem @echo   Для того, чтобы загрузить ся в Bootloader,
rem @echo   одновременно удерживайте кнопки Питание
rem @echo   и Громкость-минус (ближняя к носу)
rem @echo   до появления бело-синего меню.
rem @echo --------------------------------------------
rem @echo.
rem @echo   Затем перезапустите эту программу.
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ Headset NOT in Bootloader mode! +++
@echo.
@echo.
@echo.
@echo   To enter Bootloader mode,
@echo   hold down the Power and Volume Down buttons
@echo   simultaneously (the one closest to the nose)
@echo   until the white-blue menu appears.
@echo --------------------------------------------
@echo.
@echo   Then restart this program.
@echo.
@echo.
rem EndEngTextBlock
@echo.
@echo.
goto _returnmenu

:_bootloadermode
@echo off
@cls
call :_hat
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++ Шлем в режиме Bootloader! +++
rem @echo.
rem @echo.
rem @echo.
rem @echo  или в Fasboot - зависит цвета диода и от того, что на дисплее:
rem @echo.
rem @echo  Если на экране шлема желто-синее меню, светодиод фиолетовый и надпись FASTBOOTD - 
rem @echo      = вы в режиме +++ Fastboot +++
rem @echo.
rem @echo  Если на экране бело-синее меню, светодиод оранжевый и надпись USB Update Mode - 
rem @echo     = вы в режиме +++ Bootloader +++ 
rem @echo --------------------------------------------
rem @echo.
rem @echo.
rem @echo      0. Выход из программы 
rem @echo      M. Выход в Главное меню
rem @echo      R. Перезагрузка шлема
rem @echo      F. Выход в общее прошивочное меню прошивки
rem @echo  Enter. Перейти непосредственно к меню прошивки (Кнопочный режим)
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ Headset in Bootloader mode! +++
@echo.
@echo.
@echo.
@echo  Or in Fastboot - it depends on the LED color and what's on the display:
@echo.
@echo  If the headset displays a yellow-blue menu, the LED is purple, and the text says FASTBOOTD - 
@echo      = you're in +++ Fastboot mode +++
@echo.
@echo  If the headset displays a white-blue menu, the LED is orange, and the text says USB Update Mode - 
@echo     = you're in +++ Bootloader mode +++
@echo --------------------------------------------
@echo.
@echo.
@echo      0. Exit the program 
@echo      M. Exit to Main Menu 
@echo      R. Reboot
@echo      F. Exit to Firmware Menu
@echo  Enter. Switch to button flashing mode
rem EndEngTextBlock
@echo.
@echo.
@echo.
@set "choice="
@Set "choice=1"
rem StartRusTextBlock
rem @Set /p choice="Выберите пункт меню или нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="Select a menu number and press Enter: "
rem EndEngTextBlock
@echo.
if not defined choice goto _bootloadermode
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="1" (GOTO _firmwarebutton)
if /i "%choice%"=="f" (GOTO _fwmenuskip)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="r" (GOTO _RebootFromBootLoader)
goto _bootloadermode

:_RebootFromBootLoader
@%myfiles%\fastboot reboot  1>nul 2>nul& call :_rebootmessage & goto  _returnmenu

:_NOTEXIST
@echo off
@cls
call :_hatqut
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     ++++ Файл прошивки НЕ найден ++++
rem @echo.
rem @echo.
rem @echo.
rem @echo   1. Поместите файл прошивки (архив zip) рядом с этой программой.
rem @echo   2. Перезапустите программу.
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ Firmware file NOT found ++++
@echo.
@echo.
@echo.
@echo   1. Place the firmware file (zip archive) next to this program.
@echo   2. Restart the program.
rem EndEngTextBlock
@echo.
@taskkill /IM adb.exe /F 2>nul 1>nul
goto _returnmenu

:_FWWRONG
@echo off
@cls
call :_hatqut
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo    ++++ Файл прошивки не корректен ++++
rem @echo.
rem @echo.
rem @echo.
rem @echo  Проверьте содержимое архива %FirmwareFileName%
rem @echo  Он должен иметь такую структуру:
rem @echo.
rem @echo   META-INF
rem @echo	apex_info.pb
rem @echo   care_map.pb
rem @echo   payload.bin
rem @echo   payload_properties.txt
rem @echo.
rem @echo  Как только убедитесь в правильности архива, перезапустите программу.
rem @echo    ++++ Файл прошивки не корректен ++++
rem EndRusTextBlock
rem StartEngTextBlock
@echo    ++++ Firmware file is not valid ++++
@echo.
@echo.
@echo.
@echo  Check the contents of the %FirmwareFileName% archive
@echo  It should have the following structure:
@echo.
@echo   META-INF
@echo	apex_info.pb
@echo   care_map.pb
@echo   payload.bin
@echo   payload_properties.txt
@echo.
@echo  Once you've confirmed the correctness of the archive, restart the program.
rem EndEngTextBlock
@echo.
@taskkill /IM adb.exe /F 2>nul 1>nul
goto _returnmenu

:_fversion
@echo.
@echo.
@%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
If %ERRORLEVEL%==0 goto _blmessage
rem call :_tabModel
call :_setfwtxt
If %IntProductName%==---------- goto _Unknown

rem @echo Секунду, выдергиваем циферки...
@echo  Just a moment, extracting numbers...
@For /F %%a In ('@%MYFILES%\adb shell getprop ro.build.version.incremental') Do set hsenvironment=%%a
call :_hsfwversionextract
call :_setfwtxt
@echo ----------------------------------------------
rem StartRusTextBlock
rem @echo Модель шлема		: Meta %DevModelNm%
rem @echo Версия среды		: %hsenvironment%
rem @echo Версия прошивки		: %hsversion%
rem EndRusTextBlock
rem StartEngTextBlock
@echo Headset model       : Meta %DevModelNm%
@echo Environment version: %hsenvironment%
@echo Firmware version   : %hsversion%
rem EndEngTextBlock
@echo ----------------------------------------------
goto _returnmenu

:_Unknown
@echo.
@echo.
rem StartRusTextBlock
rem @echo   +++ Шлем не подключен или модель не определена +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo   +++ Headset is not connected or the model is not recognized +++
rem EndEngTextBlock
@echo.
@echo.
GOTO _returnmenu

:_fwtxtcompare
@echo off
rem StartRusTextBlock
rem @echo Секунду, выдергиваем циферки...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Just a moment, extracting numbers...
rem EndEngTextBlock
For /F %%a In ('@%MYFILES%\adb shell getprop ro.build.version.incremental') Do set hsenvironment=%%a
call :_hsfwversionextract
call :_setfwtxt
rem StartRusTextBlock
@echo -----------------------------------------------------
rem @echo   Модель шлема			: %DevModelNm%
rem @echo -----------------------------------------------------
rem @echo   Версия среды шлема		: %hsenvironment%
rem @echo   Версия прошивки шлема		: %hsversion%
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Headset model			: %DevModelNm%
@echo -----------------------------------------------------
@echo  Headset environment version	: %hsenvironment%
@echo  Headset firmware version	: %hsversion%
rem EndEngTextBlock
@echo -----------------------------------------------------
rem call :_SetFWtxtFileName
set ftpfile=%fwtxt%
call :_GetFTP
if errorlevel==1 goto _errordownloadfwtxt
(for /f "delims=" %%i in ('type %fwtxt%') do @set last_string=%%i)
@echo.%last_string% >ls.txt
@For /F "tokens=1,2 delims= " %%a In (ls.txt) Do (
@set lstxtenvironment=%%a
@set lstxtversion=%%b
)
set num1=%hsenvironment%
set num2=%lstxtenvironment%
set "tmp1=                 %num1%"
set "tmp2=                 %num2%"
set hsnumb="%tmp1:~-17%"
set lsnumb="%tmp2:~-17%"
rem StartRusTextBlock
rem @echo   Версия среды из таблицы	: %lsnumb:~1,-1%
rem @echo   Версия прошивки из таблицы	: %lstxtversion%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Environment version from table	: %lsnumb:~1,-1%
@echo  Firmware version from table	: %lstxtversion%
rem EndEngTextBlock
@echo -----------------------------------------------------
@if %hsnumb% GTR %lsnumb% (
@echo.
rem StartRusTextBlock
rem @echo +++  Прошивка в шлеме новее, чем в таблице  +++
rem @echo.
rem @echo = Дополняем таблицу соответствия версий прошивок
rem EndRusTextBlock
rem StartEngTextBlock
@echo +++ Firmware in the headset is newer than in the table +++
@echo.
@echo = Updating the firmware version mapping table
rem EndEngTextBlock
@echo %hsenvironment% %hsversion% >>%fwtxt%
call :_SetCompareDeviceModelName
rem call :_SetFWtxtFileName
set ftpfile=%fwtxt%
call :_PutFTP
del ls.txt /q /f
@echo.
goto _returnmenu
) else (
@if %hsnumb% == %lsnumb% (
@echo.
rem StartRusTextBlock
rem @echo     +++ Версия прошивки шлема актуальна +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ The firmware version in the headset is up to date +++
rem EndEngTextBlock
del %fwtxt% /q /f
del ls.txt /q /f
@echo.
goto _returnmenu
) else (
@if %lsnumb% GTR %hsnumb% (
@echo.
rem StartRusTextBlock
rem @echo     +++ В шлеме устаревшая версия прошивки +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ The firmware version in the headset is outdated +++
rem EndEngTextBlock
del %fwtxt% /q /f
del ls.txt /q /f
@echo.
goto _returnmenu
) else (
rem Этот блок не используется, но может быть задействован
rem @echo    +++ Файл fw.txt актуален +++
rem del %fwtxt% /q /f
rem del ls.txt /q /f
rem @echo.
rem goto _returnmenu
)
)
)
goto _returnmenu

:_errordownloadfwtxt
rem StartRusTextBlock
rem @echo Ошибка скачивания
rem EndRusTextBlock
rem StartEngTextBlock
@echo Download error
rem EndEngTextBlock
@echo.
goto _returnmenu

:_GetFTP
set transfer=get
call :_ftpconnect
@del ftp_%transfer%.txt /q /f  1>nul 2>nul
exit /b

:_PutFTP
set transfer=put
call :_ftpconnect
@del ftp_%transfer%.txt /q /f 1>nul 2>nul
@del %fwtxt% /q /f 1>nul 2>nul
exit /b

:_ftpconnect
@echo open remlink.eu 2222 >>ftp_%transfer%.txt
@echo USER upload upl0ad >>ftp_%transfer%.txt
@echo binary >>ftp_%transfer%.txt
@echo quote PASV >>ftp_%transfer%.txt
@echo cd Upload >>ftp_%transfer%.txt
@echo %transfer% %ftpfile% >>ftp_%transfer%.txt
@echo quit >>ftp_%transfer%.txt
@ftp -v -n -s:ftp_%transfer%.txt 1>nul 2>nul
exit /b

:_fwdownload
call :_cdc
@echo Off
@set arcpath=%myfiles%
@echo ===============================================================
rem StartRusTextBlock
rem @echo Создаем архив багрепорта, это займет 3-4 минуты
rem @echo Должна появиться такая строчка:
rem @echo.
rem @echo [  1%%%] generating bugreport-...
rem @echo.
rem @echo Если в течении минуты не появилась, закройте программу и запустите ее снова
rem EndRusTextBlock
rem StartEngTextBlock
@echo Creating bugreport archive, this may take 3-4 minutes
@echo You should see a line like this:
@echo.
@echo [  1%%%] generating bugreport-...
@echo.
@echo If it doesn't appear within a minute, close the program and run it again
rem EndEngTextBlock
@echo ---------------------------------------------------------------
rem @echo.
@%myfiles%\adb bugreport %cd% 2>nul
if %errorlevel% == -1 goto _errorbugrepdl
@echo.
@echo ---------------------------------------------------------------
rem StartRusTextBlock
rem @echo  = Багрепорт создан, выдергиваем ссылку....
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Bugreport created, extracting the link....
rem EndEngTextBlock
rem @echo.
@%myfiles%\7z.exe x %cd%\bugreport*.zip -o"%cd%\bugreport" 1>NUL 2>&1
@SetLocal EnableDelayedExpansion
Set bugrepdir=.\bugreport\FS\data\misc\update_engine_log\
For /F "tokens=*" %%i In ('@Dir /S /A:-D /B "%bugrepdir%"') Do (
set fullname=%%i

	for /f "tokens=*" %%a in ('findstr /i /c:"initial url: " !fullname!') do (
	set urlstr=%%a
		for /f "tokens=1,2,3 delims= " %%b in ("!urlstr!") do set urllink=%%d&@echo !urllink!>>links.txt
	)
	)

rem Вытаскиваем из Dumpsys
for /f "tokens=1,2 delims= " %%a in ('%myfiles%\adb.exe shell dumpsys DumpsysProxy OculusUpdater ^| findstr /i /c:"download_uri"') do set urllinkdump=%%b&@echo !urllinkdump!>>links.txt

@if not exist links.txt goto _EmptyLinkTxt
@findstr "^" "links.txt">nul&& @echo.|| goto _EmptyLinkTxt
@ren link.txt link.old.txt 1>nul 2>nul

rem Удаление дублей
@for /f "tokens=*" %%a in (links.txt) do (
@findstr /l /c:"%%a" link.txt 1>nul 2>nul || @echo %%a>>link.txt
)

if [%choice%]==[cc] goto _SaveLinkList

@echo ---------------------------------------------------------------
rem StartRusTextBlock
rem @echo  = Извлечение завершено, начинаем скачивание прошивки....
rem @echo    Ссылок может быть не одна, в этом случае скачиваться они будут по-очереди.
rem @echo    Это может занять значительное время.
rem @echo.
rem @echo  = Файлы прошивок могут дублироваться, так как скачиваются из разных источников.
rem @echo    Просто удалите второй файл с таким же названием - версией среды выполнения.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Extraction completed, starting firmware download....
@echo    There may be more than one link, in which case they will be downloaded sequentially.
@echo    This may take a considerable amount of time.
@echo.
@echo  = Firmware files may be duplicated as they are downloaded from different sources.
@echo    Simply delete the second file with the same name - runtime version.
rem EndEngTextBlock
@echo.
@for /f "tokens=*" %%a in (link.txt) do (
set "dlink=%%a"
@echo ------
rem StartRusTextBlock
rem @echo = Скачивание прошивки...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Firmware download in progress...
rem EndEngTextBlock
call :_DownloadFirmware
)
@del metadata 2>nul 1>nul
@del links.txt 2>nul 1>nul
@del bugreport*.zip /q
@rd %cd%\bugreport /Q /S
@echo -----
rem StartRusTextBlock
rem @echo = Готово. 
rem @echo.
rem @echo   Если скачивания не было, загляните в файл link.txt,
rem @echo   созданный только что рядом с программой и вручную 
rem @echo   скопируйте ссылку на прошивку (если она там есть) в браузер.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Done.
@echo.
@echo   If the download did not occur, check the link.txt file,
@echo   created just now next to the program, and manually
@echo   copy the firmware link (if available) into your browser.
rem EndEngTextBlock
goto _Sendlink

:_hsfwversionextract
For /F %%a In ('@%MYFILES%\adb shell getprop ro.build.version.incremental') Do set hsenvironment=%%a
@FOR /F "tokens=1,2 delims==" %%a IN ('adb shell dumpsys package com.oculus.systemux ^| findstr /i /c:"VersionName"') DO (
@FOR /F "tokens=1,2,3,4 delims=." %%a IN ("%%b") DO set "fwnewhsversion=%%a.%%b.%%c.%%d"
)
set "hsversion=!fwnewhsversion!"
exit /b

:_SaveLinkList
rem StartRusTextBlock
rem @echo ---------------------------------------------------------------
rem @echo  = Готово, список ссылок сохранен в файл link.txt
rem @echo.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Done, list of links created 
@echo.
rem EndEngTextBlock
@del metadata 2>nul 1>nul
@del links.txt 2>nul 1>nul
@del bugreport*.zip /q
@rd %cd%\bugreport /Q /S

:_Sendlink
@echo ---------------------------------------------------------------
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Хотите ли вы выгрузить ссылку на прошивку автору программы?
rem @echo  Это поможет создать список серверов с целью обхода их блокировки.
rem @echo.
rem @echo  Также это даст другим пользователям возможность скачать и установить
rem @echo  новую прошивку, если она по каким-то причинам у них недоступна.
rem @echo.
rem @echo   Если да - просто нажмите Enter. Если нет - 0 и Enter.
rem EndRusTextBlock
rem StartEngTextBlock
@echo Do you want to upload the firmware link to the program author?
@echo This will help create a list of servers to bypass any blocking.
@echo.
@echo It will also allow other users to download and install
@echo the new firmware if it is not available to them for any reason.
@echo.
@echo   If yes - simply press Enter. If no - 0 and Enter.
rem EndEngTextBlock
@echo.
@echo.
@set "choice="
@set "choice=s"
@Set /p choice=">>> "
@echo.
if not defined choice goto _Sendlink
if /i "%choice%"=="s" (GOTO _Savelink)
if /i "%choice%"=="0" (GOTO _fwmenuskip)
cls
goto _Sendlink

:_SaveLink
@echo ------
rem StartRusTextBlock
rem @echo  Спасибо за помощь^^^!
rem EndRusTextBlock
rem StartEngTextBlock
@echo Thank you for your help!
rem EndEngTextBlock
set ftpfile=alllinks.txt
call :_GetFTP
@for /f "tokens=*" %%a in (link.txt) do (
set "savelinks=%%a"
@echo !savelinks! >>alllinks.txt
)
set ftpfile=alllinks.txt
call :_PutFTP
@del alllinks.txt /q /f 1>nul 2>nul
@echo.
rem StartRusTextBlock
rem @echo Ссылка выгружена.
rem EndRusTextBlock
rem StartEngTextBlock
@echo Link uploaded.
rem EndEngTextBlock
@echo ------
@echo.
goto _returnmenu

:_EmptyLinkTxt
@del rezult.txt 2>nul 1>nul
@del rezult2.txt 2>nul 1>nul
@rd %cd%\bugreport /Q /S
@del bugreport*.zip /q
@echo -----
@echo.
rem StartRusTextBlock
rem @echo  К сожалению, ссылку на прошивку вытащить не удалось,
rem @echo  в багрепорте ее нет. Быть может, получится в другой раз.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Unfortunately, the firmware link couldn't be extracted from the bug report. 
@echo  Perhaps next time it will be possible.
rem EndEngTextBlock
@echo ---------------------------------------------------------------
@echo.
@echo.
goto _returnmenu

:_DownloadFirmware
@call :_SetOnlyTime
set postbuild=
@curl -LJko fwtempfile_%ti%.zip "%dlink%" -#
%myfiles%\7z.exe e fwtempfile_%ti%.zip metadata -r -y 1>nul 2>nul
@FOR /F "tokens=2 delims==" %%a IN ('@FINDstr /c:"post-build-incremental" metadata') DO @set postbuild=%%a
if [%postbuild%]==[] del fwtempfile_%ti%.zip /q 1>nul 2>nul
@ren fwtempfile_%ti%.zip %postbuild%_%ti%.zip 1>nul 2>nul
@del metadata /q 1>nul 2>nul
@echo.
rem StartRusTextBlock
rem @echo   = Файл прошивки сохранен с именем %postbuild%_%ti%.zip
rem EndRusTextBlock
rem StartEngTextBlock
@echo The firmware file has been saved with the name %postbuild%_%ti%.zip
rem EndEngTextBlock
@echo.
@timeout 1 1>nul
exit /b

:_SetOnlyTime
set ti=%time:~0,2%-%time:~3,2%-%time:~6,2%
set ti=%ti: =0%
exit /b


:_errorbugrepdl
@echo ---------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo Не удалось создать архив багрепорта, 
rem @echo попробуйте еще раз через несколько минут.
rem EndRusTextBlock
rem StartEngTextBlock
@echo Failed to create the bug report archive, please try again in a few minutes.
rem EndEngTextBlock
@echo.
@echo.
goto _returnmenu

:_NoInternetMessage
@echo.
@echo  ------------------------------------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|   +++ Подключение к Интернет отсутствует. Информация о результатах проверки недоступна +++   ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   +++ Internet connection is not available. Results of the check are unavailable +++   ^|
rem EndEngTextBlock
@echo  ------------------------------------------------------------------------------------------------
@echo.
goto _returnmenu


:_NoHeadsetMessage
@echo.
@echo  -------------------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|   +++ Шлем не подключен. Информация о результатах проверки недоступна +++   ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   +++ The headset is not connected. Information about the test results is unavailable +++   ^|
rem EndEngTextBlock
@echo  -------------------------------------------------------------------------------
@echo.
goto _returnmenu


:_blmessage
@echo.
@echo  ---------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^|   +++ Шлем в режиме Bootloader. Информация о нем недоступна +++   ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   +++ The headset is in Bootloader mode. Information about it is unavailable +++   ^|
rem EndEngTextBlock
@echo  ---------------------------------------------------------------------
@echo.
goto _returnmenu

:_SetFirmwareFileName
@call :_DeleteWrongSymbols
@set FirmwareFileName=
@for %%a in (*.zip) do @set FirmwareFileName=%%~nxa
@ren "%FirmwareFileName%" update.zip 1>nul 2>nul
@set FirmwareFileName=update.zip
exit /b

:_DeleteWrongSymbols
@for %%a in (*.zip) do (
set name=%%~nxa
rem call set "name=%%name:(=%%"
rem  call set "name=%%name:)=%%"
 call set "name=%%name:!=%%"
rem  call set "name=%%name:+=%%"
rem  call set "name=%%name: =%%"
 cmd/v/c ren "%%a" "!name:%%=!"
)
rem set FirmwareFileName=%name%
exit/b

:_hatqut
::@cls
@echo ==================================================================================================
@echo        Quest Update Tool - created by Varset - v.1.4 - 13.08.23
@echo ==================================================================================================
@exit /b

::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

:_bugreportextr
call :_cdc
@echo Off
@echo ===============================================================
rem StartRusTextBlock
rem @echo Создаем архив багрепорта, это займет 3-4 минуты
rem @echo Должна появиться такая строчка:
rem @echo.
rem @echo [  1%%%] generating bugreport-...
rem @echo.
rem @echo Если в течении минуты не появилась, закройте программу и запустите ее снова
rem EndRusTextBlock
rem StartEngTextBlock
@echo Creating a bug report archive, this will take 3-4 minutes
@echo You should see the following line:
@echo.
@echo [  1%%%] generating bugreport-...
@echo.
@echo If it doesn't appear within a minute, close the program and run it again
rem EndEngTextBlock
@echo ---------------------------------------------------------------
@echo.
@%myfiles%\adb bugreport %cd%
@If %ERRORLEVEL% EQU 1 goto _reporterr
@echo ===============================================================
@echo.
rem StartRusTextBlock
rem @echo Архив с багрепортом извлечен и помещен в текущий каталог
rem @echo В браузере откроется вкладка, загрузите в нее архив.
rem EndRusTextBlock
rem StartEngTextBlock
@echo The bug report archive has been extracted and placed in the current directory
@echo A browser tab will open, upload the archive there.
rem EndEngTextBlock
@echo ---------------------------------------------------------------
@ping localhost -t 3 1>nul 2>nul
rem @start " " "https://bathist.online/"
@start " " "https://bathist.ef.lc/"
@echo.
@echo.
goto _returnmenu

:_reporterr
@cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo +++ Не удалось извлечь багрепорт. Попробуйте зайти чуть позже +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo +++ Failed to extract the bug report. Try again later +++
rem EndEngTextBlock
@echo.
@echo.
call :_hatmenu
@echo.
@echo.
@echo.
goto _returnmenu


:_datetimecorrmenu
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Просмотр времени и таймзоны шлема
rem @echo    B.  Коррекция времени и таймзоны
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A. View headset time and timezone
@echo    B. Time and timezone correction
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _todmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _datetime)
if /i "%choice%"=="b" (GOTO _datetimecorr)

:_datetimecorr
call :_cdc
@echo ^<job^>^<script language^="JavaScript"^> >>etime.wsf
@echo WScript.@echo^(new Date^().getTime^())^; >>etime.wsf
@echo ^<^/script^>^<^/job^> >>etime.wsf
@for /f "tokens=* usebackq" %%a in (`@start /b cscript //nologo "etime.wsf"`) do (set epochtimestamp=%%a)
@%myfiles%\adb shell service call alarm 2 i64 %epochtimestamp% 1>nul 2>nul
@del etime.wsf /q /f 1>nul 2>nul
@echo ----------------------------------------------
rem StartRusTextBlock
rem @echo = Проверяем время после коррекции...
rem EndRusTextBlock
rem StartEngTextBlock
@echo = Checking the time after correction...
rem EndEngTextBlock
@echo.
call :_checktime
@echo.
@echo ----------------------------------------------
rem StartRusTextBlock
rem @echo = Время скорректировано
rem EndRusTextBlock
rem StartEngTextBlock
@echo = Time corrected
rem EndEngTextBlock
@echo.  
@echo --- 
rem StartRusTextBlock
rem @echo Текущие значения:
rem EndRusTextBlock
rem StartEngTextBlock
@echo Current values:
rem EndEngTextBlock
@echo. 
@for /f "tokens=* usebackq" %%a in (`@%MYFILES%\adb shell date +"%%Y.%%m.%%d-%%H:%%M:%%S"`) do (set ths=%%a)
rem StartRusTextBlock
rem @echo  Дата и время на шлеме	: %ths%
rem EndRusTextBlock
rem StartEngTextBlock
@echo Date and time on the headset: %ths%
rem EndEngTextBlock
@call :_SETTIME
rem StartRusTextBlock
rem @echo  Дата и время на ПК	: %dppt%
rem EndRusTextBlock
rem StartEngTextBlock
@echo Date and time on the PC: %dppt%
rem EndEngTextBlock
@echo ----------------------------------------------
@echo. 
@echo. 
@echo. 
@echo. 
goto _returnmenu

:_checktime
call :_cdc
@for /f "tokens=* usebackq" %%a in (`@%MYFILES%\adb shell date +"%%Y.%%m.%%d-%%H:%%M:%%S"`) do (set ths=%%a)
@call :_SETTIME
@echo ----------------------------------------------
if %ths:~0,-3%==%dppt:~0,-3% (
@echo.
exit /b
) else (
@echo.
@echo  ===============================================================
rem StartRusTextBlock
rem @echo  ^|     +++      Требуется корректировка таймзоны      +++      ^|
rem @echo        Нажмите что-нибудь для перехода в меню корректировки
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|     +++      Timezone correction required      +++      ^|
@echo        Press any key to proceed to the correction menu
rem EndEngTextBlock
)
@echo  ===============================================================
@echo.
@pause >nul
goto :_timezonecorr

:_datetime
call :_cdc
@echo off
@cls
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    C.  Скорректировать дату и время
rem @echo    T.  Скорректировать таймзону
rem EndRusTextBlock
rem StartEngTextBlock
@echo    C.  Correct date and time
@echo    T.  Correct timezone
rem EndEngTextBlock
@echo.
@echo ----------------------------------------------
call :_cdc
@for /f "tokens=* usebackq" %%a in (`@%MYFILES%\adb shell getprop persist.sys.timezone`) do (set tzhs=%%a)
rem StartRusTextBlock
rem @echo  Таймзона на шлеме	: %tzhs%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Timezone on the headset	: %tzhs%
rem EndEngTextBlock
@for /f "tokens=3 delims=()" %%a in ('wmic timezone get caption /value') do set tzpc=%%a
rem StartRusTextBlock
rem @echo  Таймзона на ПК		:%tzpc%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Timezone on the PC		:%tzpc%
rem EndEngTextBlock
@echo ---
@for /f "tokens=* usebackq" %%a in (`@%MYFILES%\adb shell date +"%%Y.%%m.%%d-%%H:%%M:%%S"`) do (set ths=%%a)
rem StartRusTextBlock
rem @echo  Дата и время на шлеме	: %ths%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Date and time on the headset	: %ths%
rem EndEngTextBlock
@call :_SETTIME
rem StartRusTextBlock
rem @echo  Дата и время на ПК	: %dppt%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Date and time on the PC	: %dppt%
rem EndEngTextBlock
@echo ----------------------------------------------
if %ths:~0,-3%==%dppt:~0,-3% (
@echo.
@echo.
@echo  ===============================================================
rem StartRusTextBlock
rem @echo  ^|  +++   Время правильное, корректировка не требуется   +++   ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|    +++    Time is correct, no adjustment required    +++    ^|
rem EndEngTextBlock
) else (
@echo.
@echo  ===============================================================
rem StartRusTextBlock
rem @echo  ^|  +++    Время различается, требуется корректировка    +++   ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|  +++   Time differs, adjustment is required   +++   ^|
rem EndEngTextBlock
)
@echo  ===============================================================
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Значительное отличие времени, даты и таймзоны от актуальных значений
rem @echo  может вызвать проблемы с подключением к сети Wi-Fi
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Significant difference in time, date, and timezone from actual values
@echo  may cause issues with Wi-Fi network connectivity
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _datetime
if "%choice%"=="0" (exit)
if /i "%choice%"=="c" (GOTO _datetimecorr)
if /i "%choice%"=="t" (GOTO _timezonecorr)
if /i "%choice%"=="m" (GOTO _beginn)
cls
goto _datetime

:_timezonecorr
@echo off
rem @cls
call :_hat
@echo.
rem StartRusTextBlock
rem @echo                ===  Корректировка таймзоны ===
rem call :_hatmenu
rem @echo.
rem @echo    L.  Открыть в барузере список таймзон
rem @echo.   R.  Установить таймзону вручную
rem @echo.
rem @echo.   1.   UTC +01.00	Europe/Amsterdam
rem @echo.   2.   UTC +02.00	Europe/Sofia
rem @echo.   3.   UTC +03.00	Europe/Moscow
rem @echo.   4.   UTC +04.00	Asia/Baku
rem @echo.   5.   UTC +05.00	Asia/Ashkhabad
rem @echo.   6.   UTC +06.00	Asia/Astana
rem @echo.
rem @echo   Если в этом списоке нет вашей таймзоны, введите L и нажмите Enter (см. меню)
rem @echo   Откроется браузер со списком таймзон, в котором выберите и скопируйте вашу.
rem @echo   Затем введите в программе R, нажмите Enter и вставьте выбранную таймзону. 
rem @echo.
rem @echo.
rem @echo Пример: 
rem @echo.
rem @echo    Вы живете во Владивостоке, ваша таймзона +10.
rem @echo.   В браузере, в списке таймзон находите Asia/Vladivostok,
rem @echo.   копируете именно так, жмете R, подтверждаете Enter,
rem @echo    и вставляете: Asia/Vladivostok
rem @echo    Затем снова подтверждаете Enter
rem @echo.
rem @echo.
rem @set "choice="
rem @Set /p choice="Для установки таймзоны введите число от 1 до 6 и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@echo                ===  Timezone Adjustment ===
call :_hatmenu
@echo.
@echo    L.  Open timezone list in browser
@echo.   R.  Set timezone manually
@echo.
@echo.   1.   UTC +01.00	Europe/Amsterdam
@echo.   2.   UTC +02.00	Europe/Sofia
@echo.   3.   UTC +03.00	Europe/Moscow
@echo.   4.   UTC +04.00	Asia/Baku
@echo.   5.   UTC +05.00	Asia/Ashkhabad
@echo.   6.   UTC +06.00	Asia/Astana
@echo.
@echo   If your timezone is not in this list, enter L and press Enter (see menu)
@echo   A browser will open with a list of timezones, where you can select and copy yours.
@echo   Then enter R in the program, press Enter, and paste the selected timezone.
@echo.
@echo.
@echo Example: 
@echo.
@echo    You live in Vladivostok, your timezone is +10.
@echo.   In the browser, in the timezone list find Asia/Vladivostok,
@echo.   copy exactly that, press R, confirm with Enter,
@echo    and paste: Asia/Vladivostok
@echo    Then confirm again with Enter
@echo.
@echo.
@set "choice="
@Set /p choice="To set timezone, enter a number from 1 to 6 and press Enter: "
rem EndEngTextBlock
@echo.
if not defined choice goto _timezonecorr
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="1" (set timezonereg=Europe/Amsterdam && goto _setonlytimezone)
if /i "%choice%"=="2" (set timezonereg=Europe/Sofia && set utc=2&& goto _setonlytimezone)
if /i "%choice%"=="3" (set timezonereg=Europe/Moscow && set utc=3&& goto _setonlytimezone)
if /i "%choice%"=="4" (set timezonereg=Asia/Baku && set utc=4&& goto _setonlytimezone)
if /i "%choice%"=="5" (set timezonereg=Asia/Ashkhabad && set utc=5&& goto _setonlytimezone)
if /i "%choice%"=="6" (set timezonereg=Asia/Astana && set utc=6&& goto _setonlytimezone)
if /i "%choice%"=="l" (start " " "https://en.wikipedia.org/wiki/List_of_tz_database_time_zones")
if /i "%choice%"=="r" (GOTO _handesetonlytimezone)
cls
goto _datetime

:_setonlytimezone
@%myfiles%\adb shell service call alarm 3 s16 "%timezonereg%"
@echo.
rem StartRusTextBlock
rem @echo  Установлена таймзона %timezonereg% (UTC +0%utc%.00)
rem @echo.
rem @echo.
rem @echo  =======================================
rem @echo         Таймзона установлена 
rem @echo     Нажмите что-нибудь для проверки
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Timezone set to %timezonereg% (UTC +0%utc%.00)
@echo.
@echo.
@echo  =======================================
@echo   Timezone set
@echo   Press any key to check
rem EndEngTextBlock
@echo  =======================================
@pause >nul
goto _datetime
rem goto _datetimecorrmenu

:_handesetonlytimezone
@echo ----------------
rem StartRusTextBlock
rem @echo   0. Выход
rem @echo   M. Меню таймзоны
rem EndRusTextBlock
rem StartEngTextBlock
@echo   0. Exit
@echo   M. Timezone Menu
rem EndEngTextBlock
@echo ----------------
@echo.
@echo.
@set "handtimezone="
rem StartRusTextBlock
rem @Set /p handtimezone="Вставьте сюда скопированную таймзону и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p handtimezone="Paste the copied timezone here and press Enter: "
rem EndEngTextBlock
if "%handtimezone%"=="0" (exit)
if /i "%handtimezone%"=="m" (GOTO _timezonecorr)
@%myfiles%\adb shell service call alarm 3 s16 "%handtimezone%"
@echo.
rem StartRusTextBlock
rem @echo  Установлена таймзона %handtimezone%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Timezone set to %handtimezone%
rem EndEngTextBlock
@echo.
@echo.
goto _prevmenu
goto _datetimecorrmenu


:_todmenu
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Просмотр прогресса скачивания				[EXP]
rem @echo    B.  Запись DNS серверов в шлем
rem @echo    C.  Автоматическй подбор DNS для скачивания обновлений	[EXP]
rem @echo    D.  Сброс DNS настроек шлема в дефолт
rem @echo    E.  Установить DNS интернет-заглушку				[EXP]
rem @echo    F.  Проверка доступности обновлений на ПК			[EXP]
rem @echo    G.  Проверка доступности обновлений на шлеме			[EXP]
rem @echo.
rem @echo.
rem @echo    ВАЖНО:
rem @echo.
rem @echo       Этот раздел предназначен для упрощения первичной настройки шлема.
rem @echo       С помощью Автоподбора DNS серверов программа поможет обойти
rem @echo       блокировки и скачать обновления при начальной настройке.
rem @echo       Для этого она будет автоматически перебирать список DNS серверов
rem @echo       и проверять доступность серверов обновления.
rem @echo       Если закачка не начнется, программа сменит DNS сервер и повторит проверку.
rem @echo       Как только обнаружится начало успешного обновления, программа остановит
rem @echo       перебор серверов и отобразит текущий статус прогресса. Периодически статус
rem @echo       обновляется, с заданным интервалом. Программа будет работать до тех пор,
rem @echo       пока не найдет подходящий DNS сервер из 80 доступных в списке и не скачает обновления.
rem @echo.
rem @echo       Программу также можно использовать для скачивания прошивок, 
rem @echo       если серверы недоступны обычным способом.
rem @echo.
rem @echo       Опция Просмотр прогресса скачивания отобразит статус прогресса в процентах.
rem @echo.
rem @echo       После запуска из пунктов A или C будет предложено ввести интервал между проверками,
rem @echo       в секундах. Можно нажать Enter для интервала по умолчанию 15 секунд
rem @echo       или ввести свое число и подтвердить кнопкой Enter. 
rem @echo.      Для возврата в это меню введите "0" без кавычек.  
rem @echo.
rem @echo       Желательно устанавливать интервал не меньше 10 секунд.
rem @echo.
rem @echo       Если прогресс отсутствует, рекомендуется увеличить интервал проверок вплоть до 30 секунд.
rem @echo       В этом случае на одну проверку будет уходить чуть больше двух минут.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  View download progress             [EXP]
@echo    B.  Record DNS servers to headset
@echo    C.  Automatic selection of DNS for downloading updates    [EXP]
@echo    D.  Reset headset DNS settings to default
@echo    E.  Set up DNS Internet blocking        [EXP]
@echo    F.  Checking for updates availability on PC           [EXP]
@echo    G.  Checking for updates availability on helmet       [EXP]
@echo.
@echo.
@echo    IMPORTANT:
@echo.
@echo       This section is designed to simplify the initial setup of the headset.
@echo       With the Auto DNS Selection, the program will help bypass restrictions
@echo       and download updates during the initial setup.
@echo       To do this, it will automatically cycle through a list of DNS servers
@echo       and check the availability of update servers.
@echo       If the download does not start, the program will change the DNS server and retry the check.
@echo       Once a successful update start is detected, the program will stop
@echo       cycling through servers and display the current progress status. The status
@echo       is periodically updated at the set interval. The program will continue to work
@echo       until it finds a suitable DNS server out of the 81 available in the list and downloads updates.
@echo.
@echo       The program can also be used to download firmware
@echo       if the servers are not available in the usual way.
@echo.
@echo       The View download progress option will display the progress status in percentages.
@echo.
@echo       After starting from options A or C, you will be prompted to enter the interval between checks,
@echo       in seconds. You can press Enter for the default 15-second interval
@echo       or enter your own number and confirm with Enter.
@echo.      To return to this menu, enter "0" without quotes.  
@echo.
@echo       It is advisable to set the interval to no less than 10 seconds.
@echo.
@echo       If progress is not displayed, it is recommended to increase the check interval up to 30 seconds.
@echo       In this case, one check will take just over two minutes
rem EndEngTextBlock
@echo.      
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _todmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _UpdateProgressSearchBint)
if /i "%choice%"=="b" (GOTO _dnschangeonly)
if /i "%choice%"=="c" (call :_dnschangeint && goto _dnslistfinished)
if /i "%choice%"=="d" (GOTO _setdefault)
if /i "%choice%"=="e" (GOTO _dnszaglushka)
if /i "%choice%"=="f" (goto :_CheckUpdatesAccessPC)
if /i "%choice%"=="g" (goto :_CheckUpdatesAccessHS)
cls
goto _todmenu

:_UpdateProgressSearchBint
call :_dnsintervalswitch

:_UpdateProgressSearchB
@echo off
set dnschangelist=0
call :_DelSearchUpdateFiles
@setlocal enableextensions enabledelayedexpansion

:_UpdateProgressSearchMain
set updatesearchstring=Current progress
rem StartRusTextBlock
rem set modul=первый
rem EndRusTextBlock
rem StartEngTextBlock
set modul=first
rem EndEngTextBlock
set tkn=10
call :_nuxsearch
call :_UpdateProgressSearch

set updatesearchstring=OTA applying update
rem StartRusTextBlock
rem set modul=второй
rem EndRusTextBlock
rem StartEngTextBlock
set modul=second
rem EndEngTextBlock
set tkn=11
call :_nuxsearch
call :_UpdateProgressSearch

set updatesearchstring=OTA progress updated
rem StartRusTextBlock
rem set modul=третий
rem EndRusTextBlock
rem StartEngTextBlock
set modul=third
rem EndEngTextBlock
set tkn=12
call :_nuxsearch
call :_UpdateProgressSearch
rem StartRusTextBlock
rem if %dnschangelist%==1 @echo. && @echo    ...меняем DNS сервер... && timeout 2 >nul && exit /b
rem EndRusTextBlock
rem StartEngTextBlock
if %dnschangelist%==1 @echo. && @echo    ...changing DNS server... && timeout 2 >nul && exit /b
rem EndEngTextBlock
call :_DelSearchUpdateFiles
if %dltrsize% NEQ 0 goto _UpdateProgressSearchB
goto _noprss

:_UpdateProgressSearch
set timewait=%dnsint%
call :_cdc
rem StartRusTextBlock
@echo  ---------------------------------------------------------------
rem @echo  =  Запущен %modul% модуль поиска "%updatesearchstring%"
rem @echo  ---
rem @echo  ... обновляем данные.... Ждите %timewait% секунд
rem @echo  ===============================================================
rem @echo          [ для прерывания нажмите любую кнопку ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  =  Running %modul% module search "%updatesearchstring%"
@echo  ---
@echo  ...updating data.... Please wait %timewait% seconds
@echo  ===============================================================
@echo          [ Press any key to interrupt ]
rem EndEngTextBlock
@echo.
call :_DelSearchUpdateFiles
rem StartRusTextBlock
rem timeout %timewait% | >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Процедура прервана +++ ^ & @echo. ^ & @goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
timeout %timewait% | >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Procedure Interrupted +++ ^ & @echo. ^ & @goto _returnmenu
rem EndEngTextBlock
set dlfile=progress.txt
set dllast=pr.txt
rem set lcfile=logcatfile.txt
%MYFILES%\adb logcat -t 10000| FINDstr /c:"%updatesearchstring%" > %dlfile%
%MYFILES%\adb logcat -t 10000| FINDstr /c:"%trackerstatus%" > %trfile%
@(for /f "delims=" %%i in ('type %trfile%') do @set tr_last_string=%%i)
@(for /f "delims=" %%i in ('type %dlfile%') do @set dl_last_string=%%i)
@echo.%dl_last_string% >%dllast%
@echo.%tr_last_string% >%trlast%
FOR /F "tokens=%tkn% delims= " %%s IN (%dllast%) DO (set gprgrs=%%s)
FOR /F "tokens=%tknnux% delims= " %%a IN (%trlast%) DO (set trrgrs=%%a & set trprgrs2=%%b)
@for %%a in ("%dlfile%") do if %%~za==0 (set /a dlsize=0) else (set /a dlsize=1)
@for %%a in ("%trfile%") do if %%~za==0 (set /a trsize=0) else (set /a trsize=1)
set /a dltrsize=%trsize%+%dlsize%
if %dltrsize%==0 exit /b
cls
call :_hat
@echo.
rem StartRusTextBlock
@echo  ---------------------------------------------------------------------------------------
rem @echo  = Отображен %modul% модуль поиска прогресса:	[ %updatesearchstring% ]
rem @echo.
rem @echo  =======================================================================================
rem @echo   Прогресс в процентах	: %gprgrs%%%%
rem @echo   Выполняется задача	: %trrgrs%%trprgrs2%
rem @echo   Поисковый модуль	: %updatesearchstring%
rem @echo   Текущий статус	: %otastatus%
rem @echo  =======================================================================================
rem @echo.
rem @echo    Вначала может показаться, что прогресс не меняется, но это не так.
rem @echo    Наберитесь терпения, подождите 10-15 минут.
rem @echo.
rem @echo    Изредка поглядывайте в шлем, иногда прогресс может показывать менее 100%%%,
rem @echo    но в шлеме кнопка Скачивание уже  поменялась на Перезагрузить и применить.
rem @echo.
rem @echo  ---------------------------------------------------------------------------------------
rem @echo.
rem @echo.
rem @echo        через %timewait% секунд статус прогресса автоматически обновится.
rem @echo                 [ для прерывания нажмите любую кнопку ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Displaying %modul% search progress module: [ %updatesearchstring% ]
@echo.
@echo  =======================================================================================
@echo   Progress in percentage   : %gprgrs%%%%
@echo   Task in progress         : %trrgrs%%trprgrs2%
rem @echo   Search module           : %updatesearchstring%
rem @echo   Current status          : %otastatus%
@echo  =======================================================================================
@echo.
@echo    At first it may seem like the progress is not changing, but it is not so.
@echo    Be patient, wait for 10-15 minutes.
@echo.
@echo    Occasionally glance at the headset, sometimes the progress may show less than 100%%,
@echo    but in the headset the Download button has already changed to Restart and apply.
@echo.
@echo  ---------------------------------------------------------------------------------------
@echo.
@echo        The progress status will automatically refresh in %timewait% seconds.
@echo                 [ Press any key to interrupt ]
rem EndEngTextBlock
rem if %otastatus%==Completed goto _updatesComplete
@echo.
@echo. 
call :_DelSearchUpdateFiles
set dnschangelist=0
rem StartRusTextBlock
rem timeout %timewait% | >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Процедура прервана +++ ^ & @echo. ^ & @goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
timeout %timewait% | >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Procedure Interrupted +++ ^ & @echo. ^ & @goto _returnmenu
rem EndEngTextBlock

rem if dnslistchange=1 
exit /b
rem goto _UpdateProgressSearchMain
rem :_updatesComplete
rem @echo.
rem @echo      ==============================================================
rem @echo      ^|  +++     Установка обновлений полностью завершена     +++  ^|
rem @echo      ^|        Можно надеть шлем и продолжить его настройку        ^|
rem @echo      ==============================================================
rem exit /b

:_noprss
cls
call :_hat
@echo.
rem StartRusTextBlock
@echo ================================================================
rem @echo  В настоящий момент ничего не скачивается и не устанавливается.
rem @echo       Можете попробовать зайти чуть позже или подождать.
rem @echo ================================================================
rem @echo.
rem @echo        через %timewait% секунд статус автоматически обновится.
rem @echo          [ для прерывания нажмите любую кнопку ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Currently, nothing is being downloaded or installed.
@echo       You can try again later or wait.
@echo ================================================================
@echo.
@echo        The status will automatically refresh in %timewait% seconds.
@echo          [ Press any key to interrupt ]
rem EndEngTextBlock
@echo.
call :_DelSearchUpdateFiles
rem StartRusTextBlock
rem timeout %timewait% | >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Процедура прервана +++ ^ & @echo. ^ & @goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
timeout %timewait% | >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Procedure Interrupted +++ ^ & @echo. ^ & @goto _returnmenu
rem EndEngTextBlock
goto _UpdateProgressSearchMain

:_DelSearchUpdateFiles
@del /Q %dlfile% 1>nul 2>nul
@del /Q %dllast% 1>nul 2>nul
@del /Q %trlast% 1>nul 2>nul
@del /Q %trfile% 1>nul 2>nul
@del /Q logcatfile.txt 1>nul 2>nul
exit /b

:_nuxsearch
set trackerstatus=NuxOtaHighPriAppsUpdateTracker
set trfile=nuxogress.txt
set trlast=nux.txt
set tknnux=7,*
exit /b

:_dnschangeonly
call :_cdc
@setlocal enableextensions enabledelayedexpansion
@if not exist %cd%\dnslist.txt call :_createfile
rem @if not exist %~dp0\dnslist.txt call :_createfile
@%MYFILES%\adb shell settings put global private_dns_mode hostname
@for /f "tokens=1,2 delims= " %%a in (%cd%\dnslist.txt) do (

rem @for /f "tokens=1,2 delims= " %%a in (%~dp0\dnslist.txt) do (
set dnsnumber=%%a
set dnsname=%%b
@%MYFILES%\adb shell settings put global private_dns_specifier !dnsname!
@echo  ---------------------------------------------------------------
rem StartRusTextBlock
rem @echo   = Включен DNS сервер:  [ !dnsname! ]
rem @echo  --- 
rem @echo    Осталось серверов:    [ !dnsnumber! ] 
rem @echo  ---------------------------------------------------------------
rem @echo.
rem @echo  = Wi-Fi шлема настраивается на новый сервер, секунду...
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = DNS server enabled:  [ !dnsname! ]
@echo  --- 
@echo    Remaining servers:    [ !dnsnumber! ]
@echo  ---------------------------------------------------------------
@echo.
@echo  = Wi-Fi headset is being configured to the new server, please wait...
rem EndEngTextBlock
@timeout 3 /NOBREAK >nul
@echo.
call :_dnscontinues
)
:_dnslistfinished
call :_DelSearchUpdateFiles
@echo =====================================================
@echo.
rem StartRusTextBlock
rem @echo        +++ Список DNS завершен +++ 
rem @echo.
rem @echo   К сожалению, придется использовать клиент VPN
rem @echo  Установить его можно из Главного меню, пункты J-E
rem EndRusTextBlock
rem StartEngTextBlock
@echo        +++ DNS list completed +++ 
@echo.
@echo   Unfortunately, you'll need to use a VPN client.
@echo   You can install it from the Main Menu, options J-E.
rem EndEngTextBlock
@echo.
@echo.
goto _returnmenu

:_dnscontinues
@echo  --- 
rem StartRusTextBlock
rem @echo  Для смены DNS нажмите Enter
rem @echo  Для завершения и выхода в меню введите 0 и нажмите Enter
rem EndRusTextBlock
rem StartEngTextBlock
@echo  To change DNS, press Enter
@echo  To finish and return to the menu, enter 0 and press Enter
rem EndEngTextBlock
@set "choice="
@Set "choice=1"
@Set /p choice=">> "
::@@echo.
if not defined choice goto _dnscontinues
if "%choice%"=="0" (GOTO _beginn)
if "%choice%"=="1" (exit /b)
goto _dnscontinues
exit /b

:_SETDEFAULT
call :_cdc
@%MYFILES%\adb shell settings put global private_dns_mode opportunistic
call :_erlvl
@%MYFILES%\adb shell settings put global private_dns_specifier null
@%MYFILES%\adb shell "svc wifi disable"
@timeout 3 >nul
@%MYFILES%\adb shell "svc wifi enable"
@echo ========================================
rem StartRusTextBlock
rem @echo  Дефолтные настройки установлены.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Default settings applied.
rem EndEngTextBlock
@echo.
goto _returnmenu

:_dnschangeint
call :_dnsintervalswitch
:_dnschange
rem call :_dnsintervalswitch
setlocal enableextensions enabledelayedexpansion
set timewait=%dnsint%
rem call :_cdc
@if not exist %~dp0\dnslist.txt call :_createfile
@%MYFILES%\adb shell settings put global private_dns_mode hostname
@for /f "tokens=1,2 delims= " %%a in (%~dp0\dnslist.txt) do (
set dnsnumber=%%a
set dnsname=%%b
@%MYFILES%\adb shell settings put global private_dns_specifier !dnsname!
rem @%MYFILES%\adb shell "svc wifi disable"
rem @timeout 3 >nul
rem @%MYFILES%\adb shell "svc wifi enable"
set dnschangelist=1
cls
call :_hat
@echo.
@echo.
rem StartRusTextBlock
rem @echo    === Автоматический подбор DNS серверов ===
rem @echo.
rem @echo  ===============================================================
rem @echo  = Включен DNS сервер	: [ !dnsname! ] 
rem @echo    Осталось проверить	: [ !dnsnumber! ]
rem @echo  ---
rem @echo  = Заполняем logcat после смены сервера: Ждите %timewait% секунд
rem @echo  ===============================================================
rem @echo     [ для прерывания нажмите любую кнопку ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo    === Automatic DNS Server Selection ===
@echo.
@echo  ===============================================================
@echo  = Active DNS Server	: [ !dnsname! ] 
@echo    Remaining to check	: [ !dnsnumber! ]
@echo  ---
@echo  = Filling logcat after server change: Please wait %timewait% seconds
@echo  ===============================================================
@echo     [ Press any key to interrupt ]
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_DelSearchUpdateFiles
rem StartRusTextBlock
rem timeout %timewait% | >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Процедура прервана +++ ^ & @echo. ^ & @goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
timeout %timewait% | >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Procedure Interrupted +++ ^ & @echo. ^ & @goto _returnmenu
rem EndEngTextBlock
call :_UpdateProgressSearchMain
rem call :_otbor0
)
set dnschangelist=0
rem @echo Finish
rem pause
exit /b

:_noprogress
rem @echo  Не скачивается, меняем DNS сервер
exit /b
rem goto _dnschange

:_dnszaglushka
call :_cdc
@%MYFILES%\adb shell settings put global private_dns_mode hostname
::@%MYFILES%\adb shell settings put global private_dns_specifier 0.0.0.0
@%MYFILES%\adb shell settings put global private_dns_specifier 127.0.0.1
@echo ===========================================================
@echo.
rem StartRusTextBlock
rem @echo   DNS заглушка установлена, интернет на шлеме отключен.
rem @echo   Для удаления заглушки сбросьте настройки DNS к дефолтным.
rem @echo   Это пункт D в меню, которое сейчас на экране чуть выше.
rem @echo.
rem @echo.
rem @echo ^>^>^> Нажмите что-нибудь для выхода в предыдущее меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo   DNS spoofing is enabled, internet access on the headset is disabled.
@echo   To remove the spoofing, reset DNS settings to default.
@echo   This is option D in the menu, which is currently displayed on the screen just above.
@echo.
@echo.
@echo ^>^>^> Press any key to return to the previous menu ^<^<^<
rem EndEngTextBlock
@pause >nul
goto _todmenu

:_CheckUpdatesAccessPC
echo off
call :_SetColours
@echo  ----------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  ^| %_fBYellow%= Проверяем доступность обновлений с ПК%_fReset%                            ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^| %_fBYellow%= Checking for updates from PC%_fReset%                            ^|
rem EndEngTextBlock
@echo  ^|                                                                    ^|
@setlocal enableextensions enabledelayedexpansion
call :_AppsNumbersListCheck

set linkUpdates=https://securecdn.oculus.com/binaries/download/?id=
set listtxt=appsnumbers.txt
for /f "tokens=*" %%a in (%listtxt%) do (
curl --fail --head --silent %linkUpdates%%%a 1>nul 2>nul
rem @%myfiles%\wget -q --no-check-certificate --spider %linkUpdates%%%a
if !errorlevel!==0 call :_CheckUpdatesAccessGoodPC && exit /b

)
@echo  ======================================================================
rem StartRusTextBlock
rem @echo  ^| %_fBRed%               +++      Обновления недоступны       +++%_fReset%            ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^| %_fBRed%               +++      Updates not available       +++         %_fReset%   ^|
rem EndEngTextBlock
@echo  ======================================================================
@echo.
@echo.
@del /q /f appsnumbers.txt 1>nul 2>nul
call :_prevmenu
goto _todmenu


:_CheckUpdatesAccessGoodPC
@echo  ======================================================================
rem StartRusTextBlock
rem @echo  ^|   %_fBGreen%          +++   Адрес обновлений доступен   +++%_fReset%                  ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   %_fBGreen%          +++   Update address is available   +++     %_fReset%             ^|
rem EndEngTextBlock
@echo  ----------------------------------------------------------------------
rem call :_CheckFirmwareAccessPC
@echo.
@echo.
@del /q /f appsnumbers.txt 1>nul 2>nul
call :_prevmenu
goto _todmenu


rem :_CheckFirmwareAccessPC
rem echo off
rem call :_CreateFWfileCheck
rem set linkUpdates=
rem set listtxt=fwlist.txt
rem for /f "tokens=*" %%a in (%listtxt%) do (
rem @%myfiles%\wget -q --no-check-certificate --spider %linkUpdates%%%a
rem if !errorlevel!==0 call :_CheckFirmwareAccessGoodPC && exit /b
rem )
rem @echo  ^|     %_fBRed%         +++   Адрес прошивок недоступен   +++   %_fReset%              ^|
rem @echo  ======================================================================
rem exit /b


rem :_CheckFirmwareAccessGoodPC
rem @echo  ^|   %_fBGreen%           +++   Адрес прошивок доступен   +++   %_fReset%                ^|
rem @echo  ======================================================================
rem exit /b

:_CheckUpdatesAccessHS
@echo off
call :_setcolours
@echo  ======================================================================
rem StartRusTextBlock
rem @echo  ^| %_fBYellow%= Проверяем статус Wi-Fi и IP адрес шлема, ожидание 5 секунд...%_fReset%    ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^| %_fBYellow%= Checking Wi-Fi status and helmet IP address, waiting 5 seconds...%_fReset%    ^|
rem EndEngTextBlock
@echo  ^|                                                                    ^|
@echo  ----------------------------------------------------------------------
call :_CheckIPaddress
rem call :_qdshat
@%myfiles%\adb shell "svc wifi disable"
timeout 2 >nul
@%myfiles%\adb shell "svc wifi enable"
@%myfiles%\adb shell svc power stayon wireless
timeout 5 /NOBREAK >nul
rem StartRusTextBlock
rem @echo  ^| %_fBYellow%= Проверяем доступность обновлений....%_fReset%                             ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^| %_fBYellow%= Checking for updates....%_fReset%                             ^|
rem EndEngTextBlock
@echo  ^|                                                                    ^|
timeout 2 /NOBREAK >nul
::-------------------------------
rem :_CheckUpdatesAccessHS
call :_AppsNumbersListCheck
set linkUpdates=https://securecdn.oculus.com/binaries/download/?id=
set toolname=wget
set shscriptname=wgt.sh
set listtxt=appsnumbers.txt
@%myfiles%\adb push %myfiles%\%toolname% /data/local/tmp/ 1>nul
@%myfiles%\adb shell chmod +x /data/local/tmp/%toolname%
@for /f "tokens=*" %%a in (%listtxt%) do (
@echo /data/local/tmp/wget -q --no-check-certificate --spider %linkUpdates%%%a >%myfiles%\%shscriptname%
@%myfiles%\adb shell rm /data/local/tmp/%shscriptname% 1>nul 2>nul
@%myfiles%\adb push %myfiles%\%shscriptname% /data/local/tmp/ 1>nul
@%myfiles%\adb shell dos2unix /data/local/tmp/%shscriptname%
@%myfiles%\adb shell sh /data/local/tmp/%shscriptname%
if %errorlevel%==0 call :_CheckUpdatesAccessGoodHS && exit /b
@echo  ======================================================================
rem StartRusTextBlock
rem @echo  ^| %_fBRed%               +++    Обновления недоступны     +++  %_fReset%                ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^| %_fBRed%               +++    Updates not available     +++  %_fReset%                ^|
rem EndEngTextBlock
@echo  ======================================================================
@echo.
@del /q %myfiles%\%shscriptname% 1>nul 2>nul
timeout 2 >nul
call :_prevmenu
goto _todmenu
)
call :_prevmenu
goto _todmenu


:_CheckUpdatesAccessGoodHS
@echo  ======================================================================
rem StartRusTextBlock
rem @echo  ^|   %_fBGreen%          +++   Адрес обновлений доступен   +++%_fReset%                  ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ^|   %_fBGreen%          +++   Update address is available   +++     %_fReset%             ^|
rem EndEngTextBlock
@echo  ----------------------------------------------------------------------
rem call :_CheckFirmwareAccessHS
echo.
echo   ------
call :_prevmenu
goto _todmenu

rem :_CheckFirmwareAccessHS
rem echo off
rem call :_CreateFWfileCheck
rem set linkUpdates=
rem set toolname=wget
rem set shscriptname=wgt.sh
rem set listtxt=fwlist.txt
rem @%myfiles%\adb push %myfiles%\%toolname% /data/local/tmp/ 1>nul
rem @%myfiles%\adb shell chmod +x /data/local/tmp/%toolname%
rem for /f "tokens=*" %%a in (%listtxt%) do (
rem @echo /data/local/tmp/wget -q --no-check-certificate --spider %linkUpdates%%%a >%myfiles%\%shscriptname%
rem @%myfiles%\adb shell rm /data/local/tmp/%shscriptname% 1>nul 2>nul
rem @%myfiles%\adb push %myfiles%\%shscriptname% /data/local/tmp/ 1>nul
rem @%myfiles%\adb shell dos2unix /data/local/tmp/%shscriptname%
rem @%myfiles%\adb shell sh /data/local/tmp/%shscriptname%
rem if !errorlevel!==0 call :_CheckFirmwareAccessGoodHS && exit /b
rem del /q %myfiles%\%shscriptname%
rem )
rem @echo  ^|     %_fBRed%         +++   Адрес прошивок недоступен   +++   %_fReset%              ^|
rem @echo  ======================================================================
rem timeout 1 >nul
rem exit /b


rem :_CheckFirmwareAccessGoodHS
rem @echo  ^|   %_fBGreen%           +++   Адрес прошивок доступен   +++   %_fReset%                ^|
rem @echo  ======================================================================
rem call :_prevmenu
rem exit /b

:_CheckIPaddress
@echo off
set /a countip=0
:_CheckIPaddressCounter
rem @setlocal enableextensions enabledelayedexpansion
set ip=
set ipfull=
FOR /F "tokens=2" %%G IN ('%myfiles%\adb shell ip addr show wlan0 ^|findstr /i /c:"inet "') DO set ipfull=%%G
FOR /F "tokens=1 delims=/" %%G in ("!ipfull!") DO set ip=%%G
@if [%ip%]==[] call :_WakeupHeadset
exit /b

:_WakeupHeadset
@echo.
rem cls
@echo =========================================================
rem StartRusTextBlock
rem @echo  %_fBRed% Шлем потерял айпишник, возможно, заснул...%_fReset%
rem @echo  -------------------------------------
rem @echo  %_fBYellow%= Пробуждаем...%_fReset%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  %_fBRed% Headset lost IP address, possibly asleep...%_fReset%
@echo  -------------------------------------
@echo  %_fBYellow%= Waking up...%_fReset%
rem EndEngTextBlock
@echo.
@%myfiles%\adb shell svc power stayon true
@%myfiles%\adb shell "svc wifi disable"
@echo  -------------------------------------
rem StartRusTextBlock
rem @echo  %_fBYellow%= Рестартуем Wi-Fi...%_fReset%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  %_fBYellow%= Restarting Wi-Fi...%_fReset%
rem EndEngTextBlock
@echo.
timeout 2 >nul
@%myfiles%\adb shell "svc wifi enable"
@echo  -------------------------------------
rem StartRusTextBlock
rem @echo  %_fBYellow%= Пауза 10 секунд для получения IP адреса...%_fReset%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  %_fBYellow%= Pausing for 10 seconds to obtain IP address...%_fReset%
rem EndEngTextBlock
@echo =========================================================
@echo.    
@echo.    
set /a countip=%countip%+1
@if %countip%==3 @%myfiles%\adb shell input keyevent 26 && echo ...и в третий раз забросил он в море невод... ^ & echo ...раз так, жмем кнопку питания для пробуждения.... && timeout 10 >nul && call :_CheckIPaddress
timeout 10 /nobreak >nul
call :_CheckIPaddressCounter
cls
exit /b

rem :_CreateFWfileCheck
rem @if not exist %cd%\fwlist.txt call :_CreateFWfile
rem exit /b

rem :_CreateFWfile
rem @echo https://scontent.fsof8-1.fna.fbcdn.net >> fwlist.txt
rem @echo https://scontent.fvar1-1.fna.fbcdn.net >> fwlist.txt
rem exit /b

:_AppsNumbersListCheck
@if not exist %cd%\appsnumbers.txt call :_AppsNumbersList
exit /b
:_AppsNumbersList
@echo 6921585431288199 >> appsnumbers.txt
@echo 6790841417672943 >> appsnumbers.txt
@echo 6550863581679128 >> appsnumbers.txt
@echo 6787200061401184 >> appsnumbers.txt
@echo 6552514178193322 >> appsnumbers.txt
@echo 6942335212498447 >> appsnumbers.txt
@echo 6885911831476388 >> appsnumbers.txt
@echo 6746494485418022 >> appsnumbers.txt
@echo 4506188769466810 >> appsnumbers.txt
@echo 6836488203056063 >> appsnumbers.txt
@echo 6867463123342685 >> appsnumbers.txt
@echo 23990483750543007 >> appsnumbers.txt
@echo 3772315006174186 >> appsnumbers.txt
@echo 7144235975589978 >> appsnumbers.txt
exit /b

:_createfile
@echo 81 dns.adguard.com >> dnslist.txt
@echo 80 dns.adguard-dns.com >> dnslist.txt
@echo 79 family.adguard-dns.com >> dnslist.txt
@echo 78 unfiltered.adguard-dns.com >> dnslist.txt
@echo 77 family-filter-dns.cleanbrowsing.org >> dnslist.txt
@echo 76 adult-filter-dns.cleanbrowsing.org >> dnslist.txt
@echo 75 security-filter-dns.cleanbrowsing.org >> dnslist.txt
@echo 74 dns.google >> dnslist.txt
@echo 73 1dot1dot1dot1.cloudflare-dns.com >> dnslist.txt
@echo 72 security.cloudflare-dns.com >> dnslist.txt
@echo 71 family.cloudflare-dns.com >> dnslist.txt
@echo 70 dns.quad9.net >> dnslist.txt
@echo 69 dns10.quad9.net >> dnslist.txt
@echo 68 dns11.quad9.net >> dnslist.txt
@echo 67 dns.switch.ch >> dnslist.txt
@echo 66 dns.futuredns.me >> dnslist.txt
@echo 65 dns.comss.one >> dnslist.txt
@echo 64 dns.east.comss.one >> dnslist.txt
@echo 63 private.canadianshield.cira.ca >> dnslist.txt
@echo 62 protected.canadianshield.cira.ca >> dnslist.txt
@echo 61 protected.canadianshield.cira.ca >> dnslist.txt
@echo 60 dot-fi.blahdns.com >> dnslist.txt
@echo 59 dot-jp.blahdns.com >> dnslist.txt
@echo 58 dot-de.blahdns.com >> dnslist.txt
@echo 57 fi.dot.dns.snopyta.org >> dnslist.txt
@echo 56 dns-dot.dnsforfamily.com >> dnslist.txt
@echo 55 odvr.nic.cz >> dnslist.txt
@echo 54 dns.alidns.com >> dnslist.txt
@echo 53 dns.cfiec.net >> dnslist.txt
@echo 52 dot.360.cn >> dnslist.txt
@echo 51 public.dns.iij.jp >> dnslist.txt
@echo 50 dot.pub >> dnslist.txt
@echo 49 101.101.101.101 >> dnslist.txt
@echo 48 dot.tiar.app >> dnslist.txt
@echo 47 jp.tiar.app >> dnslist.txt
@echo 46 dns.oszx.co >> dnslist.txt
@echo 45 dns.pumplex.com >> dnslist.txt
@echo 44 dot1.applied-privacy.net >> dnslist.txt
@echo 43 dns.decloudus.com >> dnslist.txt
@echo 42 resolver-eu.lelux.fi >> dnslist.txt
@echo 41 185.222.222.222 >> dnslist.txt
@echo 40 dnsforge.de >> dnslist.txt
@echo 39 kaitain.restena.lu >> dnslist.txt
@echo 38 dot.ffmuc.net >> dnslist.txt
@echo 37 dns.digitale-gesellschaft.ch >> dnslist.txt
@echo 36 dot.libredns.gr >> dnslist.txt
@echo 35 ibksturm.synology.me >> dnslist.txt
@echo 34 getdnsapi.net >> dnslist.txt
@echo 33 dnsovertls.sinodun.com >> dnslist.txt
@echo 32 dnsovertls1.sinodun.com >> dnslist.txt
@echo 31 unicast.censurfridns.dk >> dnslist.txt
@echo 30 anycast.censurfridns.dk >> dnslist.txt
@echo 29 dns.cmrg.net >> dnslist.txt
@echo 28 dns.larsdebruin.net >> dnslist.txt
@echo 27 dns-tls.bitwiseshift.net >> dnslist.txt
@echo 26 ns1.dnsprivacy.at >> dnslist.txt
@echo 25 ns2.dnsprivacy.at >> dnslist.txt
@echo 24 dns.bitgeek.in >> dnslist.txt
@echo 23 dns.neutopia.org >> dnslist.txt
@echo 22 privacydns.go6lab.si >> dnslist.txt
@echo 21 dot.securedns.eu >> dnslist.txt
@echo 20 dot.nl.ahadns.net >> dnslist.txt
@echo 19 dot.in.ahadns.net >> dnslist.txt
@echo 18 dot.la.ahadns.net >> dnslist.txt
@echo 17 dot.ny.ahadns.net >> dnslist.txt
@echo 16 dot.pl.ahadns.net >> dnslist.txt
@echo 15 dot.it.ahadns.net >> dnslist.txt
@echo 14 dot.es.ahadns.net >> dnslist.txt
@echo 13 dot.no.ahadns.net >> dnslist.txt
@echo 12 dot.chi.ahadns.net >> dnslist.txt
@echo 11 dot.seby.io >> dnslist.txt
@echo 10 doh.dnslify.com >> dnslist.txt
@echo 9 dns.nextdns.io >> dnslist.txt
@echo 8 anycast.dns.nextdns.io >> dnslist.txt
@echo 7 max.rethinkdns.com >> dnslist.txt
@echo 6 p1.freedns.controld.com >> dnslist.txt
@echo 5 p2.freedns.controld.com >> dnslist.txt
@echo 4 p3.freedns.controld.com >> dnslist.txt
@echo 3 doh.mullvad.net >> dnslist.txt
@echo 2 adblock.doh.mullvad.net >> dnslist.txt
@echo 1 dandelionsprout.asuscomm.com:853 >> dnslist.txt
@echo 0 dns.adguard.com
@xcopy /R /Y dnslist.txt %temp% 1>NUL 2>&1
exit /b

:_dnsintervalswitch
set dnsint=15
rem StartRusTextBlock
rem set /p dnsint="Введите интервал между проверками и нажмите Enter : "
rem EndRusTextBlock
rem StartEngTextBlock
set /p dnsint="Enter the interval between checks and press Enter: "
rem EndEngTextBlock
if "%dnsint%"=="0" (goto _todmenu)
exit /b


:_setdnsinterval
set waitdnsb=10
set waitdnst=20
set /a waitdnssum=%waitdnsb%+%waitdnst%
exit /b

:_setchkinterval
set waitchkb=10
set waitchkt=20
set /a waitchksum=%waitchkb%+%waitchkt%
exit /b

:_resolutionfix
call :_hat
@echo.
@echo off
@echo      -----------------------------
rem StartRusTextBlock
rem @echo       ВЫБЕРИТЕ РАЗРЕШЕНИЕ ДИСПЛЕЯ
rem @echo      ----------------------------
rem @echo.
rem @echo    0.  Выход из программы
rem @echo    M.  Выход в Главное меню
rem @echo.
rem @echo    R.  Узнать текущее разрешение
rem @echo.
rem @echo  Установить разрешение:
rem @echo.
rem @echo    A. 845 x 768
rem @echo    B. 1127 x 1024
rem @echo    C. 1408 x 1280
rem @echo    D. 1584 x 1440 (Default for Meta Quest 2)
rem @echo    E. 1690 x 1536
rem @echo    F. 1760 x 1680 (Default for Meta Quest 3)
rem @echo    G. 1920 x 1800 (Default for Meta Quest Pro)
rem @echo    H. 1971 x 1792
rem @echo    I. 2253 x 2048
rem @echo    J. 2816 x 2560
rem @echo    K. 3097 x 2816
rem @echo    L. 3380 x 3072
rem @echo    N. 3661 x 3328   [EXP]  (Только для Meta Quest 3/Pro^!)
rem @echo    O. 3942 x 3584   [EXP]  (Только для Meta Quest 3/Pro^!)
rem @echo    P. 4224 x 3840   [EXP]  (Только для Meta Quest 3/Pro^!)
rem @echo    Q. 4506 x 4096   [EXP]  (Только для Meta Quest 3/Pro^!)
rem @echo.
rem @echo.
rem @echo  Установить частоту обновления (Refresh Rate):
rem @echo.
rem @echo    S. 120Гц
rem @echo    T. 90Гц
rem @echo    U. 80Гц
rem @echo    V. 72Гц
rem @echo    X. 60Гц
rem @echo.
rem @echo.
rem EndRusTextBlock
rem StartEngTextBlock
@echo       SELECT DISPLAY RESOLUTION
@echo      ----------------------------
@echo.
@echo    0.  Exit the program
@echo    M.  Main menu
@echo.
@echo    R.  Get current resolution
@echo.
@echo  Set resolution:
@echo.
@echo    A. 845 x 768
@echo    B. 1127 x 1024
@echo    C. 1408 x 1280
@echo    D. 1584 x 1440 (Default for Meta Quest 2)
@echo    E. 1690 x 1536
@echo    F. 1760 x 1680 (Default for Meta Quest 3)
@echo    G. 1920 x 1800 (Default for Meta Quest Pro)
@echo    H. 1971 x 1792
@echo    I. 2253 x 2048
@echo    J. 2816 x 2560
@echo    K. 3097 x 2816
@echo    L. 3380 x 3072
@echo    N. 3661 x 3328   [EXP]  (Only for Meta Quest 3/Pro^!)
@echo    O. 3942 x 3584   [EXP]  (Only for Meta Quest 3/Pro^!)
@echo    P. 4224 x 3840   [EXP]  (Only for Meta Quest 3/Pro^!)
@echo    Q. 4506 x 4096   [EXP]  (Only for Meta Quest 3/Pro^!)
@echo.
@echo.
@echo  Set refresh rate:
@echo.
@echo    S. 120Гц
@echo    T. 90Гц
@echo    U. 80Гц
@echo    V. 72Гц
@echo    X. 60Гц
@echo.
@echo.
@echo.   ===================================================================
@echo    ^|   Increased resolution from N to Q may cause game crashes.   ^|
@echo    ^|   Set it only if you know exactly what you are doing!         ^|
@echo    ===================================================================
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _resolutionfix
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="r" (GOTO _currentres)
if /i "%choice%"=="a" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 845 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 768 && goto _resmenu)
if /i "%choice%"=="b" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 1127 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 1024 & goto _resmenu)
if /i "%choice%"=="c" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 1408 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 1280 & goto _resmenu)
if /i "%choice%"=="d" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 1584 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 1440 & goto _resmenu)
if /i "%choice%"=="e" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 1690 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 1536 & goto _resmenu)
if /i "%choice%"=="f" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 1760 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 1680 & goto _resmenu)
if /i "%choice%"=="g" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 1920 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 1800 & goto _resmenu)
if /i "%choice%"=="h" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 1971 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 1792 & goto _resmenu)
if /i "%choice%"=="i" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 2253 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 2048 & goto _resmenu)
if /i "%choice%"=="j" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 2816 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 2560 & goto _resmenu)
if /i "%choice%"=="k" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 3097 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 2816 & goto _resmenu)
if /i "%choice%"=="l" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 3380 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 3072 & goto _resmenu)
if /i "%choice%"=="n" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 3661 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 3328 & goto _resmenu)
if /i "%choice%"=="o" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 3942 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 3584 & goto _resmenu)
if /i "%choice%"=="p" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 4224 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 3840 & goto _resmenu)
if /i "%choice%"=="q" (@%MYFILES%\adb shell setprop debug.oculus.textureHeight 4502 && @%MYFILES%\adb shell setprop debug.oculus.textureWidth 4096 & goto _resmenu)
if /i "%choice%"=="s" (@%MYFILES%\adb shell setprop debug.oculus.refreshRate 120 & goto _resmenu)
if /i "%choice%"=="t" (@%MYFILES%\adb shell setprop debug.oculus.refreshRate 90 & goto _resmenu)
if /i "%choice%"=="u" (@%MYFILES%\adb shell setprop debug.oculus.refreshRate 80 & goto _resmenu)
if /i "%choice%"=="v" (@%MYFILES%\adb shell setprop debug.oculus.refreshRate 72 & goto _resmenu)
if /i "%choice%"=="x" (@%MYFILES%\adb shell setprop debug.oculus.refreshRate 60 & goto _resmenu)
call :_erlvl
cls
goto _resolutionfix
:_resmenu
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Параметры установлены
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Parameters set
rem EndEngTextBlock
call :_prevmenu
cls
goto _resolutionfix

:_currentres
call :_cdc
@echo.
rem StartRusTextBlock
rem @echo  Текущее разрешение:
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Current resolution:
rem EndEngTextBlock
@echo =====
@%MYFILES%\adb shell getprop debug.oculus.textureHeight
call :_erlvl
@echo  x
@%MYFILES%\adb shell getprop debug.oculus.textureWidth
@echo =====
rem StartRusTextBlock
rem @echo  [ пустые строки означают дефолтные значения ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  [ Empty lines indicate default values ]
rem EndEngTextBlock
@echo.
call :_prevmenu
cls
goto _resolutionfix

:_installmenugen
call :_checkcurlexists
call :_hat
call :_hatmenu
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo    A.  Запустить утилиту установки приложений Quest Install Director
rem @echo    B.  Запустить приложения на шлеме
rem @echo    C.  Узнать команду ADB для запуска приложения на шлеме
rem @echo    D.  Отобразить и сохранить список установленных приложений
rem @echo    E.  Управление выбранными приложениями	   [EXPERIMENTAL]
rem @echo.
rem @echo    V.  Установка VPN клиентов и драйверов Oculus
rem @echo    S.  Установка медиа приложений
rem @echo    P.  Установка прикладных приложений
rem @echo    G.  Установка игровых приложений
rem @echo.
rem @echo.   %curldownloadmenu%
rem @echo.
rem @echo.
rem @echo    ВАЖНО:
rem @echo.
rem @echo       Для установки приложений требуется интернет на ПК.
rem @echo.
rem @echo.
rem @echo.
rem @echo.   %curldownloadmess1%
rem @echo.   %curldownloadmess2%
rem @echo.   %curldownloadmess3%
rem @echo.
rem @echo.   %curldownloadmess4%
rem @echo.
rem @echo.
rem @echo.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    === Application Installation Menu ===
@echo.
@echo    A.  Run Quest Install Director utility
@echo    B.  Run applications on the headset
@echo    C.  Get ADB command to launch an application on the headset
@echo    D.  Show list of installed applications
@echo    E.  Managing selected applications        [EXPERIMENTAL]
@echo.
@echo    V.  VPN clients and Oculus driver installation
@echo    S.  Media applications installation
@echo    P.  Utility applications installation
@echo    G.  Gaming applications installation
@echo.
@echo.   %curldownloadmenu%
@echo.
@echo.
@echo    IMPORTANT:
@echo.
@echo       Internet connection on the PC is required for application installation.
@echo.
@echo.
@echo.   %curldownloadmess1%
@echo.   %curldownloadmess2%
@echo.   %curldownloadmess3%
@echo.
@echo.   %curldownloadmess4%
@echo.
@echo.
@echo.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _installmenugen
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _installqid)
if /i "%choice%"=="b" (GOTO _StartingApps)
if /i "%choice%"=="c" (GOTO _CommandLaunchApp)
rem if /i "%choice%"=="d" (GOTO _AppsInstalledList)
if /i "%choice%"=="d" (GOTO _ApplicationActionMenu)
rem if "%choice%"=="e" (call :_AppsInstallMenu && call :_packageslistselonly && pause && goto _ApplicationActionManageMenu)
if "%choice%"=="e" (set cmdsel=1&& call :_AppsInstallMenu && call :_ApplicationActionManageMenu & call :_StartEndAppsMenu)

rem if /i "%choice%"=="e" (GOTO _ApplicationActionMenu)

if /i "%choice%"=="v" (GOTO _InstallVPNClients)
if /i "%choice%"=="s" (GOTO _InstallMediaApps)
if /i "%choice%"=="p" (GOTO _InstallSoftwareApps)
if /i "%choice%"=="h" (GOTO _curldownload)
if /i "%choice%"=="g" (GOTO _InstallGamesApps)
@cls
goto _installmenugen

:_checkcurlexists
@echo off
@curl.exe 1>nul 2>nul
if %errorlevel%==2 exit /b
rem StartRusTextBlock
rem set "curldownloadmenu=H.  Скачать Curl"
rem set "curldownloadmess1======================================================================================="
rem set "curldownloadmess2=^|  +++ Curl отсутствует в операционной системе, установка приложений невозможна +++  ^|"
rem set "curldownloadmess3======================================================================================="
rem set "curldownloadmess4=Выберите пункт H чтобы скачать, затем распакуйте содержимое каталога bin в каталог Windows"
rem EndRusTextBlock
rem StartEngTextBlock
set "curldownloadmenu=H.  Download Curl"
set "curldownloadmess1================================================================================================="
set "curldownloadmess2=^|  +++ Curl is missing from the operating system, application installation is impossible  +++  ^|"
set "curldownloadmess3================================================================================================="
set "curldownloadmess4=Select H to download, then extract the contents of the bin directory to your Windows directory"
rem EndEngTextBlock

exit /b

:_curldownload
start " " "https://curl.se/windows/latest.cgi?p=win64-mingw.zip"
goto _installmenugen


:_InstallGamesApps
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo      === Установка игровых приложений ===
rem EndRusTextBlock
rem StartEngTextBlock
@echo      === Installation of Games Applications ===
rem EndEngTextBlock
@echo.
@echo.
@echo    A.  = qLoader
@echo    B.  = Rookie Sideloader
@echo    C.  = ARMGDDN Browser
@echo    D.  = VRP Essentials
@echo.
@echo    J.  = Steam Auto Crack
@echo    K.  = Steam Auto Crack GUI
@echo    L.  = Quest Patcher for Beat Saber
@echo    N.  = APPID
@echo.
rem StartRusTextBlock
rem @echo    H.  = Описание каждого приложения и небольшая инструкция
rem EndRusTextBlock
rem StartEngTextBlock
@echo    H.  = Description of each application and brief instructions
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _InstallGamesApps
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _InstallqLoader)
if /i "%choice%"=="b" (GOTO _InstallRookie)
if /i "%choice%"=="c" (GOTO _InstallArmggdn)
if /i "%choice%"=="d" (GOTO _InstalllVrpe)
if /i "%choice%"=="j" (GOTO _InstallSAC)
if /i "%choice%"=="k" (GOTO _InstallSACGUI)
if /i "%choice%"=="l" (GOTO _InstallQuestPatcher)
if /i "%choice%"=="n" (GOTO _InstallAppid)
rem if /i "%choice%"=="a" (GOTO _vrcomm)
rem if /i "%choice%"=="a" (GOTO _vrcomm)
rem if /i "%choice%"=="a" (GOTO _vrcomm)
if /i "%choice%"=="h" (GOTO _GameAppsAdditionalInfo)
@cls
goto _InstallGamesApps

:_GameAppsAdditionalInfo
@cls
call :_cdcbnoreg
@echo.
@echo.
rem StartRusTextBlock
rem @echo   = %_fBGreen%ARMGDDN Browser%_fReset%: %_fBYellow%Для скачивания PC и PCVR игр и приложений%_fReset%
rem @echo     %_fBCyan%Инструкция:%_fReset% на сайте разработчика
rem @echo     %_fBCyan%Источник:%_fReset% %_fCyan%https://github.com/KaladinDMP/AGBrowser%_fReset%
rem @echo   ---
rem @echo   %_fBGreen%= Rookie Sideloader%_fReset%: %_fBYellow%Для скачивания и установки нативных пиратских игр и приложений%_fReset%
rem @echo     %_fBCyan%Инструкция:%_fReset% на сайте разработчика
rem @echo     %_fBCyan%Источник:%_fReset% %_fCyan%https://wiki.vrpirates.club/Howto/Rookie-Sideloader
rem @echo   ---
rem @echo   %_fBGreen%= VRP Essentials%_fReset%: %_fBYellow%Комплекс программ для  скачивания и установки нативных пиратских игр%_fReset%
rem @echo     %_fBCyan%Инструкция:%_fReset% на сайте разработчика
rem @echo     %_fBCyan%Источник:%_fReset% %_fCyan%https://wiki.vrpirates.club/Howto/VRP-Essentials%_fReset%
rem @echo   ---
rem @echo   %_fBGreen%= qLoader:%_fReset% %_fBYellow%Для скачивания и установки пиратских игр и приложений%_fReset%
rem @echo     %_fBCyan%Инструкция:%_fReset% следовать подсказкам по установке
rem @echo     %_fBCyan%Источник:%_fReset% %_fCyan%https://t.me/VRGamesRUS/16558%_fReset%
rem @echo   ---
rem @echo   %_fBGreen%= ARMGDDN Autocracker:%_fReset% %_fBYellow%Для отлома PC и PCVR игр от Steam%_fReset%
rem @echo     %_fBCyan%Инструкция:%_fReset% на сайте разработчика
rem @echo     %_fBCyan%Источник:%_fReset% %_fCyan%https://github.com/KaladinDMP/ARMGDDN-Autocracker-OG-GSE/releases%_fReset%
rem @echo   ---
rem @echo   %_fBGreen%= SteamAutoCrack:%_fReset% %_fBYellow%Для отлома PC и PCVR игр от Steam%_fReset%
rem @echo     %_fBCyan%Инструкция:%_fReset% на сайте разработчика
rem @echo     %_fBCyan%Источник:%_fReset% %_fCyan%https://github.com/oureveryday/Steam-auto-crack%_fReset%
rem @echo   ---
rem @echo   %_fBGreen%= SteamAutoCrack GUI:%_fReset% %_fBYellow%Для отлома PC и PCVR игр от Steam%_fReset%
rem @echo     %_fBCyan%Инструкция:%_fReset% на сайте разработчика
rem @echo     %_fBCyan%Источник:%_fReset% %_fCyan%https://cs.rin.ru/forum/viewtopic.php?f=29^&t=117252%_fReset%
rem @echo   ---
rem @echo   %_fBGreen%= QuestPatcher for Beat Saber:%_fReset% %_fBYellow%Для пропатчивания игры Beat Saber на установку модов%_fReset%
rem @echo     %_fBCyan%Инструкция:%_fReset% %_fCyan%https://www.briandorey.com/post/quest-3-beat-saber-mod-questpatcher%_fReset%
rem @echo     %_fBCyan%Источник:%_fReset% %_fCyan%https://github.com/Lauriethefish/QuestPatcher/releases/%_fReset%
rem @echo   ---
rem @echo   %_fBGreen%= APPID:%_fReset% %_fBYellow%Для поиска идентификаторов игр Application Steam ID%_fReset%
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = %_fBGreen%ARMGDDN Browser%_fReset%: %_fBYellow%For downloading PC and PCVR games and applications%_fReset%
@echo     %_fBCyan%Instructions:%_fReset% Check the developer's website
@echo     %_fBCyan%Source:%_fReset% %_fCyan%https://github.com/KaladinDMP/AGBrowser%_fReset%
@echo   ---
@echo   %_fBGreen%= Rookie Sideloader%_fReset%: %_fBYellow%For downloading and installing native pirate games and applications%_fReset%
@echo     %_fBCyan%Instructions:%_fReset% Check the developer's website
@echo     %_fBCyan%Source:%_fReset% %_fCyan%https://wiki.vrpirates.club/Howto/Rookie-Sideloader%_fReset%
@echo   ---
@echo   %_fBGreen%= VRP Essentials%_fReset%: %_fBYellow%Package of programs for downloading and installing native pirate games%_fReset%
@echo     %_fBCyan%Instructions:%_fReset% Check the developer's website
@echo     %_fBCyan%Source:%_fReset% %_fCyan%https://wiki.vrpirates.club/Howto/VRP-Essentials%_fReset%
@echo   ---
@echo   %_fBGreen%= qLoader:%_fReset% %_fBYellow%For downloading and installing pirate games and applications%_fReset%
@echo     %_fBCyan%Instructions:%_fReset% Follow the installation prompts
@echo     %_fBCyan%Source:%_fReset% %_fCyan%https://t.me/VRGamesRUS/16558%_fReset%
@echo   ---
@echo   %_fBGreen%= ARMGDDN Autocracker:%_fReset% %_fBYellow%For cracking PC and PCVR games from Steam%_fReset%
@echo     %_fBCyan%Instructions:%_fReset% Check the developer's website
@echo     %_fBCyan%Source:%_fReset% %_fCyan%https://github.com/KaladinDMP/ARMGDDN-Autocracker-OG-GSE/releases%_fReset%
@echo   ---
@echo   %_fBGreen%= SteamAutoCrack:%_fReset% %_fBYellow%For cracking PC and PCVR games from Steam%_fReset%
@echo     %_fBCyan%Instructions:%_fReset% Check the developer's website
@echo     %_fBCyan%Source:%_fReset% %_fCyan%https://github.com/oureveryday/Steam-auto-crack%_fReset%
@echo   ---
@echo   %_fBGreen%= SteamAutoCrack GUI:%_fReset% %_fBYellow%For cracking PC and PCVR games from Steam%_fReset%
@echo     %_fBCyan%Instructions:%_fReset% Check the developer's website
@echo     %_fBCyan%Source:%_fReset% %_fCyan%https://cs.rin.ru/forum/viewtopic.php?f=29^&t=117252%_fReset%
@echo   ---
@echo   %_fBGreen%= QuestPatcher for Beat Saber:%_fReset% %_fBYellow%For patching Beat Saber game to install mods%_fReset%
@echo     %_fBCyan%Instructions:%_fReset% %_fCyan%https://www.briandorey.com/post/quest-3-beat-saber-mod-questpatcher%_fReset%
@echo     %_fBCyan%Source:%_fReset% %_fCyan%https://github.com/Lauriethefish/QuestPatcher/releases/%_fReset%
@echo   ---
@echo   %_fBGreen%= APPID:%_fReset% %_fBYellow%For finding Steam game Application IDs%_fReset%
rem EndEngTextBlock
@echo   ---
@echo.
@echo.
@echo.
call :_prevmenu 
goto _InstallGamesApps


:_InstallSoftwareApps
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo      === Установка прикладных приложений ===
rem EndRusTextBlock
rem StartEngTextBlock
@echo      === Installation of Productivity Applications ===
rem EndEngTextBlock
@echo.
@echo.
@echo    A.  = VRComm mobile client
@echo    B.  = LightningLauncher
@echo    C.  = File Manager+
@echo    D.  = XR File Manager
@echo    E.  = Bugjaeger Premium
@echo    F.  = Termux
@echo    G.  = Oculus Wireless ADB
@echo    H.  = RCX
@echo    I.  = TotalCommander
@echo    J.  = SH Script Runner
@echo    K.  = ADB GUI Tool
@echo    L.  = OVR Metrics Tool
@echo    N.  = Internet Speed Meter
@echo    O.  = Script Manager
@echo    P.  = Passthrough cam tool
@echo    Q.  = App Cloner
@echo    R.  = Apk Tool M
@echo    S.  = MPatcher
@echo    T.  = Private Quest (only for smartphones!)
@echo    U.  = Steam Link
@echo    V.  = Auto Start Apps Manager

@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _InstallSoftwareApps
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _vrcomm)
if /i "%choice%"=="b" (GOTO _llauncher)
if /i "%choice%"=="c" (GOTO _fmplus)
if /i "%choice%"=="d" (GOTO _xrfm)
if /i "%choice%"=="e" (GOTO _bujaegerinst)
if /i "%choice%"=="f" (GOTO _termuxinst)
if /i "%choice%"=="g" (GOTO _ocwirelessadbinst)
if /i "%choice%"=="h" (GOTO _rcxinst)
if /i "%choice%"=="i" (GOTO _totalcomminst)
if /i "%choice%"=="j" (GOTO _shscriptinst)
if /i "%choice%"=="k" (GOTO _addguiinst)
if /i "%choice%"=="l" (GOTO _OVRMetricsTool)
if /i "%choice%"=="n" (GOTO _ismeterinst)
if /i "%choice%"=="o" (GOTO _scriptmanager)
if /i "%choice%"=="p" (GOTO _passthrough)
if /i "%choice%"=="q" (GOTO _apktoolm)
if /i "%choice%"=="r" (GOTO _appcloner)
if /i "%choice%"=="s" (GOTO _mpatcher)
if /i "%choice%"=="t" (GOTO _privatequest)
if /i "%choice%"=="u" (GOTO _steamlink)
if /i "%choice%"=="v" (GOTO _autostartapp)
@cls
goto _InstallSoftwareApps


:_InstallMediaApps
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo      === Установка медиа приложений ===
rem EndRusTextBlock
rem StartEngTextBlock
@echo      === Installation of Media Applications ===
rem EndEngTextBlock
@echo.
@echo.
@echo    A.  = Skybox VR Video Player
@echo    B.  = Moon VR Video Player
@echo    C.  = 4XVR Video Player
@echo    D.  = Pigasus VR Video Player
@echo    E.  = HereSphere VR Video Player
@echo    F.  = VLC Media Player
@echo    G.  = TorServe
@echo    H.  = Filmix UHD (Online Cinema)
@echo    I.  = Cinema HD  (Online Cinema)
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _InstallMediaApps
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _skyboxinst)
if /i "%choice%"=="b" (GOTO _moonplayerinst)
if /i "%choice%"=="c" (GOTO _4xplayerinst)
if /i "%choice%"=="d" (GOTO _pigasusinst)
if /i "%choice%"=="e" (GOTO _hsphereinst)
if /i "%choice%"=="f" (GOTO _vlcinst)
if /i "%choice%"=="g" (GOTO _torserveinst)
if /i "%choice%"=="h" (GOTO _filmixinst)
if /i "%choice%"=="i" (GOTO _kinohdinst)
@cls
goto _InstallMediaApps

:_InstallVPNClients
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo      === Установка VPN клиентов и драйверов ===
rem EndRusTextBlock
rem StartEngTextBlock
@echo      === Installation of VPN Clients and Drivers ===
rem EndEngTextBlock
@echo.
@echo.
@echo    A.  = Ultrasurf
@echo    B.  = Winscribe
@echo    C.  = OpenVPN Connect
@echo    D.  = OutlineVPN
@echo    E.  = AdGuard VPN
@echo    F.  = Shadowsocks
@echo    G.  = Psiphon VPN
@echo    H.  = Proton VPN
@echo    I.  = Free VPN Planet
@echo.
rem StartRusTextBlock
rem @echo    P.  Установить драйверы Oculus на ПК
@echo    Q.  Установить драйверы Oculus на ПК  (Для Windows 10)
rem @echo.
rem @echo.
rem @echo  ВАЖНОЕ:
rem @echo.
rem @echo.    Для приложений Shadowsocks и Outline VPN можно ввести ключи
rem @echo     доступа к серверам очень просто и непосредственно с ПК.
rem @echo     Используйте Пункт 2 в Главном меню.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    P.  Install Oculus drivers on PC
@echo    Q.  Install Oculus drivers on PC  (For Windows 10)
@echo.
@echo.
@echo  IMPORTANT:
@echo.
@echo.    For Shadowsocks and Outline VPN applications, you can enter
@echo     server access keys very easily and directly from the PC.
@echo     Use Item 2 in the Main Menu.
rem EndEngTextBlock
@echo.
@echo.
::@@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _InstallVPNClients
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _ultrasurf)
if /i "%choice%"=="b" (GOTO _winscribe)
if /i "%choice%"=="c" (GOTO _openvpnc)
if /i "%choice%"=="c" (GOTO _outline)
if /i "%choice%"=="e" (GOTO _adguard)
if /i "%choice%"=="f" (GOTO _shadowsocks)
if /i "%choice%"=="g" (GOTO _psiphon)
if /i "%choice%"=="h" (GOTO _proton)
if /i "%choice%"=="i" (GOTO _freeplanet)
if /i "%choice%"=="p" (GOTO _setdrivers)
if /i "%choice%"=="pp" (GOTO _setdriverexp)
rem if /i "%choice%"=="q" (GOTO _setdrivers10)
@cls
goto _InstallVPNClients


:_ApplicationActionMenu
@cls
call :_hatapps
@echo.
@echo.
rem StartRusTextBlock
rem @echo   0. Выход из программы
rem @echo   M. Выход в главное меню
rem @echo.
rem @echo   1. Отобразить и сохранить списки выбранных пакетов
rem @echo   2. Отобразить и сохранить список выбранных пакетов с именами приложений
@echo   3. Управление выбранными приложениями
rem @echo.
rem EndRusTextBlock
rem StartEngTextBlock
@echo   0. Exit the program
@echo   M. Return to the main menu
@echo.
@echo   1. Save applications list
@echo   2. Save applications list with label application 
@echo   3. Applications management
rem EndEngTextBlock
set cmdsel=
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _applicationactionmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
rem if "%choice%"=="1" (goto _packageslist)
rem if "%choice%"=="2" (goto _StartAppsInstalledScript)
rem if "%choice%"=="3" (goto _ApplicationactionManageMenu)
if "%choice%"=="1" (call :_AppsInstallMenu && goto _packageslistselmenu)
if "%choice%"=="2" (call :_AppsInstallMenu && goto _StartAppsInstalledScript)
rem if "%choice%"=="3" (call :_AppsInstallMenu && call :_packageslistselonly && pause && goto _ApplicationActionManageMenu)
rem if "%choice%"=="4" (goto _ApplicationactionManageMenu)
goto _applicationactionmenu

:_packageslist
call :_cdc
call :_packages
call :_packagesfull
@echo ======================================
rem StartRusTextBlock
rem @echo  Списки пакетов сохранены в текущем каталоге:
rem @echo   - краткий список : packages-list-%dt%.txt
rem @echo   - полный список  : packages-list%fp%-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Packages lists saved in the current directory:
@echo   - brief list : packages-list-%dt%.txt
@echo   - full list  : packages-list%fp%-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _syscommenu

:_packagesfull
@set fullp=-f
@set fp=-fullpath

:_packages
call :_cdc
@echo All Packages >> packages-list%fp%-%dt%.txt
@echo ---  >>packages-list%fp%-%dt%.txt
@%MYFILES%\adb shell pm list packages %fullp% -a >>packages-list%fp%-%dt%.txt
call :_erlvl
@echo ======================================  >>packages-list%fp%-%dt%.txt
@echo Diasabled Packages >> packages-list%fp%-%dt%.txt
@echo ---  >>packages-list%fp%-%dt%.txt
@%MYFILES%\adb shell pm list packages %fullp% -d >>packages-list%fp%-%dt%.txt
@echo ======================================  >>packages-list%fp%-%dt%.txt
@echo Third Party Packages >> packages-list%fp%-%dt%.txt
@echo ---  >>packages-list%fp%-%dt%.txt
@%MYFILES%\adb shell pm list packages %fullp% -3 >>packages-list%fp%-%dt%.txt
@echo ======================================  >>packages-list%fp%-%dt%.txt
@echo System Packages >> packages-list%fp%-%dt%.txt
@echo ---  >>packages-list%fp%-%dt%.txt
@%MYFILES%\adb shell pm list packages %fullp% -s >>packages-list%fp%-%dt%.txt
@echo ======================================  >>packages-list%fp%-%dt%.txt
exit /b

:_packageslistselmenu
call :_packageslistsel
call :_packageslistselfull
rem StartRusTextBlock
rem @echo  Списки пакетов сохранены в текущем каталоге:
rem @echo   - краткий список : packages-list-%dt%.txt
rem @echo   - полный список  : packages-list%fp%-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Packages lists saved in the current directory:
@echo   - brief list : packages-list-%dt%.txt
@echo   - full list  : packages-list%fp%-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _applicationactionmenu


:_packageslistselfull
@set fullp=-f
@set fp=-fullpath

:_packageslistsel
call :_settime
@echo ======================================  >>packages-list%fp%-%dt%.txt
@echo Список %pkgfiltername% приложений>> packages-list%fp%-%dt%.txt
@echo ---  >>packages-list%fp%-%dt%.txt
:_packageslistselonly
@%MYFILES%\adb shell pm list packages %fullp% %listpackages% >>packages-list%fp%-%dt%.txt
@echo ======================================
exit /b


:_AppsInstalledList
@echo off
rem 
rem goto _testconv
:_AppsInstallMenu
@cls
call :_hatapps
rem @echo.
rem StartRusTextBlock
rem call :_hatmenu
@echo    0. Выход из программы
@echo    M. Выход в главное меню
rem @echo.
rem @echo.
rem @echo.
rem @echo     1. Все приложения
rem @echo     2. Системные приложения
rem @echo     3. Неофициальные приложения
rem @echo     4. Отключенные приложения
rem @echo     5. Включенные приложения
rem @echo     6. Приложения c фильтрацией (по имени приложения)
rem @echo.
rem @echo.
rem @echo   ВАЖНО:
rem @echo.
rem @echo     Для использования этой функции на ПК должен быть интернет.
rem @echo.     
rem @echo     Выберите категорию для отображения соответствующего списка приложений.
rem @echo     Вероятнее всего вам требуется категория 3 - Неофициальные приложения.
rem @echo.
rem if [%cmdsel%] == [1] call :_CmdSelMenuText
rem EndRusTextBlock
rem StartEngTextBlock
@echo   0. Exit the program
@echo   M. Return to the main menu
@echo.
@echo   1. All applications
@echo   2. System applications
@echo   3. Unofficial applications
@echo   4. Disabled applications
@echo   5. Enabled applications
@echo   6. Applications with filtering (by application name)
@echo.
@echo.
@echo   IMPORTANT:
@echo.
@echo     Internet access is required on the PC to use this function.
@echo     Processing the list will take approximately one minute.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _AppsInstallMenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
rem if "%choice%"=="1" (set listpackages=-a && set pkgchoice=all &&set pkgfiltername=всех&& goto _StartAppsInstalledScript)
rem if "%choice%"=="2" (set listpackages=-s && set pkgchoice=system &&set pkgfiltername=системных&& goto _StartAppsInstalledScript)
rem if "%choice%"=="3" (set listpackages=-3 && set pkgchoice=thrid-party &&set pkgfiltername=неофициальных&& goto _StartAppsInstalledScript)
rem if "%choice%"=="4" (set listpackages=-d && set pkgchoice=disabled &&set pkgfiltername=отключенных&& goto _StartAppsInstalledScript)
rem if "%choice%"=="5" (set listpackages=-e && set pkgchoice=enabled &&set pkgfiltername=включенных&& goto _StartAppsInstalledScript)
rem if "%choice%"=="6" (set pkgfiltername=отфильтрованных&& goto _packageSearchFilter)
if "%choice%"=="1" (
    set listpackages=-a
    set pkgchoice=all
rem StartRusTextBlock
rem set pkgfiltername=всех
rem EndRusTextBlock
rem StartEngTextBlock
set pkgfiltername=all
rem EndEngTextBlock
exit /b
rem    goto _StartAppsInstalledScript
)

if "%choice%"=="2" (
    set listpackages=-s
    set pkgchoice=system
rem StartRusTextBlock
rem set pkgfiltername=системных
rem EndRusTextBlock
rem StartEngTextBlock
set pkgfiltername=system
rem EndEngTextBlock
exit /b
rem    goto _StartAppsInstalledScript
)

if "%choice%"=="3" (
    set listpackages=-3
    set pkgchoice=thrid-party
rem StartRusTextBlock
rem set pkgfiltername=неофициальных
rem EndRusTextBlock
rem StartEngTextBlock
set pkgfiltername=thrid-party
rem EndEngTextBlock
exit /b
rem     goto _StartAppsInstalledScript
)

if "%choice%"=="4" (
    set listpackages=-d
    set pkgchoice=disabled
rem StartRusTextBlock
rem set pkgfiltername=отключенных
rem EndRusTextBlock
rem StartEngTextBlock
set pkgfiltername=disabled
rem EndEngTextBlock
exit /b
rem    goto _StartAppsInstalledScript
)

if "%choice%"=="5" (
    set listpackages=-e
    set pkgchoice=enabled
rem StartRusTextBlock
rem set pkgfiltername=включенных
rem EndRusTextBlock
rem StartEngTextBlock
set pkgfiltername=enabled
rem EndEngTextBlock
exit /b
rem     goto _StartAppsInstalledScript
)

if "%choice%"=="6" (
    set pkgchoice=filtered
rem StartRusTextBlock
rem set pkgfiltername=отфильтрованных
rem EndRusTextBlock
rem StartEngTextBlock
set pkgfiltername=filtered
rem EndEngTextBlock
    goto _packageSearchFilter
)
rem if "%choice%"=="R" (GOTO _menurestart)
rem if "%choice%"=="r" (GOTO _menurestart)
goto _AppsInstallMenu

:_CmdSelMenuText
rem StartRusTextBlock
rem @echo     При выводе Всех или Системных приложений список может быть очень большим.
rem @echo     Если у вас установлено много неофициальных приложений, список также будет длинным.
rem @echo     Никаких проблем это не вызовет, но формироваться он будет чуть дольше обычного
rem @echo     и займет весь экран по вертикали, что доставит небольшие неудобства работы со списком.
rem @echo.
rem @echo     Чтобы добраться до конца списка, подвиньте окно вверх и уменьшите его размер по вертикали,
rem @echo     подвинув верхнюю кромку вниз. Затем используйте вертикальный скролл-бар справа в этом окне.
rem @echo.
rem @echo.    Если вы знаете хотя бы часть названия пакета приложения, пользуйтесь пунктом 6
rem @echo     в этом случае будут показаны только приложения, в которых есть эта часть названия.
rem @echo.
rem @echo     Со списком приложений работает только опция Full Application Backup
rem @echo     Но это не означает, что будут созданы бэкапы всех приложений в этом списке.
rem @echo     Это значит, что забэкапятся только те приложения, доступ к которым разрешен.
rem @echo.     
rem @echo     Остальные опции работают только с одним приложением за раз.
rem EndRusTextBlock
rem StartEngTextBlock
@echo     When displaying All or System applications, the list can be very large.
@echo     If you have many unofficial applications installed, the list will also be lengthy.
@echo     This won't cause any issues, but the list may take a bit longer to generate
@echo     and will occupy the entire vertical screen space, which may be slightly inconvenient.
@echo.
@echo     To navigate to the end of the list, move the window up and decrease its vertical size
@echo     by dragging down the top edge. Then use the vertical scroll bar on the right side of this window.
@echo.
@echo     If you know at least part of the application package name, use option 6
@echo     This will display only applications that contain that part of the name.
@echo.
@echo     Only the Full Application Backup option works with the applications list.
@echo     However, this doesn't mean backups will be created for all applications in the list.
@echo     It means backups will only be created for those applications for which access is permitted.
@echo.
@echo     Other options work with only one application at a time.
rem EndEngTextBlock
exit /b

:_packageSearchFilter
call :_cdc
@echo ===============================================================================
@echo.
@echo.
rem StartRusTextBlock
rem @echo     Для вывода приложений с фильтрацией введите название пакета или его часть,
rem @echo     например "facebook" или "face" без кавычек
rem @echo.
rem @echo     Для выхода в меню введите любую скобку и нажмитте Enter
rem EndRusTextBlock
rem StartEngTextBlock
@echo     To display applications with filtering, enter the package name or part of it,
@echo     for example "facebook" or "face" without quotes
@echo.
@echo     To return to the menu, enter any bracket and press Enter
rem EndEngTextBlock
@echo.
@echo.
@echo.
rem face
rem StartRusTextBlock
rem @Set /p pkgsearch="Введите название или его часть и нажмите Enter : "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p pkgsearch="Enter the name or part of it and press Enter: "
rem EndEngTextBlock
@echo.
rem call :_erlvl
if not defined pkgsearch goto _AppsInstallMenu
rem if %pkgsearch%==0 goto _AppsInstallMenu
if "%pkgsearch%"=="(" (goto _AppsInstallMenu)
if "%pkgsearch%"==")" (goto _AppsInstallMenu)
if "%pkgsearch%"=="[" (goto _AppsInstallMenu)
if "%pkgsearch%"=="]" (goto _AppsInstallMenu)
if "%pkgsearch%"=="{" (goto _AppsInstallMenu)
if "%pkgsearch%"=="}" (goto _AppsInstallMenu)
rem if "%pkgsearch%"=="" (goto _AppsInstallMenu)
rem set "listpackages=%pkgsearch%" && set pkgchoice=filtered && goto _StartAppsInstalledScript
set "listpackages=%pkgsearch%" && set pkgchoice=filtered&& exit /b


:_StartAppsInstalledScript
call :_cdc
@cls
call :_hatapps
@echo.
rem StartRusTextBlock
rem @echo ---------------------------------------------------
rem @echo = Составляем список %pkgfiltername% приложений.
rem @echo.
rem @echo   Это займет около мминуты.
rem @echo.
rem @echo   Затем он будет выведен на экран и сохранен в файл.
rem @echo   Перелистывание списка можно делать клавишей "пробел" 
rem EndRusTextBlock
rem StartEngTextBlock
@echo = Compiling a list of %pkgchoice% applications.
@echo.
@echo   This will take about a minute.
@echo.
@echo   Then it will be displayed on the screen and saved to a file.
@echo   You can navigate the list using the "space" key.
rem EndEngTextBlock
rem @echo.
@echo --------------------------------------------------------
setlocal enabledelayedexpansion

set shscriptname=aaptname.sh

rem @curl -LJko aapt-arm-pie2 https://www.dropbox.com/scl/fi/vukcntk232if536s4ya8g/aapt-arm-pie2?rlkey=u3uuw2ev5tcgz81b16haqku0r -s


@echo #!/system/bin/sh>>%shscriptname%
@echo aapt^=/data/local/tmp/aapt-arm-pie2>>%shscriptname%
@echo pm list packages %listpackages% ^| sed 's^/^^^package://g' ^| while read line; do>>%shscriptname%
@echo     path^=$(pm path $line ^| sed 's^/^^^package^://g'^);>>%shscriptname%
@echo     label^=$($aapt d badging ^$path  ^| grep 'application: label^=' ^| cut -d "'" -f2^);>>%shscriptname%
rem @echo     printf "app $label having package name $line\n";>>%shscriptname%
@echo     printf "app $label;$line\n";>>%shscriptname%
rem @echo     printf "\n";>>%shscriptname%
@echo done>>%shscriptname%
@%myfiles%\adb push %myfiles%\aapt-arm-pie2 /data/local/tmp/ 1>nul
@%myfiles%\adb push %shscriptname% /data/local/tmp/ 1>nul
@%myfiles%\adb shell dos2unix /data/local/tmp/%shscriptname%
@%myfiles%\adb shell chmod 0755 /data/local/tmp/aapt-arm-pie2
@%myfiles%\adb shell sh /data/local/tmp/%shscriptname% >o.txt 2>nul
rem :_testconv
rem set listpackages=-3
rem setlocal enabledelayedexpansion

@for /f "tokens=*" %%A in ('type o.txt ^| sort') do (

rem @for /f "tokens=*" %%A in ('type o.txt ^| findstr /r /c:"app.*having package name" ^| sort') do (
    set "line=%%A"
    set "line=!line:app=!"
rem     set "line=!line:having package name= ; !"
    set "line=!line:&=-!"
@for /f "tokens=1,2 delims=;" %%A in ("!line!") do (
set first=%%A
set second=%%B
Call :EchoTab "!first!" 6 "!second!"  >>AppsInstalled-%pkgchoice%.txt 2>nul
)
)
@del /q o.txt 
rem @del /q aapt-arm-pie2
@del /q %shscriptname%

rem @type AppsInstalled-%pkgchoice%.txt
@chcp 866 1>nul 2>nul
@more AppsInstalled-%pkgchoice%.txt 2>nul
@chcp 65001 1>nul 2>nul
rem StartRusTextBlock
rem if not exist AppsInstalled-%pkgchoice%.txt @echo. && @echo  = Список %pkgfiltername% приложений пуст && @echo  ----- && @echo. && goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
if errorlevel==1 @echo. && @echo  = The list of %pkgchoice% applications is empty && @echo  ----- && @echo. && goto _returnmenu
rem EndEngTextBlock
@echo.
@echo ====================================================================================
rem StartRusTextBlock
rem @echo Список %pkgfiltername% приложений сохранен в файл AppsInstalled-%pkgchoice%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo The list of %pkgchoice% applications is saved to the file AppsInstalled-%pkgchoice%.txt
rem EndEngTextBlock
@echo ------------------------------------------------------------------------------------
@echo.
goto _returnmenu

:EchoTab
:: %1 - текст до табуляции
:: %2 - максимальное кол-во знаков табуляции в конце текста
:: %3 - текст после табуляции
  @set "text=%~1"
  @set tabs=%~2
  @for /L %%C in (7,8,200) do (
    @if "!text:~%%C,1!" neq "" (@set /A tabs-=1) else (goto ext_EchoTab)
  )
  :ext_EchoTab
  @for /L %%C in (1,1,%tabs%) do set "text=!text!	"
  @echo %text%%~3
exit /B

:_cdc
@%myfiles%\adb shell getprop ro.boot.serialno 1>NUL 2>&1
rem @echo %errorlevel%
rem exit /b
IF %errorlevel%==1 goto _NoDevice
exit /b

:_hatapps
@echo ==================================================================================================
@echo        Quest Apps Viewer - created by Varset - v.1.0.0 - 02.11.23
@echo ==================================================================================================
exit /b



:_installqid
@echo off
@setlocal enableextensions enabledelayedexpansion

set hidefrstp=1^>NUL
set hidescndp=2^>NUL

if [%1]==[] goto :_InstallMenuQid
if [%1]==[a] set right=1 && goto _adminright
if [%1]==[u] set right=2 && goto _userright 
if [%1]==[c] set right=3 && goto _uacright
if [%1]==[d] set down=-d && set dg=!down:~1!
if [%1]==[v] set hidefrstp= && set verbose=v
if [%1]==[l] set hidefrstp=1^>^>logs.txt && set logs=l
if [%1]==[m] set mov=m
if [%1]==[r] set rest=r && set mov=m
if [%1]==[s] set save=s
if [%1]==[w] set wipe=w

:_InstallMenuQid
cls
call :_hatqid
call :_tabSizeCheckQid
@echo.
rem StartRusTextBlock
rem @echo    Для установки приложений скопируйте и вставьте
rem @echo    в строку ниже apk файл или каталог, содержащий игры.
rem @echo    Или просто нажмите Enter для использования текущего каталога
rem @echo. 
rem @echo.
rem @echo	  ВАЖНО:
rem @echo. 
rem @echo      drag^&drop может не поддерживаться, если программа запущена 
rem @echo      с правами администратора. Поэтому:
rem @echo. 
rem @echo     В программе можно использовать дополнительные параметры:
rem @echo.
rem @echo       u - запуск с правами текущего пользователя (UAC не запускается)
rem @echo       a - запуск с запросом прав администратора (UAC запускается всегда)
rem @echo       c - запуск с запросом повышения привилегий (UAC запускается, если вы админ)
rem @echo       d - включение возможности установки пониженной версии приложений
rem @echo       v - включение подробного отображения процесса установки. По умолчанию выключено.
rem @echo       l - запись в файл процесса установки. Игнорируется, если установлен ключ v.
rem @echo       m - установка приложений с предварительным удалением и очисткой данных
rem @echo           [перед удалением приложений данные будут сохранены в каталог BackupsData]  
rem @echo       r - восстановление данных после переустановки. Не действует без ключа m.
rem @echo       s - сохранить данные приложений. Работает сам по себе, отдельно от остального.
rem @echo       w - очистить данные и кэш приложения. Работает сам по себе, отдельно от остального.
rem @echo.
rem @echo.
rem @echo     Параметры следует вводить ПЕРЕД началом установки 
rem @echo.
rem @echo.
rem @echo.
rem @echo    Включенные параметры будут отображены здесь:  [  %verbose% %logs% %mov% %rest% %dg%]
rem EndRusTextBlock
rem StartEngTextBlock
@echo    To install applications, copy and paste
@echo    below the apk file or directory containing the games.
@echo    Or simply press Enter to use the current directory
@echo. 
@echo.
@echo    IMPORTANT:
@echo. 
@echo    drag&drop may not be supported if the program is launched 
@echo    with administrator privileges. Therefore:
@echo. 
@echo    Additional parameters can be used in the program:
@echo.
@echo       u - launch with current user privileges (UAC is not triggered)
@echo       a - launch with a request for administrator privileges (UAC is always triggered)
@echo       c - launch with a request for privilege elevation (UAC is triggered if you are an admin)
@echo       d - enable the ability to install downgraded versions of applications
@echo       v - enable verbose installation process. Disabled by default.
@echo       l - log installation process to a file. Ignored if 'v' flag is set.
@echo       m - install applications with prior uninstallation and data clearing
@echo           [before uninstalling applications, data will be saved to the BackupsData directory]  
@echo       r - restore data after reinstallation. Ineffective without the 'm' flag.
@echo       s - save application data. Works independently from other options.
@echo       w - clear application data and cache. Works independently from other options.
@echo.
@echo.
@echo    Parameters should be entered BEFORE installation starts
@echo.
@echo.
@echo.
@echo    Enabled parameters will be displayed here:  [  %verbose% %logs% %mov% %rest% %dg%]
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
set installname=
set installname=%cd%
rem StartRusTextBlock
rem @Set /p installname="Бросьте сюда apk, каталог или введите параметр и жмите Enter >>> "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p installname="Drop the apk here, directory, or enter a parameter and press Enter >>> "
rem EndEngTextBlock
@echo.
if /i %installname%==0 (exit)
if /i %installname%==x (goto _installmenugen)
if /i %installname%==a (goto _adminright)
if /i %installname%==u (goto _userright)
if /i %installname%==c (goto _uacright)
if /i %installname%==d (set down=-d && set dg=!down:~1! && goto _InstallMenuQid)
if /i %installname%==v (set hidefrstp= && set verbose=v && goto _InstallMenuQid)
if /i %installname%==l (set hidefrstp=1^>^>logs.txt && set logs=l && goto _InstallMenuQid)
if /i %installname%==m (set mov=m && goto _InstallMenuQid)
if /i %installname%==r (set rest=r && set mov=m && goto _InstallMenuQid)
if /i %installname%==s (set save=s && goto _SaveData)
if /i %installname%==w (set wipe=w && goto _WipeData)

rem  ==== Поправить этот кусок, экранировать спецсимволы ==============
For %%v In (!installname!) Do ( 
Set "PathIncludePathGame=%%~dpv"
set attribs=
@set extens=%%~xv
@set attribs=%%~av
rem if !extens!==.apk goto _MultiApkInstall
if !extens!==.apk goto _SingleApkInstall
rem if !attribs!==d---------- goto _MultiApkInstall
if !attribs! GEQ d-------- goto _MultiApkInstall
)
@echo ==========================================================
rem StartRusTextBlock
rem @echo    +++ Это не каталог, не apk файл и не ключ +++
rem @echo   Пожалуйста, бросьте что-нибудь более подходящее
rem EndRusTextBlock
rem StartEngTextBlock
@echo    +++ This is not a directory, not an apk file, and not a key +++
@echo              Please drop something more suitable
rem EndEngTextBlock
@echo ---------------------------------------------------------
goto :_returnmenuqid

:_MultiApkInstall
call :_cdc
@cls
call :_hat
@echo.
rem  ==== Поправить этот кусок, экранировать спецсимволы ==============
set "gPath=%installname%"
set /a MultiCounterOk=0
set /a MultiCounterEr=0
rem ЕЩЕ ПОКОВЫРЯТЬ ЦИКЛ МОЖЕТ ОН УДАЛЯЕТ ВОСКЛ ЗНАК

rem -----------------------
rem for /r %gPath% %%a in (*.*) do (
rem ------------------
for /r %gPath% %%a in (*.apk) do (
set "apkname=%%a"
@set "apknamefile=%%~nxa"
@set PathBeforeObbPath=%%~dpa
@set "apkname=%%a"
rem -------------------
rem if %%~xa==.apk call :_apkfileprocess
rem if %%~nxa==install.txt call :_installtxtprocess
rem -----------------------
rem :_apkfileprocess
rem -------------------

@For /f "tokens=*" %%v In ("!apkname!") Do Set "PathGame=%%~dpv"
@for /f "tokens=*" %%d in ('@%myfiles%\aapt2 dump packagename "!apkname!"') do set pkgname=%%d
@if not defined pkgname call :_MultiInstallApkErr
@FOR /F "tokens=2 delims='" %%g IN ('@%MYFILES%\aapt2 dump badging "!apkname!" ^| findstr /i /c:"application-label:"') DO set applabel=%%g
call :_MultiInstallProcess
@echo -----------------------------------------------
)
@echo ================================================
@echo.
rem StartRusTextBlock
rem @echo  +++ Установка завершена +++
rem @echo.
rem @echo   Установлено		: !MultiCounterOk!
rem @echo   Не установлено	: %MultiCounterEr%
rem @echo --------------------------------------------
rem @echo.
rem @echo   Список не установленных приложений сохранен в notinstalled.txt
rem @echo   Попробуйте установить их вручную. Также возможно, что
rem @echo   в имени файла/каталога есть восклицательный знак, удалите его.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++ Installation completed +++
@echo.
@echo   Installed	: !MultiCounterOk!
@echo   Not Installed	: %MultiCounterEr%
@echo --------------------------------------------
@echo.
@echo   The list of not installed applications is saved in notinstalled.txt
@echo   Try to install them manually. Also, it is possible that
@echo   there is an exclamation mark in the file/directory name, remove it.
rem EndEngTextBlock
@echo.
set mov=
set rest=
set hidefrstp=1^>NUL
set down=
set logs=
set verbose=
set dg=
@goto _returnmenuqid

:_MultiInstallProcess
if not defined applabel exit /b
if [!mov!]==[] set mov=empty
if %mov%==m (call :_mov)
set /a MultiCounterOk=%MultiCounterOk%+1
rem StartRusTextBlock
rem @echo  %MultiCounterOk%. Устанавливаем  "%applabel%"
rem EndRusTextBlock
rem StartEngTextBlock
@echo  %MultiCounterOk%. Installing  "%applabel%"
rem EndEngTextBlock
@%MYFILES%\ADB install -r -g --no-streaming "%apkname%" %hidefrstp% %hidescndp%
@IF !ERRORLEVEL!==0 (call :_MultiCopyObbInslallApk) else (call :_MultiInstallApkErr)
call :_restdata
set applabel=
set pkgname=
exit /b

:_MultiCopyObbInslallApk
if not exist "%PathGame%%pkgname%" call :_MultiInstalledOk && exit /b
@echo --
rem StartRusTextBlock
rem @echo     Копируем "%pkgname%" в каталог OBB на шлем..
rem EndRusTextBlock
rem StartEngTextBlock
@echo     Copying "%pkgname%" to the OBB directory on the headset..
rem EndEngTextBlock
@%MYFILES%\ADB shell mkdir -p /sdcard/Android/obb/%pkgname% %hidefrstp% %hidescndp%
@%MYFILES%\ADB push "%PathBeforeObbPath%%pkgname%" /sdcard/Android/obb/ %hidefrstp% %hidescndp%
call :_MultiInstalledOk
exit /b

:_MultiInstallApkErr
@echo.
@echo.
rem StartRusTextBlock
rem @echo  +++ Ошибка установки !apknamefile! +++
rem @echo.
rem @echo  == Продолжаем установку..
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++ Installation error !apknamefile! +++
@echo.
@echo  == Continuing installation..
rem EndEngTextBlock
@echo.
@echo.
set /a MultiCounterEr=%MultiCounterEr%+1
@echo  !apkname! >>notinstalled.txt
exit /b

:_MultiInstalledOk
@echo --
rem StartRusTextBlock
rem @echo   = Установлено успешно
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Successfully installed
rem EndEngTextBlock
rem pause
exit /b

:_SingleApkInstall
call :_cdc
@echo off
@cls
call :_hat
@echo.
@SET pkgName=
@set apkname=
set enterapkname=

rem  ==== Поправить этот кусок, экранировать спецсимволы ==============
@Set "apkname=%installname%"
@For %%v In (!apkname!) Do Set "PathIncludePathGame=%%~dpv"
for /f "tokens=*" %%a in ('%myfiles%\aapt2 dump packagename !apkname!') do set pkgname=%%a
FOR /F "tokens=2 delims='" %%g IN ('@%MYFILES%\aapt2 dump badging !apkname! ^| findstr /i /c:"application-label:"') DO set applabel=%%g
@echo -----------------------------------------------
if [!mov!]==[] set mov=empty
if %mov%==m call :_mov
rem StartRusTextBlock
rem @echo   Устанавливаем "%applabel%"
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Installing  "%applabel%"
rem EndEngTextBlock
rem @echo on
rem @echo f hidefsrtp%
rem @echo s %hidescndp%
rem pause
@%MYFILES%\ADB install -r -g %down% --no-streaming !apkname! %hidefrstp% %hidescndp%
rem pause
@IF !ERRORLEVEL!==0 (call :_SingleCopyObbInslallApk) else (call :_SingleErrInstallApk)
call :_restdata
@echo --
rem StartRusTextBlock
rem @echo   = Установлено успешно
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Successfully installed
rem EndEngTextBlock
@echo ===========================================
@echo.
set mov=
set rest=
set hidefrstp=1^>NUL
set down=
set logs=
set verbose=
set dg=
@goto _returnmenuqid

:_SingleCopyObbInslallApk
if not exist "%PathIncludePathGame%%pkgname%" exit /b
@echo --
rem StartRusTextBlock
rem @echo   Копируем "%pkgname%" в каталог OBB в шлем...
rem EndRusTextBlock
rem StartEngTextBlock
@echo     Copying "%pkgname%" to the OBB directory on the headset..
rem EndEngTextBlock
@%MYFILES%\ADB shell mkdir -p /sdcard/Android/obb/%pkgname% %hidefrstp% %hidescndp%
@%MYFILES%\ADB push "%PathIncludePathGame%%pkgname%" /sdcard/Android/obb/ %hidefrstp% %hidescndp%
exit /b

:_SingleErrInstallApk
@echo ===========================================
rem StartRusTextBlock
rem @echo 	    +++ Ошибка установки +++
rem @echo  Причину можно узнать в файле error.txt
rem @echo Также можете включить l или v в начальном меню
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ Installation error +++
@echo  You can find the reason in the error.txt file
@echo  You can also enable 'l' or 'v' in the initial menu
rem EndEngTextBlock
@echo.
@goto _returnmenuqid

:: === Установка с удалением
:_mov
@call :_settime
rem StartRusTextBlock
rem @echo  ..Сохраняем данные..
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ..Saving data..
rem EndEngTextBlock
@echo %dt%
@echo !dt!
@md %cd%\BackupsData 1>nul 2>nul
@%myfiles%\adb pull /sdcard/Android/data/!pkgname! %cd%\BackupsData %hidefrstp% %hidescndp%
::@%myfiles%\7z.exe a -mx7 -t7z -ssw !pkgname!-%dt%.7z %cd% %hidefrstp% %hidescndp%
rem StartRusTextBlock
rem @echo  ..Removing the application..
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ..Удаляем приложение..
rem EndEngTextBlock
%MYFILES%\ADB shell pm clear !pkgname! %hidefrstp% %hidescndp%
%MYFILES%\adb shell pm uninstall !pkgname! %hidefrstp% %hidescndp%
::@@echo.
rem StartRusTextBlock
rem @echo  ..Подчищаем остатки..
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ..Cleaning up leftovers..
rem EndEngTextBlock
%MYFILES%\adb shell rm -rf sdcard/Android/obb/!pkgname! %hidefrstp% %hidescndp%
%MYFILES%\adb shell rm -rf sdcard/Android/data/!pkgname! %hidefrstp% %hidescndp%
@echo  ---------------------
exit /b

:_restdata
if [!rest!]==[] set rest=rempty
if !mov!==m if !rest!==r call :_restoredata
exit /b
:_restoredata
rem StartRusTextBlock
rem @echo  ..Восстанавливаем данные обратно..
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ..Restoring data back..
rem EndEngTextBlock
@%MYFILES%\ADB shell mkdir -p /sdcard/Android/data/!pkgname!/ %hidefrstp% %hidescndp%
@%myfiles%\adb push %cd%\BackupsData\!pkgname! /sdcard/Android/data %hidefrstp% %hidescndp%
exit /b

:_SaveData
cls
call :_hat
call :_settime
@echo.
@echo.
set savedata=
set savedata=1
rem StartRusTextBlock
rem @Set /p savedata="Нажмите Enter для начала сохранения данных или 0 для выхода в меню >>> "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p savedata="Press Enter to start saving data or 0 to return to the menu >>> "
rem EndEngTextBlock
if %savedata%==0 (goto _InstallMenu)
@echo -----------------------
rem @echo  ..Сохраняем данные..
@echo  ..Saving data..
@md %cd%\%dt%-BackupsData 1>nul 2>nul
@%myfiles%\adb pull /sdcard/Android/data/!pkgname! %cd%\%dt%-BackupsData %hidefrstp% %hidescndp%
@echo.
rem StartRusTextBlock
rem @echo  = Данные сохранены в каталоге %dt%-BackupsData
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Data saved in the directory %dt%-BackupsData
rem EndEngTextBlock
@echo -----
goto _returnmenuqid


:_WipeData
cls
call :_hat
@echo.
@echo.
rem StartRusTextBlock
rem @echo    Бросьте сюда apk приложения, 
rem @echo    данные которого хотите почистить, и жмите Enter
rem @echo    .. Да-да, никакой ошибки, именно так. Пока что.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    Drop here the apk of the application 
@echo    whose data you want to clear, and press Enter
@echo    ..Yes, no mistake, that's right. For now.
rem EndEngTextBlock
set wipedata=
set wipedata=1
@echo.
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @Set /p wipedata="Нажмите Enter для очистки данных или 0 для выхода в меню >>> "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p wipedata="Press Enter to clear data or 0 to exit to the menu >>> "
rem EndEngTextBlock
if %wipedata%==0 (goto _InstallMenu)
@Set "apkname=%wipedata%"
@For %%v In (!apkname!) Do Set "PathIncludePathGame=%%~dpv"
for /f "tokens=*" %%a in ('%myfiles%\aapt2 dump packagename !apkname!') do set pkgname=%%a
@echo -----------------------
rem @echo  ..Сохраняем данные..
@echo  ..Saving data..
@md %cd%\BackupsData 1>nul 2>nul
@%myfiles%\adb pull /sdcard/Android/data/!pkgname! %cd%\BackupsData %hidefrstp% %hidescndp%
@echo.
rem StartRusTextBlock
rem @echo  = Данные сохранены в каталоге BackupsData
rem @echo ---
rem @echo  ..Чистим данные и кэш..
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Data saved in the BackupsData directory
@echo ---
@echo  ..Cleaning data and cache..
rem EndEngTextBlock
%MYFILES%\ADB shell pm clear !pkgname! %hidefrstp% %hidescndp%
@echo.
rem StartRusTextBlock
rem @echo  = Данные и кэш очищены
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Data and cache cleared
rem EndEngTextBlock
@echo ---
@echo.
goto _returnmenuqid


:_hatqid
@echo =============================================================================================
@echo              Quest Install Director - created by Varset - v.1.4 - 13.08.23      
@echo.
rem @echo                        Универсальный установщик приложений
@echo =============================================================================================
exit /b

::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

:_tabSizeCheckQid
@For /F "skip=1 tokens=2,3,4,5" %%a In ('%MYFILES%\adb shell df -h /sdcard/') Do (
rem cls
@set aa=%%a
@set bb=%%b
@set cc=%%c
@set dd=%%d
set sz=Гб
)
rem StartRusTextBlock
rem @echo 								^| Общий объем : !aa:~,-1!!sz!
rem @echo 								^| Занято      : !bb:~,-1!!sz!
rem @echo 	0. Выход из программы					^| Свободно    : !cc:~,-1!!sz!
rem @echo 	X. Выход в меню						^| Заполнено   : !dd!
rem EndRusTextBlock
rem StartEngTextBlock
@echo 								^| Total volume	: !aa:~,-1!!sz!
@echo 								^| Occupied: !bb:~,-1!!sz!
@echo 0. Exit program 						^| Free: !cc:~,-1!!sz!
@echo X. Exit to menu 						^| Filled: !dd!
rem EndEngTextBlock
@echo 								-----------------------------
exit /b

:_returnmenuqid
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите любую кнопку для возврата в меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press any key to return to the menu ^<^<^<
rem EndEngTextBlock
@pause >nul
@cls
goto _InstallMenuQid


:_StartingApps
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo    Запустить приложения на шлеме:
rem EndRusTextBlock
rem StartEngTextBlock
@echo    Launch applications on the headset:
rem EndEngTextBlock
@echo.
rem rem @echo    A.  = Pi Launcher Next Fix 3            = [EXP]
@echo    B.  = LightningLauncher                 = [EXP]
@echo    C.  = File Manager+                     = [EXP]
rem rem @echo    D.  = Wolvic browser                    = [EXP]
@echo    E.  = Ultrasurf                         = [EXP]
@echo    F.  = Winscribe                         = [EXP]
@echo    G.  = OpenVPN Connect                   = [EXP]
@echo    H.  = OutlineVPN                        = [EXP]
@echo    I.  = AdGuard VPN                       = [EXP]
@echo    J.  = Shadowsocks                       = [EXP]
@echo    K.  = Psiphon VPN                       = [EXP]
@echo    L.  = Proton VPN                        = [EXP]
@echo    N.  = Free VPN Planet                   = [EXP]
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _StartingApps
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
rem if /i "%choice%"=="a" (GOTO _startpifix)
if /i "%choice%"=="b" (GOTO _startll)
if /i "%choice%"=="c" (GOTO _startfm)
::if /i "%choice%"=="d" (GOTO _startwv)
if /i "%choice%"=="e" (GOTO _startus)
if /i "%choice%"=="f" (GOTO _startws)
if /i "%choice%"=="g" (GOTO _startovpn)
if /i "%choice%"=="h" (GOTO _startouvpn)
if /i "%choice%"=="i" (GOTO _startag)
if /i "%choice%"=="j" (GOTO _startss)
if /i "%choice%"=="k" (GOTO _startps)
if /i "%choice%"=="l" (GOTO _startpt)
if /i "%choice%"=="n" (GOTO _startfp)
@cls
goto _StartingApps

rem :_startpifix
rem call :_cdc
rem @echo Стартуем Pi Launcher..
rem @%MYFILES%\adb shell am start adb shell am start com.veticia.piLauncherNext/com.veticia.piLauncherNext.MainActivity 2>&1 | findstr "Error type 3" 2>nul 1>nul
rem goto _CheckInstallApp

:_startll
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем dipVR App Launcher..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching dipVR App Launcher...
rem EndEngTextBlock
@%MYFILES%\adb shell am start com.threethan.launcher/com.threethan.launcher.launcher.LauncherActivitySearchable 2>&1 | findstr "Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startfm
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем Файловый менеджер+..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching File Manager+...
rem EndEngTextBlock
@%MYFILES%\adb shell am start com.alphainventor.filemanager/.activity.MainActivity 2>&1 | findstr "Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:::_startwv

::@@echo Стартуем браузер Wolvic..
::@%MYFILES%\adb shell am start us.ultrasurf.mobile.ultrasurf/.MainActivity 2>&1 | findstr "Error type 3" 2>nul 1>nul
::goto _CheckInstallApp

:_startus
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем Ultrasurf..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching Ultrasurf..
rem EndEngTextBlock
@%MYFILES%\adb shell am start us.ultrasurf.mobile.ultrasurf/.MainActivity 2>&1 | findstr "Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startws
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем Winscribe..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching Winscribe..
rem EndEngTextBlock
@%MYFILES%\adb shell am start com.windscribe.vpn/com.windscribe.mobile.splash.SplashActivity 2>&1 | findstr "Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startovpn
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем Open VPN Connect..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching Open VPN Connect.. 
rem EndEngTextBlock
@%MYFILES%\adb shell am start net.openvpn.openvpn/net.openvpn.unified.MainActivity 2>&1 | findstr "Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startouvpn
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем Outline VPN..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching Outline VPN..
rem EndEngTextBlock
@%MYFILES%\adb shell am start org.outline.android.client/.MainActivity 2>&1 | findstr "Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startag
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем AdGuard VPN..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching AdGuard VPN..
rem EndEngTextBlock
@%MYFILES%\adb shell am start com.adguard.vpn/.ui.SplashActivity 2>&1 | findstr "Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startss
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем Shadowsocks..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching Shadowsocks..
rem EndEngTextBlock
@%MYFILES%\adb shell am start com.github.shadowsocks/.MainActivity 2>&1 | findstr /i /c:"Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startps
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем Psiphon 3...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching Psiphon 3...
rem EndEngTextBlock
@%MYFILES%\adb shell am start com.psiphon3/.MainActivity 2>&1 | findstr /i /c:"Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startpt
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем ProtonVPN..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching ProtonVPN..
rem EndEngTextBlock
@%MYFILES%\adb shell am start ch.protonvpn.android/com.protonvpn.android.ui.onboarding.SplashActivity 2>&1 | findstr /i /c:"Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_startfp
call :_cdc
rem StartRusTextBlock
rem @echo Стартуем Free Planet VPN..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Launching Planet VPN..
rem EndEngTextBlock
@%MYFILES%\adb shell am start com.freevpnplanet/.presentation.splash.view.SplashActivity 2>&1 | findstr /i /c:"Error type 3" 2>nul 1>nul
goto _CheckInstallApp

:_CheckInstallApp
@IF %ERRORLEVEL% NEQ 0 (
@echo.
rem StartRusTextBlock
rem @echo = Наденьте шлем, программа должна быть открыта
rem EndRusTextBlock
rem StartEngTextBlock
@echo = Put on the headset, the program should be open
rem EndEngTextBlock
@echo.
@echo ==============================================================
@echo.
goto _returnmenu
) else (
@echo --------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo     +++ Программа не установлена на шлем +++
rem @echo.
rem @echo   Нажмите любую кнопку для перехода к меню установки
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ The program is not installed on the headset +++
@echo.
@echo   Press any key to go to the installation menu
rem EndEngTextBlock
@echo.
@echo ========================================================
@echo.
@pause >nul
goto _installmenugen
)
goto _returnmenu

:_CommandLaunchApp
cls
call :_hat
call :_hatmenu
@set "launchappl="
@echo.
@echo  ---
@echo.
@echo.
rem StartRusTextBlock
rem @set /p launch="Бросьте сюда файл apk для получения информации: "
rem EndRusTextBlock
rem StartEngTextBlock
@set /p launch="Drop the apk file here to get information: "
rem EndEngTextBlock
if not defined launch goto _CommandLaunchApp
@set "launchappl=%launch%"
if "%launch%"=="0" (exit)
if /i "%launch%"=="m" (GOTO _beginn)
@FOR /F "tokens=2 delims='" %%g IN ('@%MYFILES%\aapt2 dump badging %launchappl% ^| findstr /i /c:"application-label:"') DO set applabel=%%g
@FOR /F "tokens=2 delims='" %%g IN ('@%MYFILES%\aapt2 dump badging %launchappl% ^| FINDstr /i /c:"package: name="') DO set pckgname=%%g
@FOR /F "tokens=2 delims='" %%g IN ('@%MYFILES%\aapt2 dump badging %launchappl% ^| findstr /i /c:"launchable-activity:"') DO set launchact=%%g
rem if [%launchact%]==[] (set launchstring=Строка запуска не найдена) else (set launchstring=adb shell am start %pckgname%/%launchact%)
if [%launchact%]==[] (set launchstring=Launchable activity not found) else (set launchstring=adb shell am start %pckgname%/%launchact%)
:_AppInfo
cls
call :_hat
@echo.
@echo.
@echo.
@echo.
@echo =============================================================================================
@echo.
rem StartRusTextBlock
rem @echo   Имя приложения:
rem @echo     %applabel%
rem @echo  ---
rem @echo   Имя пакета:
rem @echo     %pckgname%
rem @echo  ---
rem @echo   Строка запуска приложения:
rem @echo     adb shell am start %pckgname%/%launchact%
rem @echo     %launchstring%
rem @echo adb shell am start %pckgname%/%launchact% | clip
rem @echo.
rem @echo =============================================================================================
rem @echo Строка запуска скопирована в буфер, ее можно вставить в текстовый файл или консольное окно.
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Application name:
@echo     %applabel%
@echo  ---
@echo   Package name:
@echo     %pckgname%
@echo  ---
@echo   Application launch string:
rem @echo     adb shell am start %pckgname%/%launchact%
@echo     %launchstring%
rem @echo adb shell am start %pckgname%/%launchact% | clip
@echo.
@echo =============================================================================================
@echo Launch string copied to clipboard, you can paste it into a text file or console window.
rem EndEngTextBlock
@echo ---------------------------------------------------------------------------------------------
@echo.
@echo.
set launchstring=
set launchstring=1
rem StartRusTextBlock
rem @Set /p launchstring="Нажмите Enter для отправки команды на шлем или 0 для выхода в меню >>> "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p launchstring="Press Enter to send the command to the headset or 0 to return to the menu >>> "
rem EndEngTextBlock
if %launchstring%==0 (goto _installmenugen)
if %launchstring%==1 (%MYFILES%\adb shell am start %pckgname%/%launchact% 2>&1 | findstr "Error type 3" 2>nul 1>nul & goto _CheckInstallApp)
goto _AppInfo


:: Секция установки игровых приложений
:_InstallqLoader
set curllink=https://dipvr.ru/get-qLoader?no-trailers
rem StartRusTextBlock
rem set "instmess=  Запустите скачанный файл Loader Setup.exe и следуйте его инструкциям"
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=  Run the downloaded file Loader Setup.exe and follow its instructions"
rem EndEngTextBlock
call :_dlwingamesapps
@ren get-qLoader "Loader Setup.exe" 1>nul 2>nul
call :_prevmenu
goto _InstallGamesApps

:_InstallRookie
set curllink=https://wiki.vrpirates.club/downloads/rookie/rookie_2.29.2_portable.zip
rem StartRusTextBlock
rem set "instmess=  Распакуйте архив rookie_2.29.2_portable.zip, запустите файл AndroidSideloader v2.29.2.exe ^ & @echo   и следуйте дальнейшим инструкциям по установке"
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=  Unpack the archive rookie_2.29.2_portable.zip, run the file AndroidSideloader v2.29.2.exe ^ & @echo   and follow the further installation instructions"
rem EndEngTextBlock
call :_dlwingamesapps
call :_prevmenu
goto _InstallGamesApps

:_InstallArmggdn
set curllink=https://github.com/KaladinDMP/AGBrowser/releases/download/5.10.24/SETUP.7z
rem StartRusTextBlock
rem set "instmess=  Распакуйте архив SETUP.7z, запустите файл install.bat ^ & @echo   и следуйте дальнейшим подсказкам по установке"
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=  Unpack the archive SETUP.7z, run the file install.bat ^ & @echo   and follow the further installation prompts"
rem EndEngTextBlock
call :_dlwingamesapps
call :_prevmenu
goto _InstallGamesApps

:_InstalllVrpe
set curllink=https://github.com/VRPirates/VRPE/releases/latest/download/VRPE-Installer.exe
rem StartRusTextBlock
rem set "instmess=  Запустите файл VRPE-Installer.exe и следуйте дальнейшим подсказкам по установке"
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=  Run the file VRPE-Installer.exe and follow the further installation prompts"
rem EndEngTextBlock
call :_dlwingamesapps
call :_prevmenu
goto _InstallGamesApps

:_InstallSAC
set curllink=https://github.com/oureveryday/Steam-auto-crack/releases/download/3.4.1.2/SteamAutoCrack.zip
rem StartRusTextBlock
rem set "instmess=  Распакуйте архив SteamAutoCrack.zip ^ & @echo   и запустите файл SteamAutoCrack.exe для использования приложения"
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=  Unpack the archive SteamAutoCrack.zip ^ & @echo   and run the file SteamAutoCrack.exe to use the application"
rem EndEngTextBlock
call :_dlwingamesapps
call :_prevmenu
goto _InstallGamesApps

:_InstallSACGUI
set curllink=https://www.dropbox.com/scl/fi/xudqhxa3h18gbwe25zrp2/SACGUI-1.1.2.zip?rlkey=8hefdbgpi5hhweqxzfqpq6dkx
rem StartRusTextBlock
rem set "instmess=  Распакуйте архив SACGUI-1.1.2.zip и запустите файл SACGUI.exe для использования приложения"
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=  Unpack the archive SACGUI-1.1.2.zip and run the file SACGUI.exe to use the application"
rem EndEngTextBlock
call :_dlwingamesapps
call :_prevmenu
goto _InstallGamesApps

:_InstallQuestPatcher
set curllink=https://github.com/Lauriethefish/QuestPatcher/releases/download/2.8.0/QuestPatcher-windows.exe
rem StartRusTextBlock
rem set "instmess=  Прочитайте инструкцию по использованию в опции H этого меню ^ & @echo   и запустите файл QuestPatcher-windows.exe для установки приложения"
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=  Read the usage instructions in option H of this menu and run the file QuestPatcher-windows.exe to install the application"
rem EndEngTextBlock
call :_dlwingamesapps
call :_prevmenu
goto _InstallGamesApps

:_InstallAppid
set curllink=https://www.dropbox.com/scl/fi/s2vomiu5vfi48l69mjhc2/APPID.zip?rlkey=m51qvcokm5g9u1x80959v3y51
rem StartRusTextBlock
rem set "instmess=  Распакуйте архив APPID.zip и запустите файл APPID.exe для использования приложения"
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=  Extract the archive APPID.zip and run the file APPID.exe to use the application"
rem EndEngTextBlock
call :_dlwingamesapps
call :_prevmenu
goto _InstallGamesApps

:: Секция установки прикладных приложений
:: Section for installing application software

:_llauncher
call :_cdc
set dlappl=LightningLauncher.apk
set curllink=https://www.dropbox.com/scl/fi/4krx9yyl0ktaiq6jf7s2p/LightningLauncher.apk?rlkey=m3ph5mv988a2wdajwbjajthow
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_fmplus
call :_cdc
set dlappl=fmplus.apk
set curllink=https://www.dropbox.com/s/atq6zl34cyx5p50/fmplus.apk
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_xrfm
call :_cdc
set dlappl=com.marc.files.apk
set curllink=https://www.dropbox.com/scl/fi/pl9txs9q6qrsb6t1ohzfu/com.marc.files.apk?rlkey=ja9ub7hin38twntqkc37owfvg
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_vrcomm
call :_cdc
set dlappl=vrcomm.apk
set curllink=https://www.dropbox.com/scl/fi/amadcbc0lanfnf0uwsk7f/vrcomm.apk?rlkey=r5ir8zpjcusnocrxbh79f7chu
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_OVRMetricsTool
call :_cdc
set dlappl=OVRMetricsTool_v1.6.5.apk
set curllink=https://www.dropbox.com/scl/fi/3o3ne0nh9bdiob5vpxhd0/OVRMetricsTool_v1.6.5.apk?rlkey=aqxrvwfx4qb66tnsuz6hnzqpf
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_bujaegerinst
call :_cdc
set dlappl=Bugjaeger-Premium-v5.0-full.apk
set curllink=https://www.dropbox.com/scl/fi/s098v5stzlktj91gkkpsp/Bugjaeger-Premium-v5.0-full.apk?rlkey=qp99kc6q6nm7j89r53gh5f8q0
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_termuxinst
call :_cdc
set dlappl=termux-app_v0.118.0.apk
set curllink=https://www.dropbox.com/scl/fi/hsd3yiq0nuj86wxuih5mf/termux-app_v0.118.0.apk?rlkey=20ofy3qyiv3kzlkx3zeltj55d
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_ocwirelessadbinst
call :_cdc
set dlappl=tdg.oculuswirelessadb-1.2.apk
set curllink=https://www.dropbox.com/scl/fi/04aodeddzojdwpkqqi2zf/tdg.oculuswirelessadb-1.2.apk?rlkey=v3gl22fr99zqfjsocoatt0lp0
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_rcxinst
call :_cdc
set dlappl=rcx-v1.12.2-arm64-v8a-release.apk
set curllink=https://www.dropbox.com/scl/fi/tdot38l2jo0t5ivrejkk2/rcx-v1.12.2-arm64-v8a-release.apk?rlkey=uk2brp08rg42obtb2r09nocja
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_totalcomminst
call :_cdc
set dlappl=tcandroid341d-universal.apk
set curllink=https://www.dropbox.com/scl/fi/lf4rdasnp9m1un9x78823/tcandroid341d-universal.apk?rlkey=mxgfqoasl5sov1lggi5fad83q
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_shscriptinst
call :_cdc
set dlappl=SHScriptRunner_1.10.apk
set curllink=https://www.dropbox.com/scl/fi/qfto9bm36pwfnqvnv0h63/SHScriptRunner_1.10.apk?rlkey=falgqxtj7m30eiao2cgzq9b5r
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_addguiinst
call :_cdc
set dlappl=ADB_vV3.3.154.apk
set curllink=https://www.dropbox.com/scl/fi/n19q1ua5i9v8sxtghb1fq/ADB_vV3.3.154.apk?rlkey=naa6lwrulz9betslygqkgdic1
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_ismeterinst
call :_cdc
set dlappl=InternetSpeedMeter+v1.5.9-pro.apk
set curllink=https://www.dropbox.com/scl/fi/digww6psdpwjhlhen8wqf/InternetSpeedMeter-v1.5.9-pro.apk?rlkey=56lp8ij9x0raokoqpwqjqwgz1
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_scriptmanager
call :_cdc
set dlappl=ScriptManager_50.apk
set curllink=https://www.dropbox.com/scl/fi/2w1sy48v9tti4i3mdstqf/ScriptManager_50.apk?rlkey=aejdquia8mxih0llaj8e3n04p
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_passthrough
call :_cdc
set dlappl=Passthrough.apk
set curllink=https://www.dropbox.com/scl/fi/0ccpmjiy49dya85ex32s1/Passthrough.apk?rlkey=o9g7mxnki703x67w3jq2gzvnf
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_apktoolm
call :_cdc
set dlappl=Apktool_M_v2.4.0.apk
set curllink=https://www.dropbox.com/scl/fi/kki8jgeg1ue4h1zdej0u4/Apktool_M_v2.4.0.apk?rlkey=ox6rgx6tk8mq5ohnwnhnfn6wq
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_appcloner
call :_cdc
set dlappl=AppCloner_v.2.17.14.apk
set curllink=https://www.dropbox.com/scl/fi/beg8zfmonlwa2dhrt1j69/AppCloner_v.2.17.14.apk?rlkey=qym706wduzh6al7jyg7tmcqrj
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_privatequest
call :_cdc
set dlappl=private_quest_1_1.apk
set curllink=https://www.dropbox.com/scl/fi/mx6tunr8776gjoxkcxbqx/private_quest_1_1.apk?rlkey=kgxa45smrd5xsp09u6b8egcnv
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_mpatcher
call :_cdc
set dlappl=MPatcher_v5.1.apk
set curllink=https://www.dropbox.com/scl/fi/707y1qidoxfhr534jx9cl/MPatcher_v5.1.apk?rlkey=5i0a8nc5b8euvie86dc98w5ca
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_steamlink
call :_cdc
set dlappl=com.valvesoftware.steamlinkvr.apk
set curllink=https://www.dropbox.com/scl/fi/dyyb69ijfpfo71u1l2u9k/com.valvesoftware.steamlinkvr.apk?rlkey=p3ywcdmnf4isyzbirmdjhbf00
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_autostartapp
call :_cdc
set dlappl=com.valvesoftware.steamlinkvr.apk
set curllink=https://www.dropbox.com/scl/fi/r3leqbxs1t2prltax3hki/AutoStart.apk?rlkey=2ulaav1rffhypi13k9z91ee9j
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps


:: Установка медиа приложений
:_skyboxinst
call :_cdc
set dlappl=xyz.skybox.player.ovr.apk
set curllink=https://www.dropbox.com/scl/fi/5k90nm5z01v4eal7fnvku/xyz.skybox.player.ovr.apk?rlkey=dz5jfnp7jdm7kb0xq23iq1hl0
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_pigasusinst
call :_cdc
set dlappl=com.hanginghatstudios.pigasus.apk
set curllink=https://www.dropbox.com/scl/fi/dlf05gqkkhgcn0i608sfk/com.hanginghatstudios.pigasus.apk?rlkey=dbdkjtlms140nd09s9f61wa0p
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_4xplayerinst
call :_cdc
set dlappl=cn.vr4p.oculus4xvplayerov.apk
set curllink=https://www.dropbox.com/scl/fi/h5havtw8y9ys1bm7ew8lq/cn.vr4p.oculus4xvrplayerov.apk?rlkey=761eairh8wgoh5t0br4qx5nz6
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_moonplayerinst
call :_cdc
set dlappl=mr.com.rockvr.moonplayer.apk
set curllink=https://www.dropbox.com/scl/fi/6q5c2tipr70mkb347gfa5/com.rockvr.moonplayer.apk?rlkey=0nvp1xhmwn43zqs8uhik6bxnx
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_hsphereinst
call :_cdc
set dlappl=net.heresphere.vrvideoplayer.apk
set curllink=https://www.dropbox.com/scl/fi/w2ig8dvc9d1z99l0axyub/com.heresphere.vrvideoplayer.apk?rlkey=xuupc32840rkeuipfxuqu9o2t
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_vlcinst
call :_cdc
set dlappl=VLC_v.3.5.4.apk
set curllink=https://www.dropbox.com/scl/fi/27s1l3ufinvo7nwle42gl/VLC_v.3.5.4.apk?rlkey=z3o7t78pwa2osevjkqx31ixdp
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_torserveinst
call :_cdc
set dlappl=TorrServe_MatriX.127.Client-release.apk
set curllink=https://www.dropbox.com/scl/fi/hjuggqqh1tkqoave1m4au/TorrServe_MatriX.127.Client-release.apk?rlkey=4wydeq9fdkhbencmwz9sjqzl1
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_filmixinst
call :_cdc
set dlappl=Filmix-UHD.apk
set curllink=https://www.dropbox.com/scl/fi/z81uwhmszn8gwyyoirqzn/Filmix-UHD.apk?rlkey=wa157oc0evsa0wz3ewpvf5mt5
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps

:_kinohdinst
call :_cdc
set dlappl=Kino_HD_grey-3.1.1.apk
set curllink=https://www.dropbox.com/scl/fi/xh79tc13c1440q3qrp8w3/Kino_HD_grey-3.1.1.apk?rlkey=4sz3qc8lkaqufudeep7bzucxb
call :_dlinstall
call :_prevmenu
goto _InstallSoftwareApps


:: VPN клиенты и драйверы
:_ultrasurf
call :_cdc
set dlappl=Ultrasurf.apk
set curllink=https://www.dropbox.com/s/zsbsjok9vc3veyr/Ultrasurf.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_ultrasurfl
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
@start " " "https://ultrasurf.us/"
call :_prevmenu
goto _installmenugen

:_winscribe
call :_cdc
set dlappl=Windscribe.apk
set curllink=https://www.dropbox.com/s/hwswnf78p3l63t2/Windscribe.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_winscribel
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
rem @start " " "https://rus.windscribe.com/knowledge-base/articles/russian-get-started-on-android"
rem call :_prevmenu
goto _installmenugen

:_openvpnc
call :_cdc
set dlappl=OpenVPNc.apk
set curllink=https://www.dropbox.com/s/zu6e68iwn9bydaq/OpenVPNc.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_openvpncl
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
rem @start " " "https://4pda.to/forum/index.php?s=&showtopic=1025596&view=findpost&p=116398198"
rem call :_prevmenu
goto _installmenugen

:_outline
call :_cdc
set dlappl=outline.apk
set curllink=https://www.dropbox.com/s/lpcrtqs93ia0jxb/outline.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_outlinel
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
rem @start " " "https://4pda.to/forum/index.php?act=findpost&pid=113691944&anchor=Spoil-113691944-10"
rem @echo А также в шлеме откроется браузер с сайтом, где можно бесплатно взять ключ
@echo A browser will open on the headset with a website where you can get a free key.
@%MYFILES%\adb shell am start -n "com.oculus.vrshell/.MainActivity" -d apk://com.oculus.browser -e uri https://outline.network/ 1>nul 2>nul
::@%MYFILES%\adb shell am start -a android.intent.action.VIEW -d https://outline.network/  1>NUL
call :_prevmenu
goto _installmenugen

:_adguard
call :_cdc
set dlappl=AdguardVPN.apk
set curllink=https://www.dropbox.com/s/zkoh60dpe589udt/AdguardVPN.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_adguardl
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
rem @start " " "https://adguard.com/ru/blog/introducing-adguard-vpn-for-android.html"
rem call :_prevmenu
goto _installmenugen

:_shadowsocks
call :_cdc
set dlappl=Shadowsocks.apk
set curllink=https://www.dropbox.com/s/jel793qjlwrptyq/Shadowsocks.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_shadowsocksl
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
rem @start " " "https://4pda.to/forum/index.php?showtopic=744431&st=3060"
rem call :_prevmenu
goto _installmenugen

:_psiphon
call :_cdc
set dlappl=Psiphon.apk
set curllink=https://www.dropbox.com/s/4mrtq2eccafdlhe/Psiphon.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_psiphonl
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
rem @start " " "https://psiphon.ca/ru/psiphon-guide.html"
rem call :_prevmenu
goto _installmenugen

:_proton
call :_cdc
set dlappl=ProtonVPN.apk
set curllink=https://www.dropbox.com/s/og24czvmkn7p4qs/ProtonVPN.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_protonl
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
rem @start " " "https://protonvpn.com/ru/free-vpn/android"
rem call :_prevmenu
goto _installmenugen

:_freeplanet
call :_cdc
set dlappl=freevpnplanet.apk
set curllink=https://www.dropbox.com/s/do8n9xwvdj4oo47/freevpnplanet.apk
call :_dlinstall
call :_prevmenu
goto _installmenugen

:_freeplanetl
rem @echo Через секунду откроется ссылка на страничку с помощью по настройке
rem @start " " "https://support.freevpnplanet.com/hc/ru"
rem call :_prevmenu
goto _installmenugen

:_setdrivers
call :_CheckOSVersion
if %osversion%==10 goto _setdrivers10

:_setdrivers7
set dlappl=ocdrv7.zip
set dlcat=%dlappl:~0,-4%
set curllink=https://www.dropbox.com/s/ockvsja022hz2ug/ocdrv7.zip
set "startfile=oculus-driver.exe"
rem StartRusTextBlock
rem set "instmess=Готово. Драйверы Oculus установлены."
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=Done. Oculus drivers installed."
rem EndEngTextBlock
goto _dlwinapps

:_setdrivers10
set dlappl=ocdrv10-17117.zip
set dlcat=%dlappl:~0,-4%
@rd %cd%\%dlcat% /Q /S 1>nul 2>nul
@del %dlappl% /Q 1>nul 2>nul
set curllink=https://www.dropbox.com/scl/fi/8jw003gwsc5zdkt42afgq/ocdrv10-17117.zip?rlkey=01t7nfljpsi5d3mvf463f4tou
set "startfile=oculus-driver.exe"
rem StartRusTextBlock
rem set "instmess=Готово. Драйверы Oculus установлены."
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=Done. Oculus drivers installed."
rem EndEngTextBlock
goto _dlwinapps

:_setdriverexp
@echo.
@echo.
@echo   -------------------------------------------------------------------------
rem StartRusTextBlock
rem @echo   Это самая новая версия драйверов, они могут не установиться. 
rem @echo   Продолжайте, если только хорошо понимаете, что делаете.
rem @echo   Если эти драйверы не установятся, поставьте поверх них обычные, пункт P.
rem @echo. 
rem @echo  Для продолжения нажмите любуюу кнопку
rem @echo  Для выхода - закройте программу Quas. 
rem EndRusTextBlock
rem StartEngTextBlock
@echo   This is the latest version of drivers, they may not install. 
@echo   Proceed only if you understand what you are doing.
@echo   If these drivers fail to install, install regular drivers over them, option P.
@echo. 
@echo  Press any key to continue
@echo  To exit - close the Quas program.
rem EndEngTextBlock
@echo. 
@echo.
@pause >nul
set dlappl=ocdrv10-17202.zip
set dlcat=%dlappl:~0,-4%
@rd %cd%\%dlcat% /Q /S 1>nul 2>nul
@del %dlappl% /Q 1>nul 2>nul
set curllink=https://www.dropbox.com/scl/fi/ekedbhs5o2x0qd0vc3wmv/ocdrv10-17202.zip?rlkey=hokszixka1c3sax8m54gl8f6y
set "startfile=oculus-driver.exe"
rem StartRusTextBlock
rem set "instmess=Готово. Драйверы Oculus установлены."
rem EndRusTextBlock
rem StartEngTextBlock
set "instmess=Done. Oculus drivers installed."
rem EndEngTextBlock
goto _dlwinapps

:_dlwingamesapps
@echo ----------------------------------------
rem StartRusTextBlock
rem @echo Скачивание...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Downloading...
rem EndEngTextBlock
@curl -LJkO %curllink% -#
rem @%myfiles%\7z.exe x "%cd%\%dlappl%" -o"%cd%\%dlcat%\" 1>NUL 2>&1
rem StartRusTextBlock
@echo Установка... Ждите около минуты...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Installing... Please wait for about a minute...
rem EndEngTextBlock
rem @start " " "%cd%\%dlcat%\%startfile%"
@echo ----------------------------------------
@echo = Готово.
@echo.
@echo %instmess%
exit /b
rem call :_prevmenu
rem goto _installmenugen


:_dlwinapps
@echo ----------------------------------------
rem StartRusTextBlock
rem @echo Скачивание...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Downloading...
rem EndEngTextBlock
@curl -LJkO %curllink%  -#
@%myfiles%\7z.exe x "%cd%\%dlappl%" -o"%cd%\%dlcat%\" 1>NUL 2>&1
rem StartRusTextBlock
rem @echo Установка... Ждите около минуты...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Installing... Please wait for about a minute...
rem EndEngTextBlock
@start " " "%cd%\%dlcat%\%startfile%"
@ping localhost -n 50 1>nul 2>&1
@rd %cd%\%dlcat% /Q /S 1>nul 2>nul
@del %dlappl% /Q 1>nul 2>nul
@echo ----------------------------------------
@echo %instmess%
call :_prevmenu
goto _installmenugen

:_dlinstall
@del /Q /F %dlappl% 1>nul 2>nul
@echo -----------------------------------------------------
rem StartRusTextBlock
rem @echo = Скачивание...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Downloading...
rem EndEngTextBlock
@curl -LJko %dlappl% %curllink% -#
@FOR /F "tokens=2 delims='" %%g IN ('@%MYFILES%\aapt2 dump badging %dlappl% ^| findstr /i /c:"application-label:"') DO set applabel=%%g
@echo ---
rem StartRusTextBlock
rem @echo = Установка...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Installing...
rem EndEngTextBlock
@%MYFILES%\ADB install -r -g -d --no-streaming "%dlappl%"  1>NUL
call :_erlvl
@del /Q /F %dlappl%
@echo --------------------------------------------------------
rem StartRusTextBlock
rem @echo Готово. Приложение "%applabel%" установлено.
rem EndRusTextBlock
rem StartEngTextBlock
@echo Done. Application "%applabel%" installed.
rem EndEngTextBlock
exit /b

:_qctprocedure

@echo off

:_SendToMenu
set sendtolnk=
set qtarget=
set sendtofoldercmdfile=
set sendtofolder=
set sendtofoldercmdfolder=
@echo off
cls
call :_hatqct
call :_hatmenuqct
@echo.
rem StartRusTextBlock
rem @echo  Установить ярлыки в контекстное меню Отправить:
rem @echo.
rem @echo    A.  Файлы на Quest в OBB
rem @echo    B.  Файлы на Quest в Data
rem @echo    C.  Файлы на Quest в Movies
rem @echo    D.  Файлы на Quest в Download
rem @echo    E.  Файлы на Quest в корень Sdcard
rem @echo.
rem @echo    G.  Установка APK+OBB
rem @echo    I.  Установка через INSTALL.TXT
rem @echo.
rem @echo    V.  Установить все ярлыки разом
rem @echo.
rem @echo  Дополнительные действия (ярлыки не создаются):
rem @echo.
rem @echo    H.  Описание программы (help)
rem @echo    X.  Удалить установленные ярлыки и файлы
rem @echo    Y.  Вручную удалить установленные ярлыки и файлы
rem @echo.
rem @echo.
rem @echo  ВАЖНО:
rem @echo.
rem @echo    В процессе установки необходимые файлы и сценарии командной строки
rem @echo    будут размещены в каталоге C:\Temp\SendToHeadset.
rem @echo.
rem @echo    Ярлыки создаются в каталоге \AppData\Microsoft\Windows\SendTo
rem @echo    и станут доступны по правой кнопке мыши в контекстном меню Отправить.
rem @echo.
rem @echo    При выборе пункта "Удалить установленные ярлыки и файлы"
rem @echo    всё ранее установленное будет полностью удалено: 
rem @echo    программы, ярлыки и весь каталог SendToHeadset.
rem @echo.
rem @echo    Установка приложений и копирование выполняются сразу после выбора 
rem @echo    контекстной опции, без дополнительного подтверждения.
rem EndRusTextBlock
rem StartEngTextBlock
@echo Install shortcuts in the context menu Send To:
@echo.
@echo    A. Files to Quest in OBB
@echo    B. Files to Quest in Data
@echo    C. Files to Quest in Movies
@echo    D. Files to Quest in Download
@echo    E. Files to Quest in the root Sdcard
@echo.
@echo    G. Install APK+OBB
@echo    I. Install via INSTALL.TXT
@echo.
@echo    V. Install all shortcuts together
@echo.
@echo  Additional actions (no shortcuts created):
@echo.
@echo    H. Program description (help)
@echo    X. Remove installed shortcuts and files
@echo    Н. Remove installed shortcuts and files manually
@echo.
@echo.
@echo IMPORTANT:
@echo.
@echo.
@echo    During installation, necessary files and command scripts
@echo    will be placed in the directory C:\Temp\SendToHeadset.
@echo.
@echo    Shortcuts are created in the directory \AppData\Microsoft\Windows\SendTo
@echo    and will be available via right-click in the Send To context menu.
@echo.
@echo    When selecting "Remove installed shortcuts and files"
@echo    all previously installed items will be completely removed:
@echo    programs, shortcuts, and the entire SendToHeadset directory.
@echo.
@echo    Application installation and copying will occur immediately after choosing
@echo    the context menu option, without additional confirmation.
rem EndEngTextBlock
@echo.
@echo.
@set "choice="
rem StartRusTextBlock
rem @Set /p choice="Выберите пункт меню и нажмите Enter (H - для помощи): "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="Select a menu number and press Enter (H - help) : "
rem EndEngTextBlock
@echo.
if not defined choice goto _SendToMenu
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (call :_SendToOBB && call :_InstallLnkMessage)
if /i "%choice%"=="b" (call :_SendToData && call :_InstallLnkMessage)
if /i "%choice%"=="c" (call :_SendToMovies && call :_InstallLnkMessage)
if /i "%choice%"=="d" (call :_SendToDownloads && call :_InstallLnkMessage)
if /i "%choice%"=="e" (call :_SendToSDCARD && call :_InstallLnkMessage)
if /i "%choice%"=="g" (call :_SendToInstallAPK && call :_InstallLnkMessage)
if /i "%choice%"=="i" (call :_SendToInstallTxt && call :_InstallLnkMessage)
if /i "%choice%"=="h" (call :_DescriptionContextTool)
rem StartRusTextBlock
rem if /i "%choice%"=="v" (@echo  = Установка ярлыков.. && call :_SendToDownloads && call :_SendToMovies && call :_SendToOBB && call :_SendToSDCARD && call :_SendToInstallAPK && call :_SendToInstallTxt && call :_SendToData && call :_InstallLnkMessageAll)
rem EndRusTextBlock
rem StartEngTextBlock
if /i "%choice%"=="v" (@@echo = Installing shortcuts... && call :_SendToDownloads && call :_SendToMovies && call :_SendToOBB && call :_SendToSDCARD && call :_SendToInstallAPK && call :_SendToInstallTxt && call :_SendToData && call :_InstallLnkMessageAll)
rem EndEngTextBlock
if /i "%choice%"=="x" (GOTO _DeleteLnksFolder)
if /i "%choice%"=="y" (explorer shell:sendto & explorer c:\temp)

@cls
goto _SendToMenu

:_SendToSDCARD
call :_SetVariableContext
call :_CopyOnlyADBFiles
rem StartRusTextBlock
rem set sendtolnk=Файлы на Quest в корень Sdcard
rem set copyname=корень SDCARD
rem EndRusTextBlock
rem StartEngTextBlock
set sendtolnk=Files onto Quest to the root of Sdcard
set copyname=root SDCARD
rem EndEngTextBlock
set qtarget=/sdcard/
set sendtofoldercmdfile=sendsd.cmd
set ico=ocwt.ico
call :_CreateCmdForLink
call :_CreateLnkFromCmd
::goto :_InstallLnkMessage
exit /b


:_SendToData
call :_SetVariableContext
call :_CopyOnlyADBFiles
rem StartRusTextBlock
rem set sendtolnk=Файлы на Quest в Data
rem EndRusTextBlock
rem StartEngTextBlock
set sendtolnk=Files onto Quest to OBB folder
rem EndEngTextBlock
set copyname=Data
set qtarget=/sdcard/Android/data/
set sendtofoldercmdfile=senddt.cmd
set ico=ocwt.ico
call :_CreateCmdForLink
call :_CreateLnkFromCmd
::goto :_InstallLnkMessage
exit /b


:_SendToOBB
call :_SetVariableContext
call :_CopyOnlyADBFiles
rem StartRusTextBlock
rem set sendtolnk=Файлы на Quest в OBB
rem EndRusTextBlock
rem StartEngTextBlock
set sendtolnk=Files onto Quest to OBB folder
rem EndEngTextBlock
set copyname=OBB
set qtarget=/sdcard/Android/obb/
set sendtofoldercmdfile=sendob.cmd
set ico=ocwt.ico
call :_CreateCmdForLink
call :_CreateLnkFromCmd
::goto :_InstallLnkMessage
exit /b

:_SendToMovies
call :_SetVariableContext
call :_CopyOnlyADBFiles
rem StartRusTextBlock
rem set sendtolnk=Файлы на Quest в Movies
rem EndRusTextBlock
rem StartEngTextBlock
set sendtolnk=Files onto Quest to Movies folder
rem EndEngTextBlock
set copyname=Movies
set qtarget=/sdcard/Movies/
set sendtofoldercmdfile=sendmv.cmd
set ico=ocwt.ico
call :_CreateCmdForLink
call :_CreateLnkFromCmd
::goto :_InstallLnkMessage
exit /b

:_SendToDownloads
call :_SetVariableContext
call :_CopyOnlyADBFiles
rem StartRusTextBlock
rem set sendtolnk=Файлы на Quest в Download
rem EndRusTextBlock
rem StartEngTextBlock
set sendtolnk=Files onto Quest to Download folder
rem EndEngTextBlock
set copyname=Download
set qtarget=/sdcard/Download/
set sendtofoldercmdfile=senddl.cmd
set ico=ocwt.ico
call :_CreateCmdForLink
call :_CreateLnkFromCmd
::goto :_InstallLnkMessage
exit /b

:_SendToInstallAPK
call :_SetVariableContext
call :_CopyAllFiles
call :_qctlangset
rem StartRusTextBlock
rem set sendtolnk=Установка APK+OBB
rem EndRusTextBlock
rem StartEngTextBlock
set sendtolnk=APK+OBB Installation
rem EndEngTextBlock
set sendtofoldercmdfile=qidcontext%qtlang%.cmd
set ico=ocgr.ico
call :_CreateLnkFromCmd
::goto :_InstallLnkMessage
exit /b

:_SendToInstallTxt
call :_SetVariableContext
call :_CopyAllFiles
call :_qctlangset
rem StartRusTextBlock
rem set sendtolnk=Установка через INSTALL.TXT
rem EndRusTextBlock
rem StartEngTextBlock
set sendtolnk=Installation via INSTALL.TXT
rem EndEngTextBlock
set sendtofoldercmdfile=qidcontext%qtlang%.cmd
set ico=ocgr.ico
call :_CreateLnkFromCmd
::goto :_InstallLnkMessage
exit /b

:_DeleteLnksFolder
::call :_SetVariableContext
@taskkill /im adb.exe /f 1>nul 2>nul
set sendtofolder=%appdata%\Microsoft\Windows\SendTo
set sendtofoldercmdfolder=C:\Temp\SendToHeadset
@ping localhost -n 2 1>nul 2>nul
rd %sendtofoldercmdfolder% /S /Q 1>nul 2>nul
rem StartRusTextBlock
rem del "%appdata%\Microsoft\Windows\SendTo\Файлы на Quest в Movies*" /q 1>nul 2>nul
rem del "%appdata%\Microsoft\Windows\SendTo\Файлы на Quest в OBB*" /q 1>nul 2>nul
rem del "%appdata%\Microsoft\Windows\SendTo\Файлы на Quest в Data*" /q 1>nul 2>nul
rem del "%appdata%\Microsoft\Windows\SendTo\Файлы на Quest в Download*" /q 1>nul 2>nul
rem del "%appdata%\Microsoft\Windows\SendTo\Файлы на Quest в корень Sdcard*" /q 1>nul 2>nul
rem del "%appdata%\Microsoft\Windows\SendTo\Установка APK+OBB*" /q 1>nul 2>nul
rem del "%appdata%\Microsoft\Windows\SendTo\Установка через INSTALL.TXT*" /q 1>nul 2>nul
rem EndRusTextBlock
rem StartEngTextBlock
del "%appdata%\Microsoft\Windows\SendTo\Files to Quest in Movies*" /q 1>nul 2>nul
del "%appdata%\Microsoft\Windows\SendTo\Files to Quest in OBB*" /q 1>nul 2>nul
del "%appdata%\Microsoft\Windows\SendTo\Files to Quest in Data*" /q 1>nul 2>nul
del "%appdata%\Microsoft\Windows\SendTo\Files to Quest in Download*" /q 1>nul 2>nul
del "%appdata%\Microsoft\Windows\SendTo\Files to Quest in the root of Sdcard*" /q 1>nul 2>nul
del "%appdata%\Microsoft\Windows\SendTo\APK+OBB Installation*" /q 1>nul 2>nul
del "%appdata%\Microsoft\Windows\SendTo\Installation via INSTALL.TXT*" /q 1>nul 2>nul
rem EndEngTextBlock
endlocal
@echo  =====================================================
rem StartRusTextBlock
rem @echo  = Все установленные ранее ярлыки и программы удалены
rem @echo  -----
rem @echo ^>^>^> Нажмите любую кнопку для возврата в меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = All previously installed shortcuts and programs have been removed
@echo  -----
@echo ^>^>^> Press any key to return to the menu ^<^<^<
rem EndEngTextBlock
@pause >nul
@echo.
goto :_SendToMenu

:_CreateCmdForLink
call :_SetVariableContext
@del %sendtofoldercmdfolder%\%sendtofoldercmdfile% /q 1>nul 2>nul
@echo @echo Off>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @chcp 65001 1^>nul 2^>nul>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem StartRusTextBlock
rem @echo @echo ADB запускается....>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndRusTextBlock
rem StartEngTextBlock
@echo @echo ADB is starting...>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndEngTextBlock
@echo @%sendtofoldercmdfolder%\adb devices 1^>nul 2^>nul>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @FOR ^/F "skip=1 tokens=2" %%%%G IN ^('%sendtofoldercmdfolder%\adb devices ^^^| findstr /i /c:"device"'^) DO set adbdevices=%%%%G>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @if [%%adbdevices%%]==[] goto _NF>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @cls>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @goto :_sendcopy>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo :_NF>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @cls>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem StartRusTextBlock
rem @echo @echo     +++++ Шлем не найден +++++>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndRusTextBlock
rem StartEngTextBlock
@echo @echo     +++++ Headset not found +++++>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndEngTextBlock
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem StartRusTextBlock
rem @echo @echo  Проверьте кабельное соединение и правильность установки драйверов.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem @echo @echo  Затем перезапустите эту программу снова.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndRusTextBlock
rem StartEngTextBlock
@echo @echo  Check the cable connection and the correctness of driver installation.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo  Then restart this program again.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndEngTextBlock
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @goto :_sendexit>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo :_sendcopy>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @setlocal enableextensions enabledelayedexpansion>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @for ^/f "tokens=*" %%%%e in ^("%ap%"^) do ^( >> %sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @set "fullpathfile=%%%%~dpe">>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @set "file=%%%%~nxe">>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo ------------->>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem StartRusTextBlock
rem @echo @echo = Копируем в %copyname%..>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndRusTextBlock
rem StartEngTextBlock
@echo @echo = Copying to %copyname%..>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndEngTextBlock
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @%sendtofoldercmdfolder%\adb.exe push "!fullpathfile!!file!" -p "/sdcard/">>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @%sendtofoldercmdfolder%\adb shell mv /sdcard/!file! "%qtarget%">>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo ^)>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo ^====================================================>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem StartRusTextBlock
rem @echo @echo ^= Копирование завершено>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndRusTextBlock
rem StartEngTextBlock
@echo @echo ^= Copying completed>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndEngTextBlock
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo goto :_exittimeout>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo :_sendexit>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem StartRusTextBlock
rem @echo @echo ^^^>^^^>^^^> Нажмите любую кнопку для выхода ^^^<^^^<^^^<>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndRusTextBlock
rem StartEngTextBlock
@echo @echo ^^^>^^^>^^^> Press any key to exit ^^^<^^^<^^^<>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndEngTextBlock
@echo @pause ^>nul>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @exit>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo :_exittimeout>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo.>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem StartRusTextBlock
rem @echo @echo ^^^>^^^>^^^> Нажмите любую кнопку для выхода из программы ^^^<^^^<^^^<>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem @echo @echo               или подождите пять секунд>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndRusTextBlock
rem StartEngTextBlock
@echo @echo ^^^>^^^>^^^> Press any key to exit the program ^^^<^^^<^^^<>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @echo               or wait for five seconds>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
rem EndEngTextBlock
@echo @timeout ^5>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
@echo @exit>>%sendtofoldercmdfolder%\%sendtofoldercmdfile%
exit /b

:_CreateLnkFromCmd
@mshta vbscript:Execute("Set x=CreateObject(""WScript.Shell"").CreateShortcut(""%sendtofolder%\%sendtolnk%.lnk""):x.IconLocation=""%sendtofoldercmdfolder%\%ico%"":x.TargetPath=""%sendtofoldercmdfolder%\%sendtofoldercmdfile%"":x.WorkingDirectory=""%sendtofoldercmdfolder%"":x.Save():Close()")
exit /b

:_CopyAllFiles
@xcopy %myfiles%\aapt2.exe %sendtofoldercmdfolder% /y 1>nul 2>nul
:_CopyOnlyADBFiles
@xcopy %myfiles%\ocwt.ico %sendtofoldercmdfolder% /y 1>nul 2>nul
@xcopy %myfiles%\ocgr.ico %sendtofoldercmdfolder% /y 1>nul 2>nul
rem @xcopy %~dp0ocwt.ico %sendtofoldercmdfolder% /y 1>nul 2>nul
rem @xcopy %~dp0ocgr.ico %sendtofoldercmdfolder% /y 1>nul 2>nul

@xcopy %myfiles%\adb.exe %sendtofoldercmdfolder% /y 1>nul 2>nul
@xcopy %myfiles%\AdbWinApi.dll %sendtofoldercmdfolder% /y 1>nul 2>nul
@xcopy %myfiles%\AdbWinUsbApi.dll %sendtofoldercmdfolder% /y 1>nul 2>nul

@xcopy %myfiles%\qidcontext%qtlang%.cmd %sendtofoldercmdfolder% /y 1>nul 2>nul
rem @xcopy %~dp0qidcontext.cmd %sendtofoldercmdfolder% /y 1>nul 2>nul

exit /b

:_InstallLnkMessage
@echo  ==================================================
rem StartRusTextBlock
rem @echo  = Установлен ярлык "%sendtolnk%"
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Shortcut "%sendtolnk%" installed
rem EndEngTextBlock
@echo  -----

:_InstallLnkMessageAll
@echo  ==================================================
rem StartRusTextBlock
rem @echo  = Установлены все ярлыки.
rem @echo  -----
rem @echo ^>^>^> Нажмите любую кнопку для возврата в меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = All shortcuts installed.
@echo  -----
@echo ^>^>^> Press any key to return to the menu ^<^<^<
rem EndEngTextBlock
@pause >nul
@echo.
goto _SendToMenu

:_SetVariableContext
:: Закомментировать на релизе
rem @set myfiles=d:\Quest2\_Cmd\__Quac\2.7.0\Source

rem @set myfiles=d:\Quest2\adb
@set sendtofolder=%appdata%\Microsoft\Windows\SendTo
@set sendtofoldercmdfolder=C:\Temp\SendToHeadset
@md %sendtofoldercmdfolder% 1> nul 2>nul
@set percents=%%%
@set ap=%%%^*
exit /b

:_DescriptionContextTool
cls
call :_hatqct
@echo.
rem StartRusTextBlock
rem @echo   ОПИСАНИЕ ПРОГРАММЫ:
rem @echo.
rem @echo    Программа предназначена для установки ярлыков в контекстное меню.
rem @echo    После работы программы в меню "Отправить" станут доступны следующие опции:
rem @echo.
rem @echo      Файлы на Quest в OBB                    = отправка файлов на шлем в каталог OBB
rem @echo      Файлы на Quest в Movies                 = отправка файлов на шлем в каталог Movies
rem @echo      Файлы на Quest в Download               = отправка файлов на шлем в каталог Download
rem @echo      Файлы на Quest в корень Sdcard          = отправка файлов на шлем в корневой каталог
rem @echo      Установка APK+OBB                       = установка приложений на шлем. 
rem @echo      Установка через INSTALL.TXT   [EXP]     = установка приложений через сценарий install.txt
rem @echo.
rem @echo    Также в программе доступны дополнительные действия:
rem @echo.
rem @echo      Установить все ярлыки разом            = установка сразу всех шести ярлыков 
rem @echo      Удалить установленные ярлыки и файлы   = полное удаление всего установленного ранее
rem @echo.
rem @echo    После того, как ярлыки созданы, программа больше не требуется, ее можно отложить
rem @echo    в сторонку до тех пор, прока не появится необходимость добавить или удалить ярлыки.
rem @echo.
rem @echo.
rem @echo   ИСПОЛЬЗОВАНИЕ ФУНКЦИЙ ПОСЛЕ УСТАНОВКИ ЯРЛЫКОВ:
rem @echo.
rem @echo      Отмечаем мышью один или несколько файлов, например, фильмов. Правой кнопкой мыши
rem @echo      кликаем на отмеченное и в контекстном меню "Отправить" выбираем нужный пункт,
rem @echo      например "Файлы на Quest в Movies".
rem @echo      Файлы будут скопированы на шлем в соответствующий каталог.
rem @echo      При необходимиости можно отмечать^/копировать и каталоги тоже. 
rem @echo. 
rem @echo      Для установки приложений кликаем правой кнопкой мыши на APK файл или каталог с игрой
rem @echo      и в меню "Отправить" выбираем "Установка APK+OBB". Игра будет установлены на шлем. 
rem @echo      Если с игрой идет каталог obb, он автоматически скопируется куда нужно.
rem @echo      Если в каталоге несколько игр, они будут установлены поочередно.
rem @echo.
rem @echo      Иногда в каталоге с игрой лежит файл install.txt. Как правило, в нем содержатся команды
rem @echo      для индивидуальной или специальной установки^/переустановки некоторых игр. Например,
rem @echo      у игр Doom 3 или Beat Saber нет каталогов с obb, вместо них множество отдельных файлов.
rem @echo      У Beat Saber, к тому же, часто в комплекте идет BMBF и установка должна производиться
rem @echo.     в определенном порядке. Именно этот сценарий установки и находится в файле install.txt
rem @echo      Установка с его помощью производится так же, как и APK, но через отдельный ярлык.
rem @echo.
rem @echo      Опция Удаление ярлыков вручную откроет каталоги С:\Temp и 
rem @echo      %userprofile%\AppData\Roaming\Microsoft\Windows\SendTo
rem @echo.
rem @echo.
rem @echo ^>^>^> Нажмите любую кнопку для возврата в меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo   PROGRAM DESCRIPTION:
@echo.
@echo    The program is designed to install shortcuts in the context menu.
@echo    After running the program, the following options will become available in the "Send to" menu:
@echo.
@echo      Files to Quest in OBB                    = send files to the headset to the OBB directory
@echo      Files to Quest in Movies                 = send files to the headset to the Movies directory
@echo      Files to Quest in Download               = send files to the headset to the Download directory
@echo      Files to Quest in the root of Sdcard     = send files to the headset to the root directory
@echo      APK+OBB Installation                     = installation of applications on the headset. 
@echo      Installation via INSTALL.TXT   [EXP]     = installation of applications via the install.txt script
@echo.
@echo    Additional actions are also available in the program:
@echo.
@echo      Install all shortcuts at once            = installing all six shortcuts at once
@echo      Remove installed shortcuts and files    = complete removal of everything previously installed
@echo.
@echo    Once the shortcuts are created, the program is no longer needed and can be set aside
@echo    until there is a need to add or remove shortcuts.
@echo.
@echo.
@echo   USING FUNCTIONS AFTER INSTALLING SHORTCUTS:
@echo.
@echo      Select one or more files with the mouse, for example, movies. Right-click
@echo      on the selected items, and in the context menu "Send to," choose the desired option,
@echo      for example, "Files to Quest in Movies."
@echo      The files will be copied to the headset in the corresponding directory.
@echo      If necessary, directories can also be selected/copied.
@echo. 
@echo      To install applications, right-click on the APK file or the game directory
@echo      and in the "Send to" menu, select "APK+OBB Installation." The game will be installed on the headset. 
@echo      If the game comes with an obb directory, it will be automatically copied where needed.
@echo      If there are multiple games in the directory, they will be installed one by one.
@echo.
@echo      Sometimes there is an install.txt file in the game directory. Usually, it contains commands
@echo      for individual or special installation/reinstallation of some games. For example,
@echo      games like Doom 3 or Beat Saber don't have obb directories, instead, they have many individual files.
@echo      Beat Saber often comes with BMBF, and the installation must be done
@echo      in a specific order. This installation scenario is in the install.txt file
@echo      Installation using it is the same as APK but through a separate shortcut.
@echo.
@echo.
@echo.
@echo ^>^>^> Press any key to return to the menu ^<^<^<
rem EndEngTextBlock
@pause >nul
@echo.
goto :_SendToMenu

:_hatqct
@cls
@echo ==================================================================================================
@echo          Quest Context Tool - created by Varset - v.1.1 - 13.08.23
@echo ==================================================================================================
@exit /b

:_hatmenuqct
@echo off
@echo.
@echo.
rem StartRusTextBlock
rem @echo    0.  Выход из программы
rem @echo    M.  Выход в Главное меню
rem EndRusTextBlock
rem StartEngTextBlock
@echo    0.  Exit the program
@echo    M.  Return to the Main Menu
rem EndEngTextBlock
@exit /b

:_oculuslink
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Стартовать Oculus Link
rem @echo    B.  Отключить Oculus Link
rem @echo    C.  Включить AirLink
rem @echo    D.  Отключить AirLink
rem @echo    E.  Устранить проблему подключения Airlink
rem @echo    F.  Сделать бэкап параметров подключения Airlink
rem @echo    G.  Очистить остатки с компьютера после удаления Oculus ПО
rem @echo    H.  Рассчитать значения динамического битрейта для Oculus Debug Tool
rem @echo    I.  Сброс настроек Oculus Debug Tools к дефолтным установкам
rem @echo    J.  Скачать и запустить установщик Oculus ПО Meta Quest Link
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Start Oculus Link
@echo    B.  Disconnect Oculus Link
@echo    C.  Enable AirLink
@echo    D.  Disable AirLink
@echo    E.  Fix AirLink connection issue
@echo    F.  Fix AirLink connection issue
@echo    G.  Clean after remove Oculus Home Softtware
@echo    H.  Calculate dynmaic birate
@echo    I.  Reset Oculus Debug Tools to default
@echo    J.  Download and run Meta Quest Link Oculus software installer
rem EndEngTextBlock
@echo.   
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _oculuslink
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _linkon)
if /i "%choice%"=="b" (GOTO _linkoff)
if /i "%choice%"=="c" (GOTO _alinkon)
if /i "%choice%"=="d" (GOTO _alinkoff)
if /i "%choice%"=="e" (GOTO _alinkdelmenu)
if /i "%choice%"=="f" (GOTO _alinkbackupmenu)
if /i "%choice%"=="g" (GOTO _oculusclean)
if /i "%choice%"=="h" (GOTO _offsetcalc)
if /i "%choice%"=="i" (GOTO _ODTDefaultResetMenu)
if /i "%choice%"=="j" (GOTO _MetaQuestLinkInstall)
@cls
goto _oculuslink

:_linkon
@%MYFILES%\adb shell am start -S com.oculus.xrstreamingclient/.MainActivity 1>nul 2>nul
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Oculus Link запущен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Oculus Link has started
rem EndEngTextBlock
@goto _returnmenu

:_linkoff
@%MYFILES%\adb shell am force-stop com.oculus.xrstreamingclient 1>nul 2>nul
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Oculus Link отключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Oculus Link has been disconnected
rem EndEngTextBlock
@goto _returnmenu

:_alinkon
@%MYFILES%\adb shell am broadcast -a "com.oculus.systemux.action.TOGGLE_AIRLINK" --ez enable_airlink 1 1>nul 2>nul
call :_erlvl
@echo ========================================
rem StartRusTextBlock
rem @echo  Oculus AirLink запущен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Oculus AirLink has started
rem EndEngTextBlock
@goto _returnmenu

:_alinkoff
@%MYFILES%\adb shell am broadcast -a "com.oculus.systemux.action.TOGGLE_AIRLINK" --ez enable_airlink 0 1>nul 2>nul
call :_erlvl
@echo  ======================================== 
rem StartRusTextBlock
rem @echo  = Oculus AirLink отключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Oculus AirLink has been disconnected
rem EndEngTextBlock
@goto _returnmenu

:_alinkdelmenu
cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo		0. Выход из программы
rem @echo		M. Выход в меню
rem @echo	    Enter. Подтвердить удаление параметров сопряжения
rem EndRusTextBlock
rem StartEngTextBlock
@echo		0. Exit program
@echo		M. Exit menu
@echo	    Enter. Confirm deleting pairing settings
rem EndEngTextBlock
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo  ВНИМАНИЕ!
rem @echo.
rem @echo    Процедура удалит некоторые файлы и записи реестра. 
rem @echo.
rem @echo.
rem @echo.
rem @echo  Будут удалены следующие файлы:
rem @echo.
rem @echo      C:\Users\%username%\AppData\Local\Oculus\Airlink\cert.pem
rem @echo      C:\Users\%username%\AppData\Local\Oculus\Airlink\cert_v55.pem
rem @echo.
rem @echo.
rem @echo  Ветки реестра и параметры:
rem @echo.
rem @echo      HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing
rem @echo      HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing_v55
rem @echo.
rem @echo.
rem EndRusTextBlock
rem StartEngTextBlock
@echo     ATTENTION!
@echo.
@echo  The procedure will remove some files and registry 
@echo.
@echo.
@echo.
@echo  The following directories and files will be deleted:
@echo.
@echo      C:\Users\%username%\AppData\Local\Oculus\Airlink\cert.pem
@echo      C:\Users\%username%\AppData\Local\Oculus\Airlink\cert_v55.pem
@echo.
@echo  Registry values and parameters will be deleted:
@echo.
@echo      HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing
@echo      HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing_v55
@echo.
@echo.
@echo.
rem EndEngTextBlock
@echo.
@echo.
@echo.
rem set choice=
set "choice=1"
rem StartRusTextBlock
rem Set /p choice="Выберите опцию меню и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
Set /p choice="Choose menu option and press Enter: "
rem EndEngTextBlock
rem call :_MenuChoiceEnter
@echo.
if not defined choice goto _alinkdelmenu
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="1" (GOTO _alinkdel)
goto _alinkdelmenu

:_alinkdel
@del /F /Q %userprofile%\AppData\Local\Oculus\Airlink\cert*.pem  2>&1 1> nul | findstr /i /V "" 1> nul 2>&1
rem StartRusTextBlock
rem if %errorlevel% == 0 @echo = Файл cert*.pem не найден && @goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
if %errorlevel% == 0 @echo = File cert*.pem not found && @goto _returnmenu
rem EndEngTextBlock
rem reg delete "HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing" /f
rem  1>nul 2>nul
reg delete "HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing_V55" /f
rem 1>nul 2>nul
pause
@echo  ======================================== 
rem StartRusTextBlock
rem @echo  = Файл cert.pem удален
rem @echo  = Файл cert_v55.pem удален
rem @echo  = Параметры реестра удалены
rem @echo.
rem @echo  ...Перезапуск сервисов Oculus, ждите...
rem EndRusTextBlock
rem StartEngTextBlock
@echo The cert*.pem file has been removed
@echo    Registry settings removed
@echo  Try connecting again via AirLink
rem EndEngTextBlock
call :_checkservices
@net stop OVRservice 1>nul 2>nul
@net start OVRservice  1>nul 2>nul
@echo ---
@echo  Попробуйте снова связять шлем по Airlink
goto _returnmenu


:_alinkbackupmenu
@echo off
@cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo		0. Выход из программы
rem @echo		M. Выход в меню
rem @echo	    Enter. Подтвердить бэкап настроек
rem @echo.
rem @echo.
rem @echo.
rem @echo.
rem @echo  ВНИМАНИЕ!
rem @echo.
rem @echo    Процедура сохранит файлы сертификатов и записи реестра. 
rem @echo.
rem @echo.
rem @echo.
rem @echo  Будут сохранены следующие файлы:
rem @echo.
rem @echo      C:\Users\%username%\AppData\Local\Oculus\Airlink\cert.pem
rem @echo      C:\Users\%username%\AppData\Local\Oculus\Airlink\cert_v55.pem
rem @echo.
rem @echo.
rem @echo  Ветки реестра и параметры:
rem @echo.
rem @echo      HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing
rem @echo      HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing_v55
rem @echo.
rem @echo.
rem EndRusTextBlock
rem StartEngTextBlock
@echo.
@echo.
@echo.
@echo.
@echo		0. Exit program
@echo		M. Exit menu
@echo	    Enter. Confirm backup pairing settings
@echo.
@echo.
@echo.
@echo     ATTENTION!
@echo.
@echo  The procedure will save certificate files and registry entries
@echo.
@echo.
@echo.
@echo  The following directories and files will be saved:
@echo.
@echo      C:\Users\%username%\AppData\Local\Oculus\Airlink\cert.pem
@echo      C:\Users\%username%\AppData\Local\Oculus\Airlink\cert_v55.pem
@echo.
@echo  Registry values and parameters will be saved:
@echo.
@echo      HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing
@echo      HKCU\SOFTWARE\Oculus\RemoteHeadset\AirLinkPairing_v55
@echo.
@echo.
@echo.
rem EndEngTextBlock
rem set choice=
set "choice=1"
rem StartRusTextBlock
rem Set /p choice="Выберите опцию меню и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
Set /p choice="Choose menu option and press Enter: "
rem EndEngTextBlock
rem call :_MenuChoiceEnter
@echo.
if not defined choice goto _alinkbackupmenu
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="1" (GOTO _alinkbackup)
goto _alinkbackupmenu

:_alinkbackup
@echo  ----------------------------------------
@xcopy /F /Q C:\Users\%username%\AppData\Local\Oculus\Airlink\cert*.pem *.* 1>nul 2>nul
rem StartRusTextBlock
rem @if errorlevel == 1 echo  = Файлы сертификатов не найдены
rem EndRusTextBlock
rem StartEngTextBlock
@if errorlevel == 1 echo  = No certificate files found
rem EndEngTextBlock
@reg export "HKCU\SOFTWARE\Oculus\RemoteHeadset" RemoteHeadset.reg 1>nul 2>nul
rem StartRusTextBlock
rem if errorlevel == 1 echo  = Параметры реестра не найдены
rem EndRusTextBlock
rem StartEngTextBlock
@if errorlevel == 1 echo  = Registry settings not found
rem EndEngTextBlock
@echo  ======================================== 
rem StartRusTextBlock
rem @echo  Параметры и файлы сохранены в текущем каталоге
rem @echo  [если они найдены]
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Settings and files are saved in the current directory
@echo  [if it found]
rem EndEngTextBlock
@goto _returnmenu

:_oculusclean
@echo off
@cls
call :_hat
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo  ВНИМАНИЕ!
rem @echo.
rem @echo    Процедура удалит мусорные каталоги, файлы и записи реестра, оставшиеся после удаления Oculus ПО. 
rem @echo    Еще раз убедитесь, что вы удалили Oculus ПО и перезагрузили компьютер после этого.
rem @echo.
rem @echo  Будут удалены следующие каталоги и файлы:
rem EndRusTextBlock
rem StartEngTextBlock
@echo     ATTENTION!
@echo.
@echo  The procedure will remove some directories, files and registry 
@echo  entries left after uninstalling the Oculus software.
@echo  Make sure you uninstall the Oculus software and restarted your computer after it.
@echo.
@echo  The following directories and files will be deleted:
rem EndEngTextBlock
@echo.
@echo      C:\Program Files\Oculus
@echo      C:\ProgramData\Oculus
@echo      %userprofile%\AppData\Local\Oculus
@echo      %userprofile%\AppData\LocalLow\Oculus
@echo      %userprofile%\AppData\Roaming\Oculus
@echo      %userprofile%\AppData\Roaming\OculusClient
@echo      %userprofile%\Documents\Dash
@echo      %userprofile%\Documents\Oculus Home
@echo      %userprofile%\AppData\Local\Oculus\Airlink\*.pem
@echo      %userprofile%\AppData\Local\Temp\Oculus
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Ветки реестра и параметры:
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Registry values and parameters will be deleted:
rem EndEngTextBlock
@echo.
@echo      HKEY_CURRENT_USER\SOFTWARE\Oculus
@echo      HKEY_CURRENT_USER\SOFTWARE\Oculus VR, LLC
@echo      HKEY_CURRENT_USER\SOFTWARE\Classes\oculus
@echo      HKEY_LOCAL_MACHINE\SOFTWARE\Oculus
@echo      HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Oculus VR, LLC
@echo      HKEY_CLASSES_ROOT\oculus
@echo      HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Oculus
@echo      HKLM\SOFTWARE\WOW6432Node\Khronos\OpenXR\1\AvailableRuntimes:
rem StartRusTextBlock
rem @echo        Параметр:  C:\Program Files\Oculus\Support\oculus-runtime\oculus_openxr_32.json
rem @echo   HKLM\SOFTWARE\Khronos\OpenXR\1\AvailableRuntimes:
rem @echo        Параметр:  С:\Program Files\Oculus\Support\oculus-runtime\oculus_openxr_64.json
rem EndRusTextBlock
rem StartEngTextBlock
@echo          Parameter:  C:\Program Files\Oculus\Support\oculus-runtime\oculus_openxr_32.json
@echo      HKLM\SOFTWARE\Khronos\OpenXR\1\AvailableRuntimes:
@echo          Parameter:  С:\Program Files\Oculus\Support\oculus-runtime\oculus_openxr_64.json
rem EndEngTextBlock
@echo     -----
@echo.
@set "choice="
rem StartRusTextBlock
rem @Set /p choice="Для подтверждения удаления введите "ok" без кавычек и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="For confirmation enter "ok" without quotas and press Enter: "
rem EndEngTextBlock
if not defined choice goto _guardian
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="ok" (GOTO _oculuscleandelete)
goto _oculusclean

:_oculuscleandelete
@sc delete OculusRemoteDesktopService 1>nul 2>nul
@rd /s /q "C:\Program Files\Oculus\" 1>nul 2>nul
@rd /s /q "%userprofile%\AppData\Local\Oculus\" 1>nul 2>nul
@rd /s /q "%userprofile%\AppData\LocalLow\Oculus\" 1>nul 2>nul
@rd /s /q "%userprofile%\AppData\Roaming\Oculus\" 1>nul 2>nul
@rd /s /q "%userprofile%\AppData\Roaming\OculusClient\" 1>nul 2>nul
@rd /s /q "C:\ProgramData\Oculus\" 1>nul 2>nul
@rd /s /q "%userprofile%\Documents\Dash\" 1>nul 2>nul
@rd /s /q "%userprofile%\Documents\Oculus Home" 1>nul 2>nul
@reg delete "HKEY_CURRENT_USER\SOFTWARE\Oculus" /f 1>nul 2>nul
@reg delete "HKEY_CURRENT_USER\SOFTWARE\Oculus VR, LLC" /f 1>nul 2>nul
@reg delete "HKEY_CURRENT_USER\SOFTWARE\Classes\oculus" /f 1>nul 2>nul
@reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Oculus" /f 1>nul 2>nul
@reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Oculus VR, LLC" /f 1>nul 2>nul
@reg delete "HKEY_CLASSES_ROOT\oculus" /f 1>nul 2>nul
@reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Oculus" /f 1>nul 2>nul
@reg delete HKLM\SOFTWARE\WOW6432Node\Khronos\OpenXR\1\AvailableRuntimes /v "C:\Program Files\Oculus\Support\oculus-runtime\oculus_openxr_32.json" /f 1>nul 2>nul
@reg delete HKLM\SOFTWARE\Khronos\OpenXR\1\AvailableRuntimes /v "C:\Program Files\Oculus\Support\oculus-runtime\oculus_openxr_64.json" /f 1>nul 2>nul
@del "%userprofile%\AppData\Local\Oculus\Airlink\*.pem" /q 1>nul 2>nul
@for /d %%a in ("%userprofile%\AppData\Local\Temp\Oculus*") do @rd /s /q "%%a" 1>nul 2>nul
@echo  ======================================== 
rem StartRusTextBlock
@echo = Done
@echo   Now you can reinstall Oculus Home software
rem EndRusTextBlock
rem StartEngTextBlock
rem @echo  = Остатки почищены
rem @echo   Сейчас можно переустанавливать Oculus ПО
rem EndEngTextBlock
call :_prevmenu
goto _oculuslink


:_offsetcalc
@echo  ======================================== 
rem StartRusTextBlock
rem @echo  Процедура поможет рассчитать, какие значение следует выбирать
rem @echo  при установке динамического битрейта
rem EndRusTextBlock
rem StartEngTextBlock
@echo This procedure will help calculate which values should be selected
@echo when setting up dynamic bitrate.
rem EndEngTextBlock
@echo  ---
rem StartRusTextBlock
rem @echo  Для возврата в меню введите 0
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Enter 0 for return to menu
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @Set /p reqminbitrate="Введите желаемый минимальный битрейт: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p reqminbitrate="Enter the desired minimal bitrate: "
rem EndEngTextBlock
if /i "%reqminbitrate%"=="0" (exit)
@set /a offsetnumber=%reqminbitrate%-10
@echo.
rem StartRusTextBlock
rem @Set /p reqmaxbitrate="Введите желаемый максимальный битрейт: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p reqmaxbitrate="Enter the desired maximal bitrate: "
rem EndEngTextBlock
if /i "%reqmaxbitrate%"=="0" (exit)
@set /a maxbitratenumber=%reqmaxbitrate%-%offsetnumber%
@echo.
@echo ------
rem StartRusTextBlock
rem @echo Впишите следующие значения в таблицу ODT:
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Enter the following values into the ODT table:
rem EndEngTextBlock
@echo.
@echo Dynamic Offset	: %offsetnumber%
@echo Dynamic Max	: %maxbitratenumber%
@echo --------------------------------------------
@echo.
@echo.
@echo.
rem @echo ^>^>^> Нажмите любую кнопку для возврата в Главное меню ^<^<^<
rem @echo  -----
rem @echo ^>^>^> Press any key to return to the main menu ^<^<^<
rem @pause >nul
@echo.
goto _returnmenu

:_MetaQuestLinkInstall
@echo.
@echo.
if exist OculusSetup.exe goto _StartMetaQuestLinkInstall
@echo -----------------------------------------------------
rem StartRusTextBlock
rem @echo = Скачивание...
rem EndRusTextBlock
rem StartEngTextBlock
@echo = Downloading...
rem EndEngTextBlock
@curl -LJkO https://www.oculus.com/download_app/?id=1582076955407037 -#
:_StartMetaQuestLinkInstall
@echo ---
rem StartRusTextBlock
rem @echo = Установка Meta Quest Link
rem @echo   Следуйте инструкциям установщика Oculus.
rem EndRusTextBlock
rem StartEngTextBlock
@echo = Installing... Follow the Oculus installer instructions
rem EndEngTextBlock
@start " " "OculusSetup.exe"
@echo.
goto _returnmenu

:_guardian
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    D.  Приостановить Защитную систему
rem @echo    E.  Возобновить Защитную систему
rem EndRusTextBlock
rem StartEngTextBlock
@echo    D.  Suspend Guardian
@echo    E.  Resume Guardian
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _guardian
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="d" (GOTO _guardoff)
if /i "%choice%"=="e" (GOTO _guardon)
cls
goto _guardian

:_guardoff
@%MYFILES%\adb shell setprop debug.oculus.guardian_pause 0 1>nul 2>nul
call :_erlvl
@echo ======================================== 
rem StartRusTextBlock
rem @echo  Защитная зона приостановлена
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Guardian suspended
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

:_guardon
@%MYFILES%\adb shell setprop debug.oculus.guardian_pause 1 1>nul 2>nul
call :_erlvl
@echo ======================================== 
rem StartRusTextBlock
rem @echo  Защитная зона возобновлена
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Guardian resumed
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

:_proxsensor
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    D.  Отключить датчик приближения
rem @echo    E.  Включить датчик приближения
rem @echo.
rem @echo.
rem @echo  ВНИМАНИЕ:
rem @echo.
rem @echo       После отключения датчика экран не будет гаснуть автоматически!
rem @echo       Это чревато ускоренным разрядом аккумулятора.
rem @echo       Не забывайте включать датчик.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    D.  Disable Proximity Sensor
@echo    E.  Enable Proximity Sensor
@echo.
@echo.
@echo  WARNING:
@echo.
@echo       After disabling the sensor, the screen will not automatically turn off!
@echo       This can lead to accelerated battery discharge.
@echo       Don't forget to enable the sensor.
@echo.
rem EndEngTextBlock
call :_MenuChoiceEnter
@echo.
if not defined choice goto _proxsensor
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="d" (GOTO _proxoff)
if /i "%choice%"=="e" (GOTO _proxon)
cls
goto _proxsensor

:_proxoff
@%MYFILES%\adb shell am broadcast -a com.oculus.vrpowermanager.prox_close 1>nul 2>nul
call :_erlvl
@echo ======================================== 
rem StartRusTextBlock
rem @echo  Датчик приближения отключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Proximity sensor disabled
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

:_proxon
@%MYFILES%\adb shell am broadcast -a com.oculus.vrpowermanager.automation_disable 1>nul 2>nul
call :_erlvl
@echo ======================================== 
@If %ERRORLEVEL% EQU 1 GOTO _errlevel
rem StartRusTextBlock
rem @echo  Датчик приближения включен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Proximity sensor enabled
rem EndEngTextBlock
call :_prevmenu
@goto _shellmenu

::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

:_streamingmenu
@echo off
setlocal enableextensions enabledelayedexpansion
cls
call :_settime
call :_hat
@echo.
rem StartRusTextBlock
rem @echo                               === МОДУЛЬ ТРАНСЛЯЦИИ ===
rem call :_hatmenu
rem @echo.
rem @echo.
rem @echo    A.  "Быстрая" трансляция: формат 1600 х 900
rem @echo         [ Данные трансляции: FPS=30, Bitrate=10, звук на всех устройствах ]
rem @echo         [ в этом режиме отключается датчик приближения! ]
rem @echo.
rem @echo    B.  "Квадратная" трансляция: кроп картинки с одного глаза без черных углов
rem @echo         [ Данные трансляции: FPS=60, Bitrate=30 ] 
rem @echo         [ подходит для создания демороликов     ]
rem @echo.
rem @echo    C.  "Прямоугольная" трансляция: формат 1600 х 900
rem @echo         [ Данные трансляции: FPS=60, Bitrate=30 ]
rem @echo         [ подходит для демонстрационных целей ]
rem @echo.
rem @echo    D.  "Стереотрансляция": ничего не кропается, картинка с обоих глаз 
rem @echo         [ Данные трансляции: FPS=60, Bitrate=20 ]
rem @echo         [ подходит для создания 3D роликов      ]
rem @echo.
rem @echo    E.  "Ручная" трансляция: выбор и установка параметров трансляции вручную.  [EXP]
rem @echo         [для тех, кто привык все контролировать сам]
rem @echo.
rem @echo.
rem @echo   ОБРАТИТЕ ВНИМАНИЕ:
rem @echo.
rem @echo   После старта трансляции картинка может пропасть на 3-4 секунды,
rem @echo   а шлем скажет "блым". Это связано с всплывающим в шлеме ссобщением,
rem @echo   например, о том, что контроллеры не найдены. Увы, но вот так.
rem @echo. 
rem @echo   При необходимости можно отключить датчик приближения, пункты C -^> F в Главном меню.
rem @echo   Для режима ручной трансляции это можно сделать в процессе выбора параметров.
rem @echo.
rem @echo   Для запуска трансляции с сохранением в файл
rem @echo   введите сдвоенный номер пункта, например AA, bb и т.д.
rem @echo   В противном случае трансляция записана не будет.
rem @echo.
rem @echo   Когда решите прекратить трансляцию, просто закройте окно с картинкой
rem @echo   и нажмите любую кнопку в основном окне, это вернет вас в Главное меню,
rem @echo   а файл с записью (если она велась) будет сохранен в текущем каталоге.
rem EndRusTextBlock
rem StartEngTextBlock
@echo                               === TRANSLATION MODULE ===
call :_hatmenu
@echo.
@echo.
@echo    A.  "Fast" streaming: format 1600 x 900
@echo         [ Stream data: FPS=30, Bitrate=10, sound on all devices ]
@echo         [ in this mode the proximity sensor is disabled! ]
@echo.
@echo    B.  "Square" streaming: crop image from one eye without black corners
@echo         [ Stream data: FPS=60, Bitrate=30 ] 
@echo         [ suitable for creating demos ]
@echo.
@echo    C.  "Rectangular" streaming: format 1600 x 900
@echo         [ Stream data: FPS=60, Bitrate=30 ]
@echo         [ suitable for demonstration purposes ]
@echo.
@echo    D.  "Stereo streaming": nothing is cropped, image from both eyes 
@echo         [ Stream data: FPS=60, Bitrate=20 ]
@echo         [ suitable for creating 3D videos ]
@echo.
@echo    E.  "Manual" streaming: selection and setting of streaming parameters manually.  [EXP]
@echo         [ for those who prefer full control ]
@echo.
@echo.
@echo   PLEASE NOTE:
@echo.
@echo   After starting the streaming, the image may disappear for 3-4 seconds,
@echo   and the headset will say "blym". This is due to a popup message in the headset,
@echo   for example, about controllers not being found. Unfortunately, that's how it is.
@echo. 
@echo   If necessary, you can disable the proximity sensor, points C -^> F in the Main menu.
@echo   For manual streaming mode, this can be done during parameter selection.
@echo.
@echo   To start streaming with recording to a file
@echo   enter the double number of the item, for example, AA, bb, etc.
@echo   Otherwise, the streaming will not be recorded.
@echo.
@echo   When you decide to stop streaming, simply close the window with the picture
@echo   and press any key in the main window, this will return you to the Main menu,
@echo   and the recording file (if any) will be saved in the current directory.
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _streamingmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _streamfast)
if /i "%choice%"=="aa" (GOTO _streamfastr)
if /i "%choice%"=="b" (GOTO _streamsquare)
if /i "%choice%"=="bb" (GOTO _streamsquarer)
if /i "%choice%"=="c" (GOTO _streamcircle)
if /i "%choice%"=="cc" (GOTO _streamcircler)
if /i "%choice%"=="d" (GOTO _streamstereo)
if /i "%choice%"=="dd" (GOTO _streamstereor)
if /i "%choice%"=="e" (GOTO _ManualTransSettings)
rem if /i "%choice%"=="1" (set profnumb=1 GOTO _FastLoadIntMultiProfile)
rem if /i "%choice%"=="2" (set profnumb=2 GOTO _FastLoadIntMultiProfile)
rem if /i "%choice%"=="3" (set profnumb=3 GOTO _FastLoadIntMultiProfile)
rem if /i "%choice%"=="4" (set profnumb=4 GOTO _FastLoadIntMultiProfile)
rem if /i "%choice%"=="5" (set profnumb=5 GOTO _FastLoadIntMultiProfile)
rem if /i "%choice%"=="6" (set profnumb=6 GOTO _FastLoadIntMultiProfile)

cls
goto _streamingmenu

:_streamfast
call :_cdc
@%MYFILES%\adb shell am broadcast -a com.oculus.vrpowermanager.prox_close 1>nul 2>nul
set cropset=1600:900:2017:510
set bitrateset=10M
set setfps=30
set recfile=
call :_CheckWiFiMode
set acodecset=--audio-source=mic
goto :_createvbs

:_streamfastr
call :_cdc
@%MYFILES%\adb shell am broadcast -a com.oculus.vrpowermanager.prox_close 1>nul 2>nul
set cropset=1600:900:2017:510
set bitrateset=10M
set setfps=30
call :_RecordEnableSettings
call :_CheckWiFiMode
set acodecset=--audio-source=mic
goto :_createvbs

:_streamsquare
call :_cdc
set cropset=1584:1440:1950:250
set bitrateset=30M
set setfps=60
set recfile=
call :_CheckWiFiMode
goto :_createvbs

:_streamsquarer
call :_cdc
set cropset=1584:1440:1950:250
set bitrateset=30M
set setfps=60
call :_RecordEnableSettings
call :_CheckWiFiMode
goto :_createvbs

:_streamcircle
call :_cdc
set cropset=1600:900:2017:510
set bitrateset=30M
set setfps=60
set recfile=
call :_CheckWiFiMode
goto :_createvbs

:_streamcircler
call :_cdc
set cropset=1600:900:2017:510
set bitrateset=30M
set setfps=60
call :_RecordEnableSettings
call :_CheckWiFiMode
goto :_createvbs

:_streamstereo
call :_cdc
set cropset=3664:1920:0:0
set bitrateset=20M
set setfps=60
set recfile=
call :_CheckWiFiMode
goto :_createvbs

:_streamstereor
call :_cdc
set cropset=3664:1920:0:0
set bitrateset=20M
set setfps=60
call :_RecordEnableSettings
goto :_createvbs

:_ManualTransSettings
@echo off
cls
set aa=
set bb=
set cc=
set dd=
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    L.  Загрузить настройки из файла профиля
rem @echo    I.  Загрузить настройки из интегрированных профилей
rem @echo    H.  Информация о кодеках
rem @echo.
rem @echo.
rem @echo.
rem @echo   1.Битрейт  2.FPS   3.Запись сессии   4.Обрезка кадра    5.Вывод звука          
rem @echo  ------------------------------------------------------------------------------------------------
rem @echo   1. 3      1. 24    1. С записью     1. Обрезка углов    1. Звук на ПК        [записывается]
rem @echo   2. 5      2. 30    2. Без записи    2. Без обрезки      2. Звук на шлеме     [не записывается] 
rem @echo   3. 10     3. 60                     3. Режим стерео     3. ПК,микрофон,шлем  [записывается]
rem @echo   4. 20     4. 90                     4. 1600x900	
rem @echo   5. 50
rem @echo.
rem @echo.
rem @echo            6.Датчик приближения                     7.Видеокодек                                   
rem @echo  ------------------------------------------------------------------------------------------------
rem @echo          1. Отключить                               1. h264 OMX.qcom.video.encoder.avc             
rem @echo          2. Не отключать                            2. h265 OMX.qcom.video.encoder.hevc         
rem @echo                                                     3. h265 OMX.qcom.video.encoder.hevc.cq	  
rem @echo.
rem @echo   Введите шести- или семизначное число, состоящее из выбранных пунктов параметров
rem @echo   Можно ввести только шесть цифр, тогда по умолчанию будут использованы такой видеокодек:
rem @echo    - h264 OMX.qcom.video.encoder.avc
rem @echo  ------------------------------------------------------------------------------------------------
rem @echo.
rem @echo    Например, для значений 
rem @echo.
rem @echo  	1. Битрейт		: 10					(Пункт 3)
rem @echo  	2. FPS			: 30					(Пункт 2)
rem @echo  	3. Запись сессии	: Без записи				(Пункт 2)
rem @echo  	4. Обрезка кадра 	: Обрезка углов				(Пункт 1)
rem @echo  	5. Вывод звука	 	: ПК,микрофон,шлем			(Пункт 3)
rem @echo  	6. Датчик		: Отключить				(Пункт 1)
rem @echo  	7. Видеокодек		: h264 OMX.qcom.video.encoder.avc	(Пункт 1)
rem @echo  	8. Аудиокодек		: aac  c2.android.aac.encoder		(Пункт 2)
rem @echo.
rem @echo    число будет таким: 3221311
rem @echo.
rem @echo   Для упрощения выбора просто набирайте по одной цифре каждого пункта,
rem @echo   а когда наберете все шесть или семь цифр, жмите Enter.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    L.  Load settings from profile file
@echo    I.  Load settings from integrated profiles
@echo.
@echo.
@echo.
@echo   1. Bitrate     2. FPS     3. Session recording    4. Frame cropping    5. Sound output          
@echo  ------------------------------------------------------------------------------------------------
@echo   1. 3          1. 24      1. With recording       1. Corner cropping   1. Sound on PC         [recorded]
@echo   2. 5          2. 30      2. Without recording    2. No cropping       2. Sound on headset     [not recorded] 
@echo   3. 10         3. 60                            3. Stereo mode        3. PC, microphone, headset  [recorded]
@echo   4. 20         4. 90                            4. 1600x900	
@echo   5. 50
@echo.
@echo.
@echo            6. Proximity sensor                     7. Video codec                                   
@echo  ------------------------------------------------------------------------------------------------
@echo          1. Disable                               1. h264 OMX.qcom.video.encoder.avc             
@echo          2. Do not disable                        2. h265 OMX.qcom.video.encoder.hevc         
@echo                                                     3. h265 OMX.qcom.video.encoder.hevc.cq	  
@echo.
@echo   Enter a six- or seven-digit number consisting of selected parameter options
@echo   You can enter only six digits, then by default, this video codec will be used:
@echo    - h264 OMX.qcom.video.encoder.avc
@echo  ------------------------------------------------------------------------------------------------
@echo.
@echo    For example, for values 
@echo.
@echo  	1. Bitrate		: 10					(Item 3)
@echo  	2. FPS			: 30					(Item 2)
@echo  	3. Session recording	: Without recording			(Item 2)
@echo  	4. Frame cropping 	: Corner cropping			(Item 1)
@echo  	5. Sound output	 	: PC, microphone, headset		(Item 3)
@echo  	6. Sensor		: Disable				(Item 1)
@echo  	7. Video codec		: h264 OMX.qcom.video.encoder.avc	(Item 1)
rem @echo  	8. Audio codec		: aac  c2.android.aac.encoder		(Item 2)
@echo.
@echo    the number will be: 3221311
@echo.
@echo   To simplify the selection, just type one digit of each item,
@echo   and when you have typed all six or seven digits, press Enter.
rem EndEngTextBlock
@echo.
rem @Set profdatanew=3221311
rem StartRusTextBlock
rem @Set /p profdatanew="Введите число или пункт меню и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p profdatanew="Enter the number or menu item and press Enter: "
rem EndEngTextBlock
if not defined profdatanew goto _ManualTransSettings
if "%profdatanew%"=="0" (exit)
if /i "%profdatanew%"=="m" (GOTO _streamingmenu)
if /i "%profdatanew%"=="l" (call :_loadMultiprofile)
if /i "%profdatanew%"=="i" (call :_LoadIntMultiProfile)
rem if /i "%profdatanew%"=="h" (goto _CodecsHelp)

:_Choiced
cls
call :_hat
@echo.
call :_hatmenu
@echo.
@echo.
rem StartRusTextBlock
rem @echo      C.  Трансляция по кабелю
rem @echo      R.  Повторить выбор настроек или загрузить из файла профилей
rem @echo      S.  Сохранить настройки в файл профилей
rem @echo      W.  Сохранить в файл строку запуска  scrcpy с выбранными параметрами
rem @echo  Enter.  Начать трансляцию
rem EndRusTextBlock
rem StartEngTextBlock
@echo      C.  Cable transmission
@echo      R.  Repeat settings selection or load from profile file
@echo      S.  Save settings to profile file
@echo      W.  Save the scrcpy command line with selected parameters to a file
@echo  Enter.  Start transmission
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_ParsingProfDataNew
@echo.

rem StartRusTextBlock
rem @echo  Выбраны следующие настройки:
rem @echo.
rem @echo.  Битрейт	: !bitrateset!
rem @echo.  FPS		: !setfps!
rem @echo.  Запись сессии	: !recmsg! 
rem @echo.  Обрезка кадра	: !cropmsg!
rem @echo.  Вывод звука	: !amsg!
rem @echo.  Датчик	: !proxmsg!
rem @echo.  Видеокодек	: !vcodecmsg!
rem @echo.  Аудиокодек	: !acodecmsg!
rem @echo  ---------------------------------------------
rem @echo   Профиль	: !profname!
rem @echo.
rem @echo.
rem @echo.
rem @echo   ВАЖНО:
rem @echo.
rem @echo   По умолчанию (по нажатию Enter) будет включена беспроводная трансляция,
rem @echo   но перед началом кабель должен быть подсоединен.
rem @echo   А уже после начала трансляции обязательно отсоедините USB кабель.
rem @echo.
rem @echo   Если требуется трансляция по кабелю, не отсоединяйте его,
rem @echo   введите C и нажмите Enter.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  The following settings are selected:
@echo.
@echo.  Bitrate	: !bitrateset!
@echo.  FPS		: !setfps!
@echo.  Session recording	: !recmsg! 
@echo.  Frame cropping	: !cropmsg!
@echo.  Sound output	: !amsg!
@echo.  Sensor	: !proxmsg!
@echo.  Video codec	: !vcodecmsg!
rem @echo.  Audio codec	: !acodecmsg!
@echo  ---------------------------------------------
@echo   Profile	: !profname!
@echo.
@echo.
@echo.
@echo   IMPORTANT:
@echo.
@echo   By default (pressing Enter), wireless transmission will be enabled,
@echo   but the cable must be connected before starting.
@echo   And only after the start of transmission, you must disconnect the USB cable.
@echo.
@echo   If cable transmission is required, do not disconnect it,
@echo   enter C and press Enter.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@Set choice2=
@Set choice2=e
rem StartRusTextBlock
rem @Set /p choice2="Для начала трансляции нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice2="Press Enter to start transmission: "
rem EndEngTextBlock
if not defined choice2 goto _choiced
if "%choice2%"=="0" (exit)
if /i "%choice2%"=="e" (set connectivity=-e&&goto _BeginTranslation)
if /i "%choice2%"=="c" (set connectivity=-d&&goto _BeginTranslation)
if /i "%choice2%"=="m" (GOTO _streamingmenu)
if /i "%choice2%"=="r" (GOTO _ManualTransSettings)
if /i "%choice2%"=="s" (GOTO _SaveMultiProfiles)
if /i "%choice2%"=="w" (GOTO _BeginTranslation)
goto _choiced

:_seterror
@echo.
rem StartRusTextBlock
@echo ---------------------------------------------------------
rem @echo +++ Значение "%errorout%" вне диапазона пунктов меню ++++
rem @echo.
rem @echo             Выберите другое значение
rem @echo ------------------------------------------------------
rem @echo.
rem @echo ^>^>^> Нажмите что-нибудь для возврата к настройкам ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo +++ Value "%errorout%" is out of menu range ++++
@echo.
@echo             Choose another value
@echo ------------------------------------------------------
@echo.
@echo ^>^>^> Press anything to return to settings ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
goto _ManualTransSettings

:_SaveProfile

@echo %profnamenew% >TransProfile.txt
@echo.
rem StartRusTextBlock
@echo ---------------------------------------------
rem @echo  +++ Настройки сохранены в файл профиля +++
rem @echo.
rem @echo  При желании его можно редактироовать вручную.
rem @echo.
rem @echo.
rem @echo ^>^>^> Нажмите что-нибудь для возврата ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++ Settings saved to profile file +++
@echo.
@echo  If desired, it can be edited manually.
@echo.
@echo.
@echo ^>^>^> Press anything to return ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
goto _Choiced


:_BeginTranslation
call :_cdc
call :_CheckWiFiMode
call :_CheckADBDevices

if /i %choice2%==c (call :_ReconnectToCable && call :_CheckADBDevices && call :_SetCableSettings)
if /i %choice2%==w goto _createscrcpystring


:_ProximitySettings
if %Proximity%==0 (@%MYFILES%\adb shell am broadcast -a com.oculus.vrpowermanager.prox_close 1>nul 2>nul)
rem goto _createvbs

:_createvbs
@echo strCommand = "cmd /c %MYFILES%\scrcpy.exe %connectivity% %audiomute% %acodecset% %vcodecset% --crop=%cropset% --max-size=3664 --video-bit-rate=%bitrateset% --display-buffer=50 --max-fps=%setfps% --stay-awake%recformat% --power-off-on-close%recfile%">>startstream.vbs
@echo For Each Arg In WScript.Arguments >>startstream.vbs
@echo strCommand = strCommand ^& " """ ^& replace^(Arg, """", """""""""") ^& """" >> startstream.vbs
@echo Next >>startstream.vbs
@echo CreateObject("Wscript.Shell").Run strCommand, 0, false >>startstream.vbs
goto _startstream

:_createvbsmq3
@echo strCommand = "cmd /c %MYFILES%\scrcpy.exe %connectivity% %audiomute% %acodecset% %vcodecset% --crop=%cropset% --max-size=3664 --video-bit-rate=%bitrateset% --display-buffer=50 --max-fps=%setfps% --stay-awake%recformat% --power-off-on-close%recfile%">>startstream.vbs
@echo For Each Arg In WScript.Arguments >>startstream.vbs
@echo strCommand = strCommand ^& " """ ^& replace^(Arg, """", """""""""") ^& """" >> startstream.vbs
@echo Next >>startstream.vbs
@echo CreateObject("Wscript.Shell").Run strCommand, 0, false >>startstream.vbs

:_startstream
::@cls
start startstream.vbs
@ping localhost -n 4 1>nul 2>nul
@del startstream.vbs /q 2>nul
@echo  ------------------------------------------------------------------
@echo.
@echo.
@echo.   %connectmsg%
@echo.
@echo.
rem StartRusTextBlock
rem @echo   После старта трансляции картинка может пропасть на 3-4 секунды,
rem @echo   а шлем скажет "блым". Это связано с всплывающим в шлеме ссобщением,
rem @echo   например, о том, что контроллеры не найдены. Увы, но вот так.
rem @echo.
rem @echo =========================================================================
rem @echo ^>^>^> Нажмите любую кнопку для возврата в Главное меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo   After starting the transmission, the picture may disappear for 3-4 seconds,
@echo   and the headset will say "bleem". This is due to the message that pops up in the headset,
@echo   for example, that the controllers are not found. Alas, but that's how it is.
@echo.
@echo =========================================================================
@echo ^>^>^> Press any key to return to the Main menu ^<^<^<
rem EndEngTextBlock
@pause >nul
@%MYFILES%\adb shell am broadcast -a com.oculus.vrpowermanager.automation_disable 1>nul 2>nul
@cls
goto _beginn

:_createscrcpystring
@echo scrcpy.exe %connectivity% %audiomute% %acodecset% %vcodecset% --crop=%cropset% --max-size=3664 --video-bit-rate=%bitrateset% --display-buffer=50 --max-fps=%setfps% --stay-awake%recformat% --power-off-on-close%recfile%>scrcpyLaunchString_%dt%_%profdata%.txt
@echo -------------------------------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  +++ Строка запуска сохранена в файл scrcpyLaunchString_%dt%_%profdata%.txt +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++ The launch string is saved to the file scrcpyLaunchString_%dt%_%profdata%.txt +++
rem EndEngTextBlock
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите что-нибудь для возврата ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press anything to return ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
goto _Choiced

:_LoadMultiProfile
cls
@echo.
@echo.
rem StartRusTextBlock
rem @echo   0. Выход из программы
rem @echo   M. Отмена выбора и возврат в предыдущее меню
rem EndRusTextBlock
rem StartEngTextBlock
@echo   0. Exit the program
@echo   M. Cancel selection and return to the previous menu
rem EndEngTextBlock
@echo.
if exist TransMultiProfiles.txt (call :_ProfilesCollection) else (goto _NoFileProfiles)
@Set profnumb=
@echo.
rem StartRusTextBlock
rem @Set /p profnumb="Выберите номер желаемого профиля и нажмите Enter для загрузки: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p profnumb="Enter the number of the desired profile and press Enter to load: "
rem EndEngTextBlock
if not defined profnumb goto _LoadMultiProfile
if "%profnumb%"=="0" (exit)
if /i "%profnumb%"=="m" (GOTO _ManualTransSettings)
@For /F "skip=1 tokens=1,2,3 delims=:" %%a In (TransMultiProfiles.txt) Do (

@set pn=%%a
@set profname=%%b
@set profdata=%%c
if !profnumb!==!pn! goto _ViewProfilesNew
)
goto _Choiced
::>>>>>>>>>>>>>>>>>>>>>>>
:_LoadIntMultiProfile
@del IntProfiles.txt /q 2>nul
cls
@echo.
@echo.
rem StartRusTextBlock
rem @echo   0. Выход из программы
rem @echo   M. Отмена выбора и возврат в предыдущее меню
rem EndRusTextBlock
rem StartEngTextBlock
@echo   0. Exit the program
@echo   M. Cancel selection and return to the previous menu
rem EndEngTextBlock
@echo.
rem if exist TransMultiProfiles.txt (call :_ProfilesCollection) else (goto _NoFileProfiles)
call :_IntegratedProfiles
call :_IntProfilesCollection
@Set profnumb=
@echo.
rem StartRusTextBlock
rem @Set /p profnumb="Выберите номер желаемого профиля и нажмите Enter для загрузки: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p profnumb="Enter the number of the desired profile and press Enter to load: "
rem EndEngTextBlock

:_FastLoadIntMultiProfile
rem @echo.%profnumb%|>nul findstr /rc:"[^1-6]"&&(goto _LoadIntMultiProfile)
if not defined profnumb goto _LoadMultiProfile
if "%profnumb%"=="0" (@del IntProfiles.txt /q 2>nul & exit)
if /i "%profnumb%"=="m" (@del IntProfiles.txt /q 2>nul & GOTO _ManualTransSettings)
@For /F "skip=1 tokens=1,2,3 delims=:" %%a In (IntProfiles.txt) Do (

@set pn=%%a
@set profname=%%b
@set profdata=%%c
if !profnumb!==!pn! goto _ViewProfilesNew
)
goto _Choiced

:_IntegratedProfiles
@echo ProfileNumber:ProfileName:ProfileData>>IntProfiles.txt
rem StartRusTextBlock
rem @echo 1:Минимальный:1121121>>intprofiles.txt
rem @echo 2:Легкий:2221312>>intprofiles.txt
rem @echo 3:Сбалансированный:3314113 >>intprofiles.txt
rem @echo 4:Демонстрационный:3224321>>intprofiles.txt
rem @echo 5:Качественный:4314312>>intprofiles.txt
rem @echo 6:Максимальный:5411113 >>intprofiles.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo 1:Minimum:1121121>>intprofiles.txt
@echo 2:Light:2221312>>intprofiles.txt
@echo 3:Balanced:3314113 >>intprofiles.txt
@echo 4:Demo:3224321>>intprofiles.txt
@echo 5:Quality:4314312>>intprofiles.txt
@echo 6:Maximum:5411113 >>intprofiles.txt
rem EndEngTextBlock
exit /b

:_IntProfilesCollection
rem StartRusTextBlock
rem @echo   = Интегрированные профили:
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Integrated profiles:
rem EndEngTextBlock
@For /F "skip=1 tokens=1,2,3 delims=:" %%a In (IntProfiles.txt) Do (
@set pn=%%a
:: Добавление еще четырех профилей
rem if !pn!==5 @echo ---------- ^ & @echo Нажмите любую кнопку для просмотра следующего блока доступных профилей && @pause 1>nul 2>nul && cls && @echo. && @echo   = Доступные профили:
@set profname=%%b
@set profdata=%%c
call :_ParsingProfData
call :_tabProfiles
rem @echo.
)
@echo   ------------
exit /b


::>>>>>>>>>>>>>>>>>>>>>>
:_NoFileProfiles
@echo.
@echo.
@echo.
@echo  -------------------------------------------------
rem StartRusTextBlock
rem @echo        +++ Файл профилей отсутствует +++
rem @echo.
rem @echo  Создайте вручную и сохраните хотя бы один профиль
rem @echo.
rem @echo.
rem @echo.
rem @echo.
rem @echo.
rem @echo.
rem @echo ^>^>^> Нажмите что-нибудь для возврата к настройкам^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo        +++ Profile file is missing +++
@echo.
@echo  Create and save at least one profile manually
@echo.
@echo.
@echo.
@echo.
@echo.
@echo ^>^>^> Press anything to return to settings ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
goto _ManualTransSettings

:_ViewProfilesNew
set profdatanew=!profdata!
call :_ParsingProfDataNew
@del IntProfiles.txt /q 2>nul
goto _Choiced

:_SaveMultiProfiles
if not exist TransMultiProfiles.txt (call :_CreateNewTransProFile)
@For /F "skip=1 tokens=1,2,3 delims=:" %%a In (TransMultiProfiles.txt) Do (
@set pn=%%a
if !pn!==4 goto _ProfRewrite
rem if !pn!==8 goto _ProfRewrite
set pnadd=!pn!
set /a pnadd=!pnadd!+1
)
@echo ---------------------------------------------
rem StartRusTextBlock
rem @echo   Сохраняем настройки:
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Saving settings:
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @Set /p profname="Введите имя нового профиля и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p profname="Enter the name of the new profile and press Enter: "
rem EndEngTextBlock
@echo !pnadd!:!profname!:!profdatanew!>>TransMultiProfiles.txt 
@echo ---------------------------------------------
rem StartRusTextBlock
rem @echo  +++ Настройки сохранены в файл профиля +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++ Settings saved to profile file +++
rem EndEngTextBlock
@echo.
@echo.
call :_ProfilesCollection
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите что-нибудь для возврата ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press anything to return ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
goto _Choiced

:_CreateNewTransProFile
@echo.
@echo -----------------------------------------------------------------
rem StartRusTextBlock
rem @echo             +++ Файл профилей отсутствует +++
rem @echo.
rem @echo Создаем новый файл профилей и сохраняем в него выбранные настройки:
rem EndRusTextBlock
rem StartEngTextBlock
@echo             +++ Profile file is missing +++
@echo.
@echo Creating a new profile file and saving the selected settings:
rem EndEngTextBlock
@echo.
@echo.
@echo.
set pn=1
rem StartRusTextBlock
rem @Set /p profnamenew="Введите имя нового профиля и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p profnamenew="Enter the name of the new profile and press Enter: "
rem EndEngTextBlock
@echo ProfileNumber:ProfileName:ProfileData>>TransMultiProfiles.txt
@echo !pn!:!profnamenew!:!profdatanew!>>TransMultiProfiles.txt 
@echo.
@echo ---------------------------------------------
rem StartRusTextBlock
rem @echo  +++ Настройки сохранены в файл профилей +++
rem @echo.
rem @echo  При желании его можно редактироовать вручную.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++ Settings saved to profile file +++
@echo.
@echo  If desired, it can be edited manually.
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите что-нибудь для возврата ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press anything to return ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
goto _Choiced

:_ProfRewrite
cls
@echo.
@echo.
rem StartRusTextBlock
rem @echo   0. Выход из программы
rem @echo   M. Отмена выбора и возврат в предыдущее меню
rem EndRusTextBlock
rem StartEngTextBlock
@echo   0. Exit the program
@echo   M. Cancel selection and return to the previous menu
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @echo   = Сохраняемый профиль:
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Profile to be saved:
rem EndEngTextBlock
call :_tabProfilesNew
@echo   --------------------------------------------------------------------------------------
call :_ProfilesCollection
rem StartRusTextBlock
rem @echo   = К сожалению, борльше нет свободных слотов для профилей.
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Unfortunately, there are no more free slots for profiles.
rem EndEngTextBlock
@echo.
rem StartRusTextBlock
rem @Set /p pnnew="Из доступных профилей выберите номер перезаписываемого профиля и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p pnnew="From the available profiles, enter the number of the profile to be overwritten and press Enter: "
rem EndEngTextBlock
if not defined pnnew goto _ProfRewrite
if "%pnnew%"=="0" (exit)
if /i "%pnnew%"=="m" (GOTO _ManualTransSettings)
@echo.%pnnew%|>nul findstr /rc:"[^1-4]"&&(goto _ProfRewrite)
@Set profnamenew=
rem StartRusTextBlock
rem @Set /p profnamenew="Введите имя нового профиля и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p profnamenew="Enter the name of the new profile and press Enter: "
rem EndEngTextBlock
if "%profnamenew%" equ "" set profnamenew=NewProfile
@echo ProfileNumber:ProfileName:ProfileData>>TransMultiProfilesNew.txt
@For /F "skip=1 tokens=1,2,3 delims=:" %%a In (TransMultiProfiles.txt) Do (
@set pn=%%a
@set profname=%%b
@set profdata=%%c
if not !pnnew!==!pn! (@@echo !pn!:!profname!:!profdata!>>TransMultiProfilesNew.txt) else (@@echo !pnnew!:!profnamenew!:!profdatanew!>>TransMultiProfilesNew.txt)
)
@echo.
@del TransMultiProfiles.txt /q /f 1>nul 2>nul
@ren TransMultiProfilesNew.txt TransMultiProfiles.txt 1>nul 2>nul
@echo.
@echo ---------------------------------------------
rem StartRusTextBlock
rem @echo  +++ Настройки сохранены в файл профилей +++
rem @echo.
rem @echo  При желании его можно редактироовать вручную.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++ Settings saved to profile file +++
@echo.
@echo  If desired, it can be edited manually.
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите что-нибудь для возврата ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press anything to return ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
goto _Choiced

:_ProfilesCollection
@echo.
rem StartRusTextBlock
rem @echo   = Сохраненные профили:
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Saved profiles:
rem EndEngTextBlock
@For /F "skip=1 tokens=1,2,3 delims=:" %%a In (TransMultiProfiles.txt) Do (
@set pn=%%a
:: Добавление еще четырех профилей
rem if !pn!==5 @echo ---------- ^ & @echo Нажмите любую кнопку для просмотра следующего блока доступных профилей && @pause 1>nul 2>nul && cls && @echo. && @echo   = Доступные профили:
@set profname=%%b
@set profdata=%%c
call :_ParsingProfData
call :_tabProfiles
rem @echo.
)
@echo   ------------
exit /b


::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
:_ParsingProfDataNew
set aa=%profdatanew:~0,1%
set bb=%profdatanew:~1,1%
set cc=%profdatanew:~2,1%
set dd=%profdatanew:~3,1%
set ee=%profdatanew:~4,1%
set ff=%profdatanew:~5,1%
set gg=%profdatanew:~6,1%
rem set hh=%profdatanew:~7,1%
call :_ParsingNumber
exit /b



:_ParsingProfData
:: Парсинг числа настроек профиля
set aa=%profdata:~0,1%
set bb=%profdata:~1,1%
set cc=%profdata:~2,1%
set dd=%profdata:~3,1%
set ee=%profdata:~4,1%
set ff=%profdata:~5,1%
set gg=%profdata:~6,1%
rem set hh=%profdata:~7,1%
call :_ParsingNumber
exit /b


:_ParsingNumber
rem StartRusTextBlock
rem if [%aa%]==[] set errorout=Битрейт&&goto _seterror
rem if [%bb%]==[] set errorout=FPS&&goto _seterror
rem if [%cc%]==[] set errorout=Запись сессии&&goto _seterror
rem if [%dd%]==[] set errorout=Обрезка кадра&&goto _seterror
rem if [%ee%]==[] set errorout=Вывод звука&&goto _seterror
rem if [%ff%]==[] set errorout=Датчик приближения&&goto _seterror
rem EndRusTextBlock
rem StartEngTextBlock
if [%aa%]==[] set errorout=Bitrate&&goto _seterror
if [%bb%]==[] set errorout=FPS&&goto _seterror
if [%cc%]==[] set errorout=Session recording&&goto _seterror
if [%dd%]==[] set errorout=Frame cropping&&goto _seterror
if [%ee%]==[] set errorout=Sound output&&goto _seterror
if [%ff%]==[] set errorout=Proximity sensor&&goto _seterror
rem EndEngTextBlock

if [%gg%]==[] set gg=2& set vcodecset=--video-codec=h264 --video-encoder='OMX.qcom.video.encoder.avc' & set vcodecmsg=h264 OMX.qcom.video.encoder.avc
rem rem if [%hh%]==[] set hh=2& set acodecset=--audio-codec=aac --audio-encoder='c2.android.aac.encoder' & set acodecmsg=c2.android.aac.encoder
rem StartRusTextBlock
rem @echo.%aa%|>nul findstr /rc:"[^1-5]"&&(set errorout=Битрейт)&&(goto _seterror)
rem @echo.%bb%|>nul findstr /rc:"[^1-4]"&&(set errorout=FPS)&&(goto _seterror)
rem @echo.%cc%|>nul findstr /rc:"[^1-2]"&&(set errorout=Запись сессии)&&(goto _seterror)
rem @echo.%dd%|>nul findstr /rc:"[^1-4]"&&(set errorout=Обрезка кадра)&&(goto _seterror)
rem @echo.%ee%|>nul findstr /rc:"[^1-3]"&&(set errorout=Вывод звука)&&(goto _seterror)
rem @echo.%ff%|>nul findstr /rc:"[^1-2]"&&(set errorout=Датчик приближения)&&(goto _seterror)
rem @echo.%gg%|>nul findstr /rc:"[^1-3]"&&(set errorout=Видеокодек)&&(goto _seterror)
rem @echo.%hh%|>nul findstr /rc:"[^1-3]"&&(set errorout=Аудиокодек)&&(goto _seterror)
rem EndRusTextBlock
rem StartEngTextBlock
@echo.%aa%|>nul findstr /rc:"[^1-5]"&&(set errorout=Bitrate)&&(goto _seterror)
@echo.%bb%|>nul findstr /rc:"[^1-4]"&&(set errorout=FPS)&&(goto _seterror)
@echo.%cc%|>nul findstr /rc:"[^1-2]"&&(set errorout=Session recording)&&(goto _seterror)
@echo.%dd%|>nul findstr /rc:"[^1-4]"&&(set errorout=Frame cropping)&&(goto _seterror)
@echo.%ee%|>nul findstr /rc:"[^1-3]"&&(set errorout=Sound output)&&(goto _seterror)
@echo.%ff%|>nul findstr /rc:"[^1-2]"&&(set errorout=Proximity sensor)&&(goto _seterror)
@echo.%gg%|>nul findstr /rc:"[^1-3]"&&(set errorout=Video codec)&&(goto _seterror)
rem EndEngTextBlock
rem rem @echo.%hh%|>nul findstr /rc:"[^1-3]"&&(set errorout=Audio codec)&&(goto _seterror)


::Bitrate
if %aa%==1 set bitrateset=3M
if %aa%==2 set bitrateset=5M
if %aa%==3 set bitrateset=10M
if %aa%==4 set bitrateset=20M
if %aa%==5 set bitrateset=50M

::FPS
if %bb%==1 set setfps=24
if %bb%==2 set setfps=30
if %bb%==3 set setfps=60
if %bb%==4 set setfps=90

::Record
if %cc%==1 set recmsg=С записью & call :_RecordEnableSettings
rem StartRusTextBlock
rem if %cc%==2 set recfile= & set recmsg=Без записи
rem EndRusTextBlock
rem StartEngTextBlock
if %cc%==2 set recfile= & set recmsg=Without recording
rem EndEngTextBlock

::Crop
rem StartRusTextBlock
rem if %dd%==1 set cropset=1584:1440:1950:250 & set cropmsg=Обрезка углов
rem if %dd%==2 set cropset=1832:1920:0:0 & set cropmsg=Без обрезки
rem if %dd%==3 set cropset=3664:1920:0:0 & set cropmsg=Режим стерео
rem if %dd%==4 set cropset=1600:900:2017:510 & set cropmsg=1600x900
rem EndRusTextBlock
rem StartEngTextBlock
if %dd%==1 set cropset=1584:1440:1950:250 & set cropmsg=Corners cropping
if %dd%==2 set cropset=1832:1920:0:0 & set cropmsg=No cropping
if %dd%==3 set cropset=3664:1920:0:0 & set cropmsg=Stereo mode
if %dd%==4 set cropset=1600:900:2017:510 & set cropmsg=1600x900
rem EndEngTextBlock

::Выход звука
rem StartRusTextBlock
rem if %ee%==1 set acodecset=--audio-codec=aac --audio-encoder='OMX.google.aac.encoder'& set audiomute=& set amsg=Звук на ПК 
rem if %ee%==2 set acodecset=--audio-codec=aac --audio-encoder='OMX.google.aac.encoder'& set audiomute=--no-audio& set amsg=Звук на шлеме
rem if %ee%==3 set acodecset=--audio-source=mic& set audiomute=& set amsg=ПК,микрофон,шлем
rem EndRusTextBlock
rem StartEngTextBlock
if %ee%==1 set acodecset=--audio-codec=aac --audio-encoder='OMX.google.aac.encoder'& set audiomute=& set amsg=Sound on PC
if %ee%==2 set acodecset=--audio-codec=aac --audio-encoder='OMX.google.aac.encoder'& set audiomute=--no-audio& set amsg=Sound on headset
if %ee%==3 set acodecset=--audio-source=mic& set audiomute=& set amsg=PC, microphone, headset
rem EndEngTextBlock

rem if %ee%==1 set audioset=--audio-codec=aac --audio-encoder='OMX.google.aac.encoder'& set audiomute=& set amsg=Звук на ПК 
rem if %ee%==2 set audioset=--audio-codec=aac --audio-encoder='OMX.google.aac.encoder'& set audiomute=--no-audio& set amsg=Звук на шлеме
rem if %ee%==3 set audioset=--audio-source=mic& set audiomute=& set amsg=С микрофона 

::Prox
rem StartRusTextBlock
rem if %ff%==1 set Proximity=0 & set proxmsg=Отключить
rem if %ff%==2 set Proximity=1 & set proxmsg=Не отключать
rem EndRusTextBlock
rem StartEngTextBlock
if %ff%==1 set Proximity=0 & set proxmsg=Disable
if %ff%==2 set Proximity=1 & set proxmsg=Do not disable
rem EndEngTextBlock

::Video
if %gg%==1 set vcodecset=--video-codec=h264 --video-encoder='OMX.qcom.video.encoder.avc'& set vcodecmsg=h264 OMX.qcom.video.encoder.avc
rem rem if %gg%==2 set vcodecset=--video-codec=h264 --video-encoder='c2.qti.avc.encoder' & set vcodecmsg=h264 c2.qti.avc.encoder
if %gg%==2 set vcodecset=--video-codec=h265 --video-encoder='OMX.qcom.video.encoder.hevc'& set vcodecmsg=h265 OMX.qcom.video.encoder.hevc
rem rem if %gg%==3 set vcodecset=--video-codec=h265 --video-encoder='OMX.qcom.video.encoder.hevc' & set vcodecmsg=h265 OMX.qcom.video.encoder.hevc
if %gg%==3 set vcodecset=--video-codec=h265 --video-encoder='OMX.qcom.video.encoder.hevc.cq'& set vcodecmsg=h265 OMX.qcom.video.encoder.hevc.cq
rem if %gg%==4 set vcodecset=--video-codec=h265 --video-encoder='OMX.qcom.video.encoder.hevc.cq' & set vcodecmsg=h265 OMX.qcom.video.encoder.hevc.cq
rem if %gg%==5 set vcodecset=--video-codec=h265 --video-encoder='c2.qti.hevc.encoder' & set vcodecmsg=h265 c2.qti.hevc.encoder
rem if %gg%==6 set vcodecset=--video-codec=h265 --video-encoder='c2.qti.hevc.encoder.cq' & set vcodecmsg=h265 c2.qti.hevc.encoder.cq

::Audio
rem set acodecset=--audio-codec=aac --audio-encoder='OMX.google.aac.encoder'& set acodecmsg=aac OMX.google.aac.encoder
rem if %hh%==1 set acodecset=--audio-codec=opus --audio-encoder='c2.android.opus.encoder'& set acodecmsg=opus c2.android.opus.encoder
rem if %hh%==2 set acodecset=--audio-codec=aac --audio-encoder='c2.android.aac.encoder'& set acodecmsg=aac c2.android.aac.encoder
rem if %hh%==3 set acodecset=--audio-codec=aac --audio-encoder='OMX.google.aac.encoder'& set acodecmsg=aac OMX.google.aac.encoder
exit /b

:_tabProfiles
@echo   ======================================================================================
rem StartRusTextBlock
rem @echo   Профиль  !pn!	: !profname!					^| !profdata!
rem @echo   --------------------------------------------------------------------------------------
rem @echo.  Битрейт	: !bitrateset!		 ^| Вывод звука	: !amsg!
rem @echo.  FPS		: !setfps!		 ^| Датчик	: !proxmsg!
rem @echo.  Запись сессии	: !recmsg!	 ^| Видеокодек	: !vcodecmsg!
rem @echo.  Обрезка кадра	: !cropmsg!	 ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Profile  !pn!	: !profname!					^| !profdata!
@echo   --------------------------------------------------------------------------------------
@echo.  Bitrate	: !bitrateset!		 ^| Sound output	: !amsg!
@echo.  FPS		: !setfps!		 ^| Proximity sensor	: !proxmsg!
@echo.  Session recording	: !recmsg!	 ^| Video codec	: !vcodecmsg!
@echo.  Frame cropping	: !cropmsg!	 ^|
rem EndEngTextBlock
exit /b

:_tabProfilesNew
@echo   ======================================================================================
rem StartRusTextBlock
rem @echo   Профиль  !pnnew!	: !profnamenew!					^| !profdatanew!
rem @echo   --------------------------------------------------------------------------------------
rem @echo.  Битрейт	: !bitrateset!		 ^| Вывод звука	: !amsg!
rem @echo.  FPS		: !setfps!		 ^| Датчик	: !proxmsg!
rem @echo.  Запись сессии	: !recmsg!	 ^| Видеокодек	: !vcodecmsg!
rem @echo.  Обрезка кадра	: !cropmsg!	 ^|
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Profile  !pnnew!	: !profnamenew!					^| !profdatanew!
@echo   --------------------------------------------------------------------------------------
@echo.  Bitrate	: !bitrateset!		 ^| Sound output	: !amsg!
@echo.  FPS		: !setfps!		 ^| Proximity sensor	: !proxmsg!
@echo.  Session recording	: !recmsg!	 ^| Video codec	: !vcodecmsg!
@echo.  Frame cropping	: !cropmsg!	 ^|
rem EndEngTextBlock
exit /b


:_ConnectOverWiFi
set connectivity=--tcpip
exit /b


:_CheckWiFiMode
@echo off
@%MYFILES%\adb devices 2>NUL | findstr ":" 2>nul 1>nul
@IF %ERRORLEVEL% EQU 0 (
@set /A wificheck=1
set connectivity=-e
) else (
@set /A wificheck=0
set connectivity=--tcpip
rem set connectivity=-d
)
rem StartRusTextBlock
rem set connectmsg=  +++ Соединено по WiFi. Не забудьте отключить кабель +++
rem EndRusTextBlock
rem StartEngTextBlock
set connectmsg=  +++ Connected via WiFi. Don't forget to disconnect the cable +++
rem EndEngTextBlock
@exit /b

:_ReconnectToCable
@%MYFILES%\adb kill-server 1>nul 2>nul
@%MYFILES%\adb start-server 1>nul 2>nul
exit /b

:_CheckADBDevices
rem @%MYFILES%\adb devices 1>nul 2>nul
@FOR /F "skip=1 tokens=2" %%G IN ('@%MYFILES%\adb devices ^| findstr /i /c:"device"') DO set adbdevices=%%G
@if [%adbdevices%]==[] goto _NF
exit /b
:_NF
@echo.
@echo. 
rem StartRusTextBlock
rem @echo  +++++ Подключите к шлему кабель +++++
rem @echo.
rem @echo. 
rem @echo ^>^>^> Нажмите что-нибудь для возврата ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++++ Connect the cable to the headset +++++
@echo.
@echo. 
@echo ^>^>^> Press anything to return ^<^<^<
rem EndEngTextBlock

@pause 1>nul 2>nul
goto :_ManualTransSettings

:_SetCableSettings
set connectivity=-d
rem StartRusTextBlock
rem set connectmsg=     +++ Соединено по кабелю, не отключайте его +++
rem EndRusTextBlock
rem StartEngTextBlock
set connectmsg=     +++ Connected via cable. Don't detach it +++
rem EndEngTextBlock
exit /b

:_RecordEnableSettings
call :_settime
set recfile= --record=StreamRecord-%dt%.mkv
set recformat= --record-format=mkv
exit /b

:_CodecsHelp
@echo off
@cls
@echo.
rem StartRusTextBlock
rem @echo Аудиокодеки:
rem @echo.
rem @echo  OMX.google.aac.encoder и c2.android.aac.encoder - это идентификаторы кодеков аудиоформата AAC
rem @echo  ^(Advanced Audio Coding^) для кодирования аудио. Они относятся к разным реализациям кодека AAC, 
rem @echo  которые могут быть использованы на устройствах Android.
rem @echo.
rem @echo  OMX.google.aac.encoder - это кодек AAC, реализованный программно ^(Software-based^). Это означает,
rem @echo  что кодек полностью работает на процессоре центрального процессора ^(CPU^) устройства. Этот кодек
rem @echo  обеспечивает аудиоэнкодирование с использованием программного обеспечения.
rem @echo.
rem @echo  c2.android.aac.encoder - это кодек AAC, реализованный с использованием аппаратного обеспечения
rem @echo  ^(Hardware-based^). В отличие от программной реализации, этот кодек использует аппаратные
rem @echo  возможности устройства, такие как цифровой сигнальный процессор ^(DSP^) или специализированные
rem @echo  аудио-ядра для выполнения операций кодирования. Кодек, работающий на аппаратном уровне, обычно
rem @echo  более эффективен с точки зрения использования ресурсов устройства и может обеспечивать
rem @echo  более высокую производительность.
rem @echo.
rem @echo.
rem @echo Видеокодеки:
rem @echo.
rem @echo  Кодеки c2.qti.hevc.encoder и c2.qti.hevc.encoder.cq, это идентификаторы кодеков для формата видео
rem @echo  HEVC ^(High Efficiency Video Coding^), также известного как H.265. Они относятся к разным профилям
rem @echo  и конфигурациям кодирования HEVC.
rem @echo.
rem @echo  c2.qti.hevc.encoder - это базовый кодек HEVC для аппаратного обеспечения Qualcomm Technologies
rem @echo  Incorporated ^(QTI^). Он предназначен для аппаратного кодирования видео с использованием аппаратных
rem @echo  возможностей устройства, таких как графический процессор ^(GPU^) или видеопроцессор ^(VPU^).
rem @echo.
rem @echo  c2.qti.hevc.encoder.cq - это конфигурация кодека HEVC для постоянного качества ^(Constant Quality^).
rem @echo  Это означает, что кодек будет поддерживать постоянное качество видео, а не постоянный битрейт.
rem @echo  Это может быть полезно, если важно сохранить определенное качество видео без привязки
rem @echo  к определенному битрейту. 
rem EndRusTextBlock
rem StartEngTextBlock
@echo Audio codecs:
@echo.
@echo  OMX.google.aac.encoder and c2.android.aac.encoder are identifiers for the AAC audio format codecs
@echo  (Advanced Audio Coding) for audio encoding. They belong to different implementations of the AAC codec,
@echo  which can be used on Android devices.
@echo.
@echo  OMX.google.aac.encoder is a software-based AAC codec. This means that the codec works entirely on the
@echo  device's central processing unit (CPU). This codec provides audio encoding using software.
@echo.
@echo  c2.android.aac.encoder is a hardware-based AAC codec. Unlike the software implementation, this codec
@echo  uses the device's hardware capabilities, such as the digital signal processor (DSP) or specialized
@echo  audio cores, to perform encoding operations. A codec operating at the hardware level is usually
@echo  more efficient in terms of device resource usage and can provide higher performance.
@echo.
@echo.
@echo Video codecs:
@echo.
@echo  c2.qti.hevc.encoder and c2.qti.hevc.encoder.cq are identifiers for the High Efficiency Video Coding
@echo  (HEVC), also known as H.265, video format codecs. They belong to different profiles and encoding
@echo  configurations of HEVC.
@echo.
@echo  c2.qti.hevc.encoder is the basic HEVC codec for Qualcomm Technologies Incorporated (QTI) hardware.
@echo  It is designed for hardware video encoding using the device's hardware capabilities, such as the
@echo  graphics processing unit (GPU) or video processing unit (VPU).
@echo.
@echo  c2.qti.hevc.encoder.cq is a HEVC codec configuration for constant quality (Constant Quality). This
@echo  means that the codec will maintain a constant quality of video, rather than a constant bitrate.
@echo  This can be useful if it is important to maintain a certain video quality without being tied to
@echo  a specific bitrate.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите что-нибудь для возврата ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press anything to return ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
goto :_ManualTransSettings

::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

:_TestVrUsvCopy
call :_cdc
call :_hat
@echo.
@echo.
@echo.
rem call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    Введите количество проходов теста и нажмите Enter.
rem @echo    По умолчанию число проходов - 20. Просто нажмите Enterю
rem @echo    Введите 0 если хотите вернуться в меню
rem EndRusTextBlock
rem StartEngTextBlock
@echo    Enter the number of test passes and press Enter.
@echo    By default, the number of passes is 20. Just press Enter.
@echo    Enter 0 if you want to return to the menu.
rem EndEngTextBlock
@echo.
@set "choice="
@set "choice=20"
rem StartRusTextBlock
rem @Set /p choice="Выберите количество проходов (1-50) и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="Enter the number of passes (1-50) and press Enter: "
rem EndEngTextBlock
if /i "%choice%"=="0" (GOTO _beginn)
@echo.%choice%|>nul findstr /rc:"[^1-50]"&&(goto _TestVrUsvCopy)
@echo.
rem if not defined choice goto _TestVrUsvCopy
rem if "%choice%"=="0" (goto _returnmenu)
rem  /i "%choice%"=="t" (GOTO _testcablerun)
@cls
rem goto _TestVrUsvCopy

:_testcablerun
@echo off
setlocal EnableDelayedExpansion
set startTime=%time%

:::::::::::::::::: SETTINGS BEGIN ::::::::::::::::::

::----Путь до файла adb.exe (например, в составе SideQuest)----::
set adbExe=%MYFILES%\adb.exe

@del .\TestFiles /q 1>nul 2>nul
@rd .\TestFiles /q 1>nul 2>nul
@md TestFiles >nul
@fsutil file createnew .\TestFiles\1gb.bin 1000000000 1>nul 2>nul
@fsutil file createnew .\TestFiles\500mb.bin 500000000 1>nul 2>nul

::----Количество проходов теста----::
@echo ============================================
@set /A testNum=%choice%
::"Введите количество проходов теста и нажмите Enter: ("0" - возврат в Главное меню)"
::@@echo ("0" - возврат в Главное меню)
::if %testNum%==0 goto _beginn

::----Путь до каталога, откуда будут копироваться файлы на шлем (например C:\Temp)----::
::----Если пустой, будет использоваться каталог запуска скрипта----::
@set pathTest=.\TestFiles

:::::::::::::::::: SETTINGS END ::::::::::::::::::

::@echo. 
rem StartRusTextBlock
rem @echo  Стартуем проверку USB кабеля передачей файлов на шлем. 
rem @echo  Количество проходов теста: %testNum%.
rem @echo  Подождите немного...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Starting test of USB-cable using file transfer with %testNum% attempts. Please wait...
rem EndEngTextBlock
@echo. 

@set /A i=1
@set /A allErr=0

:_begin
@set /A isOk=0
%adbExe% push %pathTest% /sdcard/Download/Files >_ && type _
@findstr /i /c:"in -" _>nul
@if !errorlevel! EQU 0 (
	@set /A isOk=1
	@set /A allErr+=1
)
%adbExe% shell rm -rf sdcard/Download/Files
rem StartRusTextBlock
rem @if %!sOk! NEQ 1 @echo.  !time! Тест #!i! прошел успешно.
rem EndRusTextBlock
rem StartEngTextBlock
@if %!sOk! NEQ 1 @echo.  !time! Test #!i! passed successfully.
rem EndEngTextBlock
@set /A i+=1
@if !i! LEQ %testNum% goto _begin


@echo. 
rem StartRusTextBlock
rem @echo  Тест завершен. Время начала: %startTime%. Время завершения: %time%. Ошибки: !allErr!
rem EndRusTextBlock
rem StartEngTextBlock
@echo  The test is complete. Start time: %startTime%. End time: %time%. Errors: !allErr!
rem EndEngTextBlock
@echo.
del /q _
@del .\TestFiles /q >nul
@rd .\TestFiles /q >nul
@goto _returnmenu

:_opencmd
@start cmd
goto _beginn

:_openshell
@echo off
::@start cmd /c @echo. & @adb shell
@start cmd /c @%MYFILES%\adb shell
goto _beginn


:_backupdatamenu
call :_cdc
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    B.  Создать бэкап данных приложений   [EXP]
rem @echo.
rem @echo.
rem @echo.
rem @echo ОБРАТИТЕ ВНИМАНИЕ:
rem @echo.
rem @echo      Процесс может занять значительное время!
rem @echo      Со шлема будет скопирован и запакован
rem @echo      в один архив весь каталог /Android/data/
rem EndRusTextBlock
rem StartEngTextBlock
@echo    B.  Create an application data backup   [EXP]
@echo.
@echo.
@echo.
@echo PLEASE NOTE:
@echo.
@echo      The process may take a significant amount of time!
@echo      From the headset, the entire /Android/data/ directory will be copied and packed
@echo      into a single archive.
rem EndEngTextBlock
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _backupdatamenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="b" (GOTO _backupdata)
cls
goto _backupdatamenu

:_backupdata
call :_settime
@echo ----------------------------------
@echo.
rem StartRusTextBlock
rem @echo Процесс архивации запущен, ждите окончания...
rem EndRusTextBlock
rem StartEngTextBlock
@echo The archiving process has started, please wait...
rem EndEngTextBlock
@%myfiles%\adb pull /sdcard/Android/data/ 1>nul 2>nul
@%myfiles%\7z.exe a -mx7 -t7z -ssw data-%dt%.7z %cd%\data 1>NUL 2>&1
@rd %cd%\data /q /s 1>nul 2>nul
@echo ======================================== 
@echo.
rem StartRusTextBlock
rem @echo Архив сохранен в текущем каталоге с именем data-%dt%.7z
rem EndRusTextBlock
rem StartEngTextBlock
@echo The archive is saved in the current directory with the name data-%dt%.7z
rem EndEngTextBlock
@goto _returnmenu




:_helplinksmenu
call :_hat
@echo.
@echo off
@echo      ----------------------------
rem StartRusTextBlock
rem @echo       ВЫБЕРИТЕ ИНТЕРЕСУЮЩУЮ ТЕМУ
rem @echo      ----------------------------
rem @echo.
rem @echo    0.  Выход из программы
rem @echo    M.  Выход в главное меню
rem @echo      ----------------------------
rem @echo.
rem @echo.
rem @echo    A.  Возможные решения проблем с подключением шлема по Link и AirLink
rem @echo    B.  Первичная настройка шлема и установка обновлений
rem @echo    C.  Платные и бесплатные VPN клиенты для обхода блокировок
rem @echo    D.  Руководство по различным методам прошивки шлема
rem @echo    E.  Создание организации для включения режима разработчика
rem @echo    F.  Процедура перехода на Meta-аккаунт
rem @echo    G.  Всеобъемлющий FAQ по шлему Oculus Quest 2
rem @echo    I.  Сайт для проверки доступности адресов
rem @echo    J.  Где и как скачивать игры
rem @echo    K.  Все об  Oculus Quest: прошивки, статьи, программы и многое другое
rem @echo    L.  Авторский портал о VR: vr419.ru
rem @echo    N.  Скачать последнюю версию Quas или оставить вопрос/отзыв/комментарий
rem @echo    O.  Скачать прошивки для Quest 1/2/3/Pro
rem @echo    P.  WebADB: Управление шлемом в браузере
rem @echo.
rem @echo ---------------------------------------------------------------------
rem @echo  Ссылки будут открываться в браузере по умолчанию.
rem EndRusTextBlock
rem StartEngTextBlock
@echo      ----------------------------
@echo       CHOOSE THE INTERESTING TOPIC
@echo      ----------------------------
@echo.
@echo    0.  Exit the program
@echo    M.  Return to the main menu
@echo.
@echo    I.  Website to check the availability of addresses (RU)
@echo    K.  All about Oculus Quest: firmware, articles, programs, and much more (RU)
@echo    L.  Author's portal about VR: vr419.ru (RU)
@echo    N.  Download the latest version of Quas or leave a question/feedback/comment (RU)
@echo    O.  Download firmware for Quest 1/2/3/Pro
@echo    P.  WebADB: Headset management in the browser
@echo.
@echo ---------------------------------------------------------------------
@echo  Links will open in the default browser.
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _helplinksmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (start " " "https://vrcomm.ru/topic/90-возможные-решения-проблем-с-подключением-шлема-по-link-и-airlink")
if /i "%choice%"=="b" (start " " "https://vrcomm.ru/topic/109-обзор-первичной-настройки-meta-quest-3")
if /i "%choice%"=="c" (start " " "https://vrcomm.ru/topic/195-программы-для-упрощенного-доступа-к-различным-ресурсам")
if /i "%choice%"=="d" (start " " "https://vrcomm.ru/forum/12-режим-разработчика-adb-прошивка/")
if /i "%choice%"=="e" (start " " "https://vrcomm.ru/topic/106-создание-организации-для-включения-режима-разработчика")
if /i "%choice%"=="f" (start " " "https://vrcomm.ru/topic/107-процедура-перехода-на-meta-аккаунт")
if /i "%choice%"=="g" (start " " "https://vrcomm.ru/forum/4-meta-quest-faq/")
if /i "%choice%"=="i" (start " " "https://ping-admin.ru/free_test/")
if /i "%choice%"=="j" (start " " "https://vrcomm.ru/topic/183-программы-для-скачивания-игр-и-прочего")
if /i "%choice%"=="k" (start " " "https://vrcomm.ru")
if /i "%choice%"=="l" (start " " "https://vr419.ru/")
if /i "%choice%"=="n" (start " " "https://vrcomm.ru/topic/101-quest-adb-scripts-quas/")
if /i "%choice%"=="o" (start " " "https://cocaine.trade/)
rem StartRusTextBlock
rem if /i "%choice%"=="p" (start " " "https://app.webadb.com/" && @echo Через 10 секунд программа будет закрыта && @timeout 10 && goto _tk)
rem EndRusTextBlock
rem StartEngTextBlock
if /i "%choice%"=="p" (start " " "https://app.webadb.com/" && @echo The program will be closed in 10 seconds && @timeout 10 && goto _tk)
rem EndEngTextBlock
::if /i "%choice%"=="q" (start " " "_____")
::if /i "%choice%"=="qq" (start " " chrome "_____")
::if /i "%choice%"=="r" (start " " "_____")
::if /i "%choice%"=="rr" (start " " chrome "_____")
@cls
goto _helplinksmenu

:_syscommenu
call :_settime
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Работа с dumpsys
rem @echo    C.  Сохранить в файл все свойства шлема (getprop)
rem @echo    D.  Показать IP адрес шлема
rem @echo    E.  Сохранить список установленных пакетов (packages names)
rem @echo    F.  Показать серийный номер шлема
rem @echo    G.  Сохранить списки системных настроек шлема (system/global/security)
rem @echo    H.  Работа с Logcat
rem @echo    I.  Информация об аккумуляторе
rem @echo    K.  Извлечение багрепорта                 		[EXP]
rem @echo    L.  Просмотр CPU-емких приложений         		[EXP]
rem @echo    N.  Список файлов/каталогов и их объем    		[EXP]
rem @echo    O.  Показать объем занятого места         		[EXP]
rem @echo    P.  Журнал подключений и отключений USB устройств
@echo    Q.  Отобразить информацию об обновлениях
rem @echo.   R.  Сохранение всей системной информации оптом в один архив
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Work with dumpsys
@echo    C.  Save to file all headset properties (getprop)
@echo    D.  Show headset IP address
@echo    E.  Save a list of installed packages (package names)
@echo    F.  Show headset serial number
@echo    G.  Save a list of system settings (system/global/security)
@echo    H.  Work with Logcat
@echo    I.  Battery information
@echo    K.  Bug report extraction [EXP]
@echo    L.  View CPU-intensive applications [EXP]
@echo    N.  List of files/directories and their size [EXP]
@echo    O.  Show the amount of occupied space [EXP]
@echo    P.  USB device connection and disconnection log
@echo    Q.  show information about updates
@echo.   R.  Save all system information in bulk into one archive
rem EndEngTextBlock

@echo.
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _syscommenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _dumpsysmenu)
if /i "%choice%"=="c" (GOTO _allprop)
if /i "%choice%"=="d" (GOTO _showip)
if /i "%choice%"=="e" (GOTO _packageslist)
if /i "%choice%"=="ee" (GOTO _packagesfull)
if /i "%choice%"=="f" (GOTO _showserial)
if /i "%choice%"=="g" (GOTO _syscomm)
if /i "%choice%"=="h" (GOTO _adblogcat)
if /i "%choice%"=="i" (GOTO _batinfo)
if /i "%choice%"=="k" (GOTO _bugreportextr)
if /i "%choice%"=="l" (GOTO _cpuload)
if /i "%choice%"=="n" (GOTO _sizecheckmenu)
if /i "%choice%"=="o" (GOTO _sizeinfo)
if /i "%choice%"=="p" (GOTO _USBConnectionsList)
rem if /i "%choice%"=="q" (GOTO _UpdatesInfo)
if /i "%choice%"=="r" (GOTO _AllSystemFiles)
cls
goto _syscommenu

:_UpdatesInfo
call :_cdc
rem StartRusTextBlock
rem @echo =  Были установлены обновления:
rem EndRusTextBlock
rem StartEngTextBlock
@echo =  Updates have been installed:
rem EndEngTextBlock
@echo.
call :_settime
@echo off
rem !!!!!!! Узнать как называется раздел в английском dumpsys !!!!!
%myfiles%\adb shell dumpsys DumpsysProxy 'Ключевые мобильные сервисы Oculus (DumpsysLedger)' >dspo.txt

Setlocal EnableDelayedExpansion
@FOR /f "tokens=*" %%a IN (dspo.txt) do set a=%%a
@set a=!a:,= !
rem @echo !a!
for %%b in (!a!) do (
@echo %%b >>list3.txt
)

set "searchString=identifier"
set "nextLine="
for /f "delims=" %%a in (list3.txt) do (
if defined nextLine (
set "nextLine=%%a"
call :_found
)
@echo %%a | findstr /C:"%searchString%" >nul
if not errorlevel 1 (
set "nextLine=true"
)
)
endlocal
@del /F /Q list3.txt 1>nul 2>nul
@del /F /Q dspo.txt 1>nul 2>nul
call :_prevmenu
goto _syscommenu


:_found
@if not %nextLine%==[] @echo %nextLine%
rem >>name.txt
rem if not %nextLine%==[] @echo https://securecdn.oculus.com/binaries/download/?id=%nextLine%>>numb.txt
set "nextLine="
exit /b
endlocal
@del /F /Q list3.txt 1>nul 2>nul
@del /F /Q dspo.txt 1>nul 2>nul
call :_prevmenu
goto _syscommenu
rem @echo =  Готово. Инфа в файле UpdateInfo-%dt%.txt
rem @echo --------------------------------------------------------------
call :_prevmenu
goto _syscommenu



:_AllSystemFiles
rem StartRusTextBlock
rem @echo =  Сохранение всей системной информации оптом..
rem EndRusTextBlock
rem StartEngTextBlock
@echo =  Bulk saving of all system information...
rem EndEngTextBlock
call :_settime
md %cd%\allsysinfo 1>NUL 2>&1
@%MYFILES%\adb shell dumpsys 2>nul >%cd%\allsysinfo\dumpsysfull-%dt%.txt
call :_erlvl
@%MYFILES%\adb shell getprop >%cd%\allsysinfo\properties-%dt%.txt
@%MYFILES%\adb shell pm list packages -f -a >%cd%\allsysinfo\packages-list-%dt%.txt
@%MYFILES%\adb shell settings list global >%cd%\allsysinfo\global-%dt%.txt
@%MYFILES%\adb shell settings list secure >%cd%\allsysinfo\secure-%dt%.txt
@%MYFILES%\adb shell settings list system >%cd%\allsysinfo\system-%dt%.txt
@%myfiles%\adb bugreport %cd%\allsysinfo
@%myfiles%\adb logcat -d >%cd%\allsysinfo\lc-all-%dt%.txt
@%myfiles%\7z.exe a -mx7 -t7z -ssw allsysinfo-%dt%.7z %cd%\allsysinfo 1>NUL 2>&1
@rd /q /s "%cd%\allsysinfo" 2>nul 1>nul
@echo.
rem StartRusTextBlock
rem @echo =  Готово. Инфа сложена в один архив allsysteminfo-%dt%.7z
rem EndRusTextBlock
rem StartEngTextBlock
@echo =  Done. Info is packed into one archive allsysteminfo-%dt%.7z
rem EndEngTextBlock
@echo --------------------------------------------------------------
call :_prevmenu
goto _syscommenu

:_scrtimeout
@%MYFILES%\adb shell settings put system screen_off_timeout 86400000
call :_erlvl
:: 2>nul 1>nul
call :_hat
@echo.
@echo.
@echo -------------------------------------------
rem StartRusTextBlock
rem @echo  Настройки отключения экрана восстановлены
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Screen timeout settings restored
rem EndEngTextBlock
@echo.
@echo.
call :_prevmenu
goto _syscommenu


:_sysnameall
:: Наименования всех сервисов
@%MYFILES%\adb shell dumpsys -l >%cd%\servicelist-%dt%.txt 
call :_erlvl
@echo =============================
rem StartRusTextBlock
rem @echo  Наименования сервисов сохранены в текущий каталог в файл servicelist-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Service names are saved to the current directory in the file servicelist-%dt%.txt
rem EndEngTextBlock
::@@echo  Для вывода информации о конкретном сервисе, введите его имя в конце команды.
::@@echo  Примеры:
::@@echo      adb shell dumpsys wifi
::@@echo      adb shell dumpsys TelemetryService
call :_prevmenu
goto _syscommenu

:_dumpsysmenu
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Сохранить полный список состояния (dumpsys)
rem @echo    B.  Поиск и выборка по определенному слову
rem @echo    C.  Поиск и выборка, ИСКЛЮЧАЯ определенное слово
rem @echo    D.  Наименование всех сервисов (dumpsys -l)
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Save the full state list (dumpsys)
@echo    B.  Search and selection by a specific word
@echo    C.  Search and selection, EXCLUDING a specific word
@echo    D.  Name of all services (dumpsys -l)
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _dumpsysmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _dumpsysfull)
if /i "%choice%"=="b" (GOTO _dumpsyssrchincl)
if /i "%choice%"=="c" (GOTO _dumpsyssrchex)
if /i "%choice%"=="d" (GOTO _sysnameall)
cls
goto _dumpsysmenu

:_dumpsysfull
call :_cdc
:: Полный список состояния системных сервисов
rem StartRusTextBlock
rem @echo  Секундочку, снимаем дамп... 
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Just a moment, taking a dump...
rem EndEngTextBlock
@echo ----------------------------------
@%MYFILES%\adb shell dumpsys 2>nul >dumpsysfull-%dt%.txt
@echo =============================
rem StartRusTextBlock
rem @echo  Дамп сохранен в текущий каталог в файл dumpsysfull-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Dump saved to the current directory in the file dumpsysfull-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _syscommenu

:_dumpsyssrchincl
call :_cdc
call :_settime
call :_hat
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo   Будет снят полный дамп и из него будут выбраны только те строки, 
rem @echo   в которых содержится искомое слово.
rem @echo   Выборка сохранится в файл dumpsys-слово-для-поиска.txt
rem @echo.
rem @echo   Если передумали, введите 0 и нажмите Enter
rem @echo   для возврата в предыдущее меню.
rem EndRusTextBlock
rem StartEngTextBlock
@echo   A full dump will be taken and only the lines containing the search word will be selected from it.
@echo   The selection will be saved to the file dumpsys-search-word.txt
@echo.
@echo   If you changed your mind, enter 0 and press Enter
@echo   to return to the previous menu.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
:: Полный список состояния системных сервисов
rem StartRusTextBlock
rem @Set /p srch=" Bведите слово для выборки и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p srch="Enter the word for selection and press Enter: "
rem EndEngTextBlock
if %srch%==0 goto _dumpsysmenu
@echo ================================
rem StartRusTextBlock
rem @echo  Секундочку, снимаем дамп... 
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Just a moment, taking a dump...
rem EndEngTextBlock
@echo.
@echo ----------------------------------
@%MYFILES%\adb shell dumpsys 2>nul >dumpsrch.txt
call :_erlvl
>nul findstr /i /c:"%srch%" < dumpsrch.txt >> dumpsys-%srch%-%dt%.txt
@echo =============================
rem StartRusTextBlock
rem @echo  Дамп сохранен в текущий каталог в файл dumpsys-%srch%-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Dump saved to the current directory in the file dumpsys-%srch%-%dt%.txt
rem EndEngTextBlock
@del dumpsrch.txt /q
call :_prevmenu
goto _syscommenu

:_dumpsyssrchex
call :_cdc
call :_settime
call :_hat
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo   Будет снят полный дамп и из него будут выбраны только те строки, 
rem @echo   в которых НЕ содержится искомое слово.
rem @echo   Выборка сохранится в файл dumpsys-слово-для-поиска.txt
rem @echo.
rem @echo   Если передумали, введите 0 и нажмите Enter
rem @echo   для возврата в предыдущее меню.
rem EndRusTextBlock
rem StartEngTextBlock
@echo   A full dump will be taken and only the lines NOT containing the search word will be selected from it.
@echo   The selection will be saved to the file dumpsys-search-word.txt
@echo.
@echo   If you changed your mind, enter 0 and press Enter
@echo   to return to the previous menu.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
:: Полный список состояния системных сервисов
rem StartRusTextBlock
rem @Set /p srch=" Bведите слово для выборки и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p srch="Enter the word for selection and press Enter: "
rem EndEngTextBlock
if %srch%==0 goto _dumpsysmenu
@echo ================================
rem StartRusTextBlock
rem @echo  Секундочку, снимаем дамп... 
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Just a moment, taking a dump...
rem EndEngTextBlock
@echo.
@echo ----------------------------------
@%MYFILES%\adb shell dumpsys 2>nul >dumpsrch.txt
call :_erlvl
>nul findstr /i /v /c:"%srch%" < dumpsrch.txt >> dumpsys-%srch%-%dt%.txt
@echo =============================
rem StartRusTextBlock
rem @echo  Дамп сохранен в текущий каталог в файл dumpsys-%srch%-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Dump saved to the current directory in the file dumpsys-%srch%-%dt%.txt
rem EndEngTextBlock
@del dumpsrch.txt /q
call :_prevmenu
goto _syscommenu

:_batinfo
call :_cdc
:: Информация о батарее
call :_BattseryStatTab
@%MYFILES%\adb shell dumpsys battery >battery-%dt%.txt
call :_erlvl
@echo ----------------------------------------------------
rem StartRusTextBlock
rem @echo  Дополнительная информация о батарее сохранена в файл battery-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Additional battery information saved to the file battery-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _syscommenu

:_allprop
:: Вывести все свойства
@%MYFILES%\adb shell getprop >properties-%dt%.txt
call :_erlvl
@echo =============================
rem StartRusTextBlock
rem @echo  Информация о свойствах сохранена в текущий каталог в файл properties-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Properties information saved to the current directory in the file properties-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _syscommenu

:_showip
call :_cdc
:: Показать IP адрес шлема
@FOR /F "tokens=2" %%G IN ('@%MYFILES%\adb.exe shell ip addr show wlan0 ^|findstr /i /c:"inet "') DO @set ipfull=%%G
@FOR /F "tokens=1 delims=/" %%G in ("%ipfull%") DO @set ip=%%G
rem StartRusTextBlock
rem @echo  IP адрес шлема: %ip%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset IP address: %ip%
rem EndEngTextBlock
call :_prevmenu
goto _syscommenu

:_showserial
call :_cdc
:: Показать серийный номер шлема
rem StartRusTextBlock
rem @echo Серийный номер шлема:
rem EndRusTextBlock
rem StartEngTextBlock
@echo Headset Serial Number:
rem EndEngTextBlock
@%MYFILES%\adb shell getprop ro.boot.serialno
call :_erlvl
call :_prevmenu
goto _syscommenu

:_syscomm
call :_cdc
:: Системные команды
@%MYFILES%\adb shell settings list global >global-%dt%.txt
call :_erlvl
@%MYFILES%\adb shell settings list secure >secure-%dt%.txt
@%MYFILES%\adb shell settings list system >system-%dt%.txt
@echo ======================================
rem StartRusTextBlock
rem @echo  Общие настройки в файле global-%dt%.txt в текущем каталоге
rem @echo  Настройки безопасности в файле secure-%dt%.txt в текущем каталоге
rem @echo  Системные настройки в файле system-%dt%.txt в текущем каталоге
rem EndRusTextBlock
rem StartEngTextBlock
@echo  General settings in the file global-%dt%.txt in the current directory
@echo  Security settings in the file secure-%dt%.txt in the current directory
@echo  System settings in the file system-%dt%.txt in the current directory
rem EndEngTextBlock
call :_prevmenu
goto _syscommenu

:_adbintegr
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Встроить ADB и пакет утилит в систему
rem @echo    B.  Встроить только ADB в систему
rem @echo    C.  Удалить ADB и пакет утилит из системы
rem @echo.
rem @echo  ==================================================
rem @echo.
rem @echo     ОБРАТИТЕ ВНИМАНИЕ:
rem @echo.
rem @echo  При встраивании пакета утилит в каталог %windir% 
rem @echo  будут скопированы (не установлены, а скопированы!)
rem @echo  следующие файлы:
rem @echo.
rem @echo 	adb.exe
rem @echo 	adbWinApi.dll
rem @echo 	AdbWinUsbApi.dll
rem @echo 	aapt2.exe
rem @echo 	devcon_x64.exe
rem @echo 	fastboot.exe
rem @echo 	7z.dll
rem @echo 	7z.exe
rem @echo.
rem @echo  При встраивании только ADB будут скопированы 
rem @echo  первые три файла из этого списка.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Embed ADB and utility package into the system
@echo    B.  Embed only ADB into the system
@echo    C.  Remove ADB and utility package from the system
@echo.
@echo  ==================================================
@echo.
@echo     PLEASE NOTE:
@echo.
@echo  When embedding the utility package into the %windir% directory,
@echo  the following files will be copied (not installed, but copied!):
@echo.
@echo 	adb.exe
@echo 	adbWinApi.dll
@echo 	AdbWinUsbApi.dll
@echo 	aapt2.exe
@echo 	devcon_x64.exe
@echo 	fastboot.exe
@echo 	7z.dll
@echo 	7z.exe
@echo.
@echo  When embedding only ADB, the first three files from this list will be copied.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@set "choice="
@set "choice=A"
rem StartRusTextBlock
rem @Set /p choice="Выберите пункт меню и нажмите Enter (Enter - A): "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="Select a menu number and press Enter (Only Enter = A): "
rem EndEngTextBlock
@echo.
if not defined choice goto _adbintegr
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _adbintegration)
if /i "%choice%"=="b" (GOTO _onlyadbintegration)
if /i "%choice%"=="c" (GOTO _desadbintegration)
cls
goto _adbintegr

:_adbintegration
@xcopy %MYFILES%\aapt2.exe %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\devcon_x64.exe %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\fastboot.exe %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\7z.dll %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\7z.exe %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\adb.exe %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\AdbWinApi.dll %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\AdbWinUsbApi.dll %windir%\*.* /Y 1>NUL 2>&1
@echo ===================================================
rem StartRusTextBlock
rem @echo  ADB и пакет утилит встроены в систему. 
rem @echo  Теперь в консоли cmd можно не указывать путь к adb,
rem @echo  а просто писать команду, например: adb devices
rem @echo.
rem @echo  Также можно использовать другие утилиты сразу, 
rem @echo  без необходимости указывать путь к ним.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ADB and utility package are embedded into the system.
@echo  Now in the cmd console you can omit the path to adb,
@echo  and just write the command, for example: adb devices
@echo.
@echo  You can also use other utilities immediately,
@echo  without having to specify their path.
rem EndEngTextBlock
@echo -------------------------------------------------
call :_prevmenu
goto _syscommenu

:_onlyadbintegration
@xcopy %MYFILES%\adb.exe %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\AdbWinApi.dll %windir%\*.* /Y 1>NUL 2>&1
@xcopy %MYFILES%\AdbWinUsbApi.dll %windir%\*.* /Y 1>NUL 2>&1
@echo =====================================================
rem StartRusTextBlock
rem @echo  ADB встроен в систему. 
rem @echo  Теперь в консоли cmd можно не указывать путь к adb,
rem @echo  а просто писать команду, например: adb devices
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ADB is embedded into the system.
@echo  Now in the cmd console you can omit the path to adb,
@echo  and just write the command, for example: adb devices
rem EndEngTextBlock
@echo ---------------------------------------------------
call :_prevmenu
goto _syscommenu

:_desadbintegration
@del %windir%\adb.exe /q /f 1>NUL 2>&1
@del %windir%\AdbWinApi.dll /q /f 1>NUL 2>&1
@del %windir%\AdbWinUsbApi.dll /q /f 1>NUL 2>&1
@del %windir%\aapt2.exe /q /f 1>NUL 2>&1
@del %windir%\devcon_x64.exe /q /f 1>NUL 2>&1
@del %windir%\fastboot.exe /q /f 1>NUL 2>&1
@del %windir%\7z.dll /q /f 1>NUL 2>&1
@del %windir%\7z.exe /q /f 1>NUL 2>&1
@echo ================================================================
rem StartRusTextBlock
rem @echo  Как заказывали: Весь интегрированный хлам удален из %windir%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  As ordered: All integrated junk has been removed from %windir%
rem EndEngTextBlock
@echo ----------------------------------------------------------------

call :_prevmenu
goto _syscommenu

:_TempComponents

:_alltempmenu
cls
call :_hat
call :_hatmenu
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo      МОНИТОРИНГ И ДИАГНОСТИКА КОМПОНЕНТОВ
rem @echo.
rem @echo.
rem @echo.
rem @echo  Каждые несколько секунд значения обновляются автоматически.
rem @echo.
rem @echo  Если ввести интервал с буквой "w" в конце числа,
rem @echo  то показания будут сохранены в файл csv.
rem @echo.
rem @echo  Например, для интервала 10 секунд и сохранения в файл ведите "10w", без кавычек.
rem @echo  По умолчанию интервал 5 секунд и без записи в файл 
rem EndRusTextBlock
rem StartEngTextBlock
@echo      MONITORING AND DIAGNOSTICS OF COMPONENTS
@echo.
@echo.
@echo.
@echo  Every few seconds the values are updated automatically.
@echo.
@echo  If you enter an interval with the letter "w" at the end of the number,
@echo  the readings will be saved to a csv file.
@echo.
@echo  For example, for a 10 second interval and saving to a file, enter "10w", without quotes.
@echo  By default, the interval is 5 seconds and without saving to a file.
rem EndEngTextBlock
@echo.
@echo.
@set "intervaltemp="
@set "intervaltemp=5"
rem StartRusTextBlock
rem @Set /p intervaltemp="Введите новый интервал или просто нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p intervaltemp="Enter a new interval or just press Enter: "
rem EndEngTextBlock
if not defined intervaltemp goto _beginn
if "%intervaltemp%"=="0" (exit)
if /i "%intervaltemp%"=="m" (GOTO _beginn)
if /i "%intervaltemp:~-1%"=="w" (set intervaltempsav=%intervaltemp:~0,-1%&& goto _SaveFileMonitoring)
set intervaltempsav=%intervaltemp%
goto _alltemp

:_SaveFileMonitoring
call :_settime
set dtp=%dt%
call :_CreateFileMon

:_alltemp
call :_cdc
setlocal enableextensions enabledelayedexpansion

set cputempconst=CPU temperatures:
set gputempconst=GPU temperatures:
set battempconst=Battery temperatures:
set skntempconst=Skin temperatures:
set fanspedconst=Fan speed:
set /a cpuusagesum=0

@For /f "tokens=*" %%a in ('%MYFILES%\adb.exe shell dumpsys FanMonitorService') do set fancheck=%%a
@%MYFILES%\adb.exe shell dumpsys hardware_properties >hwp.txt

%myfiles%\adb.exe shell top -m 20 -n 1 -d 10 -bqH >top.txt
@For /f "tokens=9 delims= " %%a in (top.txt) do (
@set cpunumb=%%a
set /a st=!cpunumb:~0,-2!
set /a cpuusagesum=!st!+!cpuusagesum!
)

For /f "tokens=*" %%a in ('%MYFILES%\adb shell getprop debug.oculus.cpuLevel') do set cpulevel=%%a
For /f "tokens=*" %%a in ('%MYFILES%\adb shell getprop debug.oculus.gpuLevel') do set gpulevel=%%a
if [%cpulevel%]==[] set cpulevel=Auto
if [%gpulevel%]==[] set gpulevel=Auto


@FOR /F "skip=1 tokens=1,2,3" %%a IN (hwp.txt) DO (
@set aa=%%a
@set bb=%%b
@set cc=%%c
@set tempvar=!aa! !bb!
@IF !tempvar! == !cputempconst! set cputemp=!cc!
@IF !tempvar! == !gputempconst! set gputemp=!cc!
@IF !tempvar! == !battempconst! set battemp=!cc!
@IF !tempvar! == !skntempconst! set skntemp=!cc!
@IF !tempvar! == !fanspedconst! set fansped=!cc!
)

set usbnumb=1
for /f %%a in ('@%MYFILES%\adb.exe shell dumpsys thermalservice ^| findstr /i /c:"mType=4"') do (
set "tusb=%%a"
for /f "tokens=1,2 delims=,=" %%c in ("!tusb!") do (
set tempusb!usbnumb!=%%d
)
set /a usbnumb=!usbnumb!+1
)
rem echo !tempusb1:~0,2!
rem echo !tempusb2:~0,2!
rem echo !tempusb3:~0,2!
rem echo !tempusb4:~0,2!



cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Мониторинг нагрузки и диагностика компонентов
rem @echo.
rem @echo --------------------------------------------
rem @echo  Статус вентилятора		: !fancheck:~11,-11!
rem @echo  Скорость вентилятора		: !fansped:~1,3!
rem @echo  Варнинги вентилятора		: !fancheck:~27!
rem @echo.
rem @echo  Температура CPU		: !cputemp:~1,4!°
rem @echo  Температура GPU		: !gputemp:~1,4!°
rem @echo  Температура батареи		: !battemp:~1,4!°
rem @echo  Температура корпуса		: !skntemp:~1,4!°
rem @echo  Температура USB Cached		: !tempusb2:~0,4!°
rem @echo  Температура USB Cached conn	: !tempusb1:~0,4!°
rem @echo  Температура USB HAL		: !tempusb3:~0,4!°
rem @echo  Температура USB HAL conn	: !tempusb4:~0,4!°
rem @echo.
rem @echo  Уровень работы CPU		: !cpulevel!
rem @echo  Уровень работы GPU		: !gpulevel!
rem @echo  Загрузка CPU			: !cpuusagesum!%%%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Monitoring load and component diagnostics
@echo.
@echo --------------------------------------------
@echo  Fan status            : !fancheck:~11,-11!
@echo  Fan speed             : !fansped:~1,3!
@echo  Fan warnings          : !fancheck:~27!
@echo.
@echo  CPU Temperature       : !cputemp:~1,4!°
@echo  GPU Temperature       : !gputemp:~1,4!°
@echo  Battery Temperature   : !battemp:~1,4!°
@echo  Case Temperature      : !skntemp:~1,4!°
@echo  USB Cached temperature		: !tempusb2:~0,4!°
@echo  USB Cached conn temperature	: !tempusb1:~0,4!°
@echo  USB HAL temperature		: !tempusb3:~0,4!°
@echo  USB HAL conn temperature	: !tempusb4:~0,4!°
@echo.
@echo  CPU Work Level        : !cpulevel!
@echo  GPU Work Level        : !gpulevel!
@echo  CPU Load              : !cpuusagesum!%%%
@echo --------------------------------------------
rem EndEngTextBlock
@echo.
@echo.
call :_settime
if "%intervaltemp:~-1%"=="w" @echo %dt%	!cputemp:~1,4!	!gputemp:~1,4!	!battemp:~1,4!	!skntemp:~1,4!	!tempusb2:~0,4!	!tempusb1:~0,4!	!tempusb3:~0,4!	!tempusb4:~0,4!	!cpulevel!	!gpulevel!	!fansped:~1,3!>>monitoring-%dtp%.csv
@del top.txt /q /f 1>NUL 2>&1
@del hwp.txt /q /f 1>NUL 2>&1
rem StartRusTextBlock
rem @echo Через %intervaltempsav% секунд результаты обновятся автоматически
rem @echo.
rem @echo  ^>^>^> Для прерывания нажмите любую кнопку ^<^<^<
rem @timeout %intervaltempsav%| >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Процедура прервана +++ ^ & @echo. ^ & @goto _returnmenu
rem EndRusTextBlock
rem StartEngTextBlock
@echo The results will automatically update every %intervaltempsav% seconds
@echo.
@echo  To interrupt, press any key
@timeout %intervaltempsav%| >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Procedure interrupted +++ ^ & @echo. ^ & @goto _returnmenu
rem EndEngTextBlock



@echo.
rem StartRusTextBlock
rem @echo  ...Обновление значений....
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ...Values updating...
rem EndEngTextBlock
@endlocal
goto _alltemp

:_CreateFileMon
@echo DATETIME	TCPU	TGPU	TBAT	TCAS	TUSBC	TUSBCc	TUSBH	TUSBHc	LCPU	LGPU	SFAN>monitoring-%dtp%.csv
exit /b

:_setshare
cls
call :_hat
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo  ОБРАТИТЕ ВНИМАНИЕ:
rem @echo.
rem @echo   Расшаренный ресурс будет создан от имени текущего пользователя
rem @echo.
rem @echo   Введите имя папки и полный путь к ней, например D:\Video
rem @echo   Путь и имя папки можно скопировать из Проводника Windows
rem @echo   и вставить сюда. Путь должен содержать только один каталог, 
rem @echo   иначе говоря, такой вариант: D:\Video\Media не пойдет.
rem @echo.
rem @echo   Папка может быть как новой, так и уже имеющейся.
rem @echo   В случае отсутствия папки, она будет создана.
rem @echo.
rem @echo   Права доступа по сети на папку - Только чтение.
rem @echo.
rem @echo.
rem @echo -------------------------------------------------------
rem @echo   Если передумали - введите "0" и нажмите Enter для возврата в Главное меню.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  ATTENTION:
@echo.
@echo  The shared resource will be created on behalf of the current user
@echo.
@echo  Enter the folder name and the full path to it, for example D:\Video
@echo  The path and folder name can be copied from Windows Explorer
@echo  and paste it here. The path should contain only one directory,
@echo  in other words, such an option: D:\Video\Media won't work.
@echo.
@echo  The folder can be either new or already existing.
@echo  If the folder does not exist, it will be created.
@echo.
@echo  Network access rights to the folder - Read Only.
@echo.
@echo.
@echo -------------------------------------------------------
@echo  If you change your mind - enter "0" and press Enter to return to the Main menu.
rem EndEngTextBlock
@echo.
@set remoteuser=%username%
rem StartRusTextBlock
rem @Set /p fullmediafolder="Введите здесь имя папки и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p fullmediafolder="Enter the folder name here and press Enter: "
rem EndEngTextBlock
if %fullmediafolder%==0 goto _beginn
md %fullmediafolder%
set mf=%fullmediafolder:~3%
@net share %mf%="%fullmediafolder%"
@cmd/c takeown /f "%fullmediafolder%" /r /d y 2>nul 1>&2 && icacls "%fullmediafolder%" /grant:r "%remoteuser%":(OI)(CI)F /t
@echo.
@echo ----------------------
rem StartRusTextBlock
rem @echo Готово, можно подключаться.
rem EndRusTextBlock
rem StartEngTextBlock
@echo Ready, you can connect now.
rem EndEngTextBlock
@echo.
@goto _returnmenu

:_cpuload
call :_cdc
@echo off
@echo ========================
rem StartRusTextBlock
rem @echo Снимаем дамп, секунду..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Taking a dump, one moment..
rem EndEngTextBlock
@%MYFILES%\adb logcat -c 2>nul
call :_erlvl
@%MYFILES%\adb shell dumpsys binder_calls_stats -a >dump.txt 2>nul
@echo ------------------------
rem StartRusTextBlock
rem @echo Парсим дамп..
rem EndRusTextBlock
rem StartEngTextBlock
@echo Parsing the dump..
rem EndEngTextBlock
(SetLocal EnableDelayedExpansion
 set/a $ai=-1
 for /f "usebackq delims=" %%a in ("dump.txt") do @(set "$a=%%a"
 if "!$a:~,15!"=="Per-UID Summary" set/a $ai=36
 if !$ai! geq 0 set/a $ai-=1& @echo:!$a!)
EndLocal)>"cpustat.txt"
@cls
@echo.
@type cpustat.txt
@del cpustat.txt
@del dump.txt
@goto _returnmenu

:_sizecheckmenu
cls
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    S.  Просмотр занимаемого места   [EXP]
rem @echo.
rem @echo.
rem @echo ОБРАТИТЕ ВНИМАНИЕ:
rem @echo.
rem @echo      Процесс может занять значительное время!
rem @echo.      
rem @echo      Файл с результатами будет размещен рядом с программой.
rem @echo      По окончании сканирования он будет открыт текстовой программой по умолчанию.
rem @echo      Число в начале строки - объем занимаемого места в мегабайтах.      
rem @echo      Все, что меньше 10 мегабайт, не учитывается.
rem @echo.
rem @echo      Разумеется, каталоги сканируются не все, а только те, 
rem @echo      к которым резрешен доступ. Поэтому выводимые данные
rem @echo      хоть и достоверны, но отнюдь не полны.
rem EndRusTextBlock
rem StartEngTextBlock
@echo    S.  View occupied space   [EXP]
@echo.
@echo.
@echo Note:
@echo.
@echo      The process may take a significant amount of time!
@echo.      
@echo      The file with the results will be placed next to the program.
@echo      Upon completion of the scan, it will be opened by the default text editor.
@echo      The number at the beginning of the line is the volume of space occupied in megabytes.      
@echo      Anything less than 10 megabytes is not counted.
@echo.
@echo      Of course, not all directories are scanned, only those 
@echo      to which access is allowed. Therefore, the output data
@echo      is reliable, but not complete.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _sizecheckmenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="s" (GOTO _sizecheck)
cls
goto _sizecheckmenu

:_sizecheck
call :_cdc
@echo off
@setlocal enableextensions enabledelayedexpansion

@del ls.txt /q 2>nul 1>nul
@del lslist.txt /q 2>nul 1>nul
@del dupd.txt /q 2>nul 1>nul
@del du0.txt /q 2>nul 1>nul
@del sizelist.txt /q 2>nul 1>nul

%myfiles%\adb shell "ls &>/sdcard/ls.txt"
%myfiles%\adb pull /sdcard/ls.txt %cd%\ls.txt 1>nul
%myfiles%\adb shell rm -f /sdcard/ls.txt
@echo --------------------------------------------------
rem StartRusTextBlock
rem @echo Дерево каталогов создано, начинаем сканирование...
rem EndRusTextBlock
rem StartEngTextBlock
@echo Directory tree created, starting scan...
rem EndEngTextBlock
>nul findstr /i /v /c:"Permission denied" < "ls.txt" > "lslist.txt"

@for /f %%d in (lslist.txt) do (
@set cat=%%d
@echo ------------------------------
rem StartRusTextBlock
rem @echo  Сканируем каталог: !cat!
rem EndRusTextBlock
rem StartEngTextBlock
@echo Scanning directory: !cat!
rem EndEngTextBlock
@echo. >> sizelist.txt
@echo ======================================>> sizelist.txt
rem StartRusTextBlock
rem @echo  Каталог: !cat! >> sizelist.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo Directory: !cat! >> sizelist.txt
rem EndEngTextBlock
@echo ------------------------->> sizelist.txt
%myfiles%\adb shell "du -ham /!cat!/ &>/sdcard/dupd.txt"
::%myfiles%\adb shell "du -hacH &>/sdcard/dupd.txt"
%myfiles%\adb pull /sdcard/dupd.txt %cd%\dupd.txt 1>nul
%myfiles%\adb shell rm -f /sdcard/dupd.txt

>nul findstr /i /v /c:"Permission denied" < dupd.txt >> du0.txt

@for /f "usebackq delims=" %%i in (du0.txt) do (
	@set s=%%i
	@if "!s:~1,2!" NEQ "	/" @echo %%i >> sizelist.txt
)
@del %cd%\dupd.txt /q
@del %cd%\du0.txt /q
)
@del ls.txt /q
@del lslist.txt /q

cls
call :_hat
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++++ Сканирование каталогов завершено ++++
rem @echo.
rem @echo.
rem @echo.
rem @echo   Файл с результатами сохранен 
rem @echo   в текущем каталоге с именем sizelist.txt
rem @echo   и через несколько секунд будет открыт.
rem @echo   Напоминаю, число в начале каждой строки 
rem @echo   означает количество занятых мегабайт.
rem @echo.
rem @echo.  
rem @echo   Пример:
rem @echo.
rem @echo  ======================================
rem @echo   Каталог: product 
rem @echo  -------------------------
rem @echo  22	/product/priv-app/Settings/Settings.apk 
rem @echo  22	/product/priv-app/Settings 
rem @echo.
rem @echo.
rem @echo  В этом примере файл Settings.apk занимает 22 мегабайта.
rem @echo  Каталог /product/priv-app/Settings занимает столько же,
rem @echo  поскольку в нем только один этот файл.
rem @echo.
rem @echo.
rem @echo  Нажмите любую кнопку, чтобы открыть файл sizelist.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo +++++ Directory scanning completed ++++
@echo.
@echo.
@echo.
@echo   The file with the results is saved
@echo   in the current directory with the name sizelist.txt
@echo   and will be opened in a few seconds.
@echo   Reminder, the number at the beginning of each line
@echo   indicates the number of occupied megabytes.
@echo.
@echo.  
@echo   Example:
@echo.
@echo  ======================================
@echo   Directory: product 
@echo  -------------------------
@echo  22	/product/priv-app/Settings/Settings.apk 
@echo  22	/product/priv-app/Settings 
@echo.
@echo.
@echo  In this example, the Settings.apk file occupies 22 megabytes.
@echo  The /product/priv-app/Settings directory occupies the same amount
@echo  since there is only this file in it.
@echo.
@echo.
@echo  Press any key to open the sizelist.txt file
rem EndEngTextBlock
@pause >nul 
@echo.
@ping localhost -t 4 1>nul 2>nul
@start sizelist.txt
@goto _returnmenu

:_sizeinfo
call :_cdc
@SetLocal EnableDelayedExpansion
cls
call :_hat
@echo.
@echo.
@echo.
@echo.
@For /F "skip=1 tokens=2,3,4,5" %%a In ('%MYFILES%\adb shell df -h /sdcard/') Do (
@set aa=%%a
@set bb=%%b
@set cc=%%c
@set dd=%%d

rem StartRusTextBlock
rem @echo   Общий объем : !aa:~,-1! Гб
rem @echo   Занято      : !bb:~,-1! Гб
rem @echo   Свободно    : !cc:~,-1! Гб
rem @echo   Заполнено   : !dd!
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Total volume : !aa:~,-1! GB
@echo   Occupied     : !bb:~,-1! GB
@echo   Free         : !cc:~,-1! GB
@echo   Filled       : !dd!
rem EndEngTextBlock
)
@echo.
@echo.
@echo.
@goto _returnmenu

:_103info
:_449info
rem StartRusTextBlock
@echo ----------------------------------------------------------
rem @echo  Таблица разделов шлема и их размер в байтах и гигабайтах
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Table of partitions of the headset and their size in bytes and gigabytes
rem EndEngTextBlock
@echo ----------------------------------------------------------
%MYFILES%\adb shell df
@echo --------------------------------------------------------
%MYFILES%\adb shell df -h
@echo --------------------------------------------------------
rem  /sdcard/
@echo.
@echo.
@goto _returnmenu

:_USBConnectionsList
@echo Off
cls
call :_hat
SetLocal EnableDelayedExpansion
@echo.
rem StartRusTextBlock
rem @echo  Эта процедура извлечет из журнала событий Windows
rem @echo  и сохранит в файл дату и время всех USB подключений.
rem @echo  Так вы сможете узнать, действительно ли отключался кабель
rem @echo  во время игры или картинка зависала по другой причине.
rem @echo.
rem @echo  Файл будет лежать рядом с программой и называться dis-connected.txt
rem @echo.
rem @echo  Процедура НЕ работает под Windows 7.
rem @echo --------------------------------------------------------------
rem @echo.
rem @echo ^>^>^> Нажмите любую кнопку, чтобы начать извлечение ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo  This procedure will extract from the Windows event log
@echo  and save to file the date and time of all USB connections.
@echo  So you can find out if the cable was actually disconnected
@echo  while playing or the picture was frozen for another reason.
@echo.
@echo  The file will be located next to the program and named dis-connected.txt
@echo.
@echo  The procedure does NOT work under Windows 7.
@echo --------------------------------------------------------------
@echo.
@echo ^>^>^> Press any key to start extraction ^<^<^<
rem EndEngTextBlock
@pause >nul 
@echo.
wevtutil qe Security "/q:*[System [(EventID=4798)]]" /rd:true /f:text >1.txt
>nul findstr /i /c:"Date:" < 1.txt >> dc.txt
(For /F "tokens=* usebackq delims=" %%a In ("dc.txt") Do (
	Set ta=%%a
	@echo !ta:~0,-9!
))>"dis-connected.txt"
del 1.txt /q /f
del dc.txt /q /f
@echo ==============================================
rem StartRusTextBlock
rem @echo Готово. Можете открыть файл. 
rem EndRusTextBlock
rem StartEngTextBlock
@echo Ready. You can open the file.
rem EndEngTextBlock
@goto _returnmenu

:_iperftest
call :_cdc
cls
@echo off
@call :_HeadsetIP
@call :_GetIP ipaddr
if not exist ipaddr.txt call :_CreateIPaddressTxt
call :_ExtractIPaddress
call :_hat
if [%ipaddrtxt%]==[] goto :_IPaddrEmpty
rem @echo.
@echo    --------------------------------------------------------------------------------
@echo    ^|    +++       Wireless Connect Tester     +++    v1.7 - 23.05.24      +++     ^|
@echo    --------------------------------------------------------------------------------
rem StartRusTextBlock
@echo                   - благодарю satspace за подсказку - 
rem call :_hatmenu
rem @echo.
rem @echo    S.  Запустить тестирование скорости Wi-Fi  [EXP]
rem @echo    T.  Проанализировать результаты тестирования  [EXP]
rem @echo.
rem @echo.
rem @echo  ОБРАТИТЕ ВНИМАНИЕ:
rem @echo.
rem @echo    IP адрес компьютера:		[ %ipaddrtxt% 	]
rem @echo    IP адрес гарнитуры:		[ %iphs% 	]
rem @echo.
rem @echo    IP адрес компьютера определяется автоматически, проверьте его правильность. 
rem @echo    Если IP адрес не соответствует вашей сетевой карте, выйдите из программы 
rem @echo    и укажите его в файле ipaddr.txt, только что созданном рядом с программой.
rem @echo.
rem @echo    Для теста требуется подключтить кабель к ПК и шлему, а также включенный Режим разработчика.
rem @echo.
rem @echo    После запуска введите количество одновременных потоков,
rem @echo    или просто нажмите Enter для одного потока по умолчанию.
rem @echo    Задайте интервал между проверками в миллисекундах:
rem @echo    Минимальное значение интервала - 100, по умолчанию - 1000 (1 секунда)
rem @echo    Для выявления просадок и потерь пакетов, рекемендуется интервал проверок поставить 100
rem @echo    Также введите длительность проверки в секундах.По умолчанию - 180 секунд
rem @echo    Запустится сервер на ПК и клиент в шлеме,по завершении тестов оба окна закроются.
rem @echo.      
rem @echo    Будет проведено два теста: прямой и реверсивный. Прямой тест - от шлема к ПК,
rem @echo    реверсивный - от ПК к шлему. После завершения тестов рядом с программой появится лог-файл
rem @echo    с именем WiFiConnectTest.txt. В нем будут записаны результаты тестов. В файлах *.csv
rem @echo    содержатся данные, на основе которых можно построить диаграмму проверки и провести анализ.
rem @echo.
rem @echo    Если программа по какой-то причине отказывается работать и вылетает, смотрите текст ошибки
rem @echo    в файле error.txt. При ошибке iperf3: unable to send control message: Bad file descriptor
rem @echo    отключите файрволл на ПК на время тестирования.
rem @echo.
rem @echo    Чтоб прервать ввод данных и вернуться в меню, 
rem @echo    вместо значений интервала, потоков или длительности, введите 0
rem @echo.
rem @echo    После тестирования можно проанализировать результаты тестов с помощью пункта T этого меню.
rem @echo    Там же будут пояснения по анализу результатов.
rem 
rem 
rem EndRusTextBlock
rem StartEngTextBlock
@echo             - thank you user "satspace" for the advice - 
call :_hatmenu
@echo.
@echo    S.  Run Wi-Fi speed test  [EXP]
@echo    T.  Analyze test results  [EXP]
@echo.
@echo.
@echo  NOTE:
@echo.
@echo    Computer IP address:		[ %ipaddrtxt% 	]
@echo    Headset IP address:		[ %iphs% 	]
@echo.
@echo    The computer IP address is determined automatically, please check its correctness.
@echo    If the IP address does not match your network card, exit the program
@echo    and specify it in the ipaddr.txt file, which was just created next to the program.
@echo.
@echo    For the test, a USB cable connected to the PC and the headset is required,
@echo    as well as the Developer Mode turned on.
@echo.
@echo    After starting, enter the number of simultaneous threads,
@echo    or simply press Enter for one thread by default.
@echo    Set the interval between checks in milliseconds:
@echo    The minimum interval value is 100, by default - 1000 (1 second)
@echo    To detect drops and packet losses, it is recommended to set the check interval to 100
@echo    Also enter the duration of the check in seconds. By default - 180 seconds
@echo    The server will start on the PC and the client in the headset, 
@echo    both windows will close after the tests are completed.
@echo.      
@echo    Two tests will be conducted: direct and reverse.
@echo    Direct test - from the headset to the PC, reverse - from the PC to the headset.
@echo    After completing the tests, a log file named
@echo    WiFiConnectTest.txt will appear next to the program. 
@echo    The results of the tests will be recorded in it.
@echo.
@echo    If the program for some reason refuses to work
@echo    and crashes, see the error text in the error.txt file
rem EndEngTextBlock
@echo  -----
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _iperftest
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="s" (GOTO _iperftestrun)
if /i "%choice%"=="t" (GOTO _WiFiTestCSVAnalyzer)
cls
goto _iperftest

:_iperftestrun
call :_cdc
@echo off & setlocal ENABLEEXTENSIONS
@call :_GetIP ipaddr
if not exist ipaddr.txt call :_CreateIPaddressTxt
call :_ExtractIPaddress
set iinterval=

:_setinterval
rem StartRusTextBlock
rem @set /p iinterval="Введите интервал в миллисекундах и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@set /p iinterval="Enter the interval in milliseconds and press Enter (0 - Exit) : "
rem EndEngTextBlock
if [%iinterval%]==[] set iinterval=1000
if %iinterval%==0 goto _iperftest
if %iinterval% LSS 100 goto _lssinterval
set ointerval=%iinterval%
call :_Division
@echo.
@set qstreams=
rem StartRusTextBlock
rem @set /p qstreams="Введите количество потоков и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@set /p qstreams="Enter the number of streams and press Enter (0 - Exit) : "
rem EndEngTextBlock
if [%qstreams%]==[] set qstreams=1
if %qstreams%==0 goto _iperftest
@echo.
set itime=
rem StartRusTextBlock
rem @set /p itime="Введите длительность проверки в секундах и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@set /p itime="Enter the duration of the check in seconds and press Enter (0 - Exit) : "
rem EndEngTextBlock
if [%itime%]==[] set itime=180
if %itime%==0 goto _iperftest
@echo.
call :_settime
set wfclogd=WiFiConnectTestDirect
set wfclogdt=%wfclogd%-%dt%.txt

@echo ------------------------------------------------------
rem StartRusTextBlock
rem @echo В окне сервера можно наблюдать процесс тестирования.
rem @echo По завершению тестов окно сервера будет закрыто
rem @echo.
rem @echo  Результаты будут сохраненые в файле WiFiConnectTest.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo In the server window, you can observe the testing process.
@echo After the tests are completed, the server window will be closed.
@echo.
@echo The results will be saved in the file WiFiConnectTest.txt.
rem EndEngTextBlock
@echo.
%MYFILES%\adb push %MYFILES%\iperf3.9 /data/local/tmp 1>nul 2>error.txt
%MYFILES%\adb shell chmod +x /data/local/tmp/iperf3.9 1>nul 2>error.txt
if %errorlevel% == 1 goto _iperferror
@start " " %MYFILES%\iperf3.exe -s
@ping localhost -n 1 1>nul 2>nul
rem StartRusTextBlock
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo   Дата проверки	: %dppt%>>%wfclogdt%
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo +   Измерение пропускной способности Wi-Fi   + >>%wfclogdt%
rem @echo +           между шлемом и ПК                + >>%wfclogdt%
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo  ===   Обычная проверка (от шлема к ПК)   === >>%wfclogdt%
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo  Интервал	: %ointerval% ms >>%wfclogdt%
rem @echo  Потоки	: %qstreams% >>%wfclogdt%
rem @echo  Длительность	: %itime% s >>%wfclogdt%
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo. >>%wfclogdt%
rem EndRusTextBlock
rem StartEngTextBlock
@echo ---------------------------------------------- >>%wfclogdt%
@echo  Data of check	: %dppt%>>%wfclogdt%
@echo ---------------------------------------------- >>%wfclogdt%
@echo +   Measuring Wi-Fi throughput   + >>%wfclogdt%
@echo +   between the headset and PC   + >>%wfclogdt%
@echo ---------------------------------------------- >>%wfclogdt%
@echo  ===   Regular check (from headset to PC)   === >>%wfclogdt%
@echo ---------------------------------------------- >>%wfclogdt%
@echo  Interval		: %ointerval% ms >>%wfclogdt%
@echo  Streams		: %qstreams% >>%wfclogdt%
@echo  Duration		: %itime% s >>%wfclogdt%
@echo ---------------------------------------------- >>%wfclogdt%
@echo. >>%wfclogdt%
rem EndEngTextBlock
%MYFILES%\adb shell /data/local/tmp/iperf3.9 -t %itime% -i %iinterval% -c %ipaddrtxt% -P %qstreams% >> %wfclogdt% 2>error.txt
if %errorlevel% == 1 goto _iperferror
@echo. >>%wfclogdt%

set wfclogr=WiFiConnectTestReverse
set wfclogdt=%wfclogr%-%dt%.txt
rem StartRusTextBlock
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo   Дата проверки	: %dppt%>>%wfclogdt%
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo +   Измерение пропускной способности Wi-Fi   + >>%wfclogdt%
rem @echo +           между шлемом и ПК                + >>%wfclogdt%
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo  === Реверсивная проверка (от ПК к шлему) === >>%wfclogdt%
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo  Интервал	: %ointerval% ms >>%wfclogdt%
rem @echo  Потоки	: %qstreams% >>%wfclogdt%
rem @echo  Длительность	: %itime% s >>%wfclogdt%
rem @echo ---------------------------------------------- >>%wfclogdt%
rem @echo. >>%wfclogdt%
rem EndRusTextBlock
rem StartEngTextBlock
@echo ---------------------------------------------- >>%wfclogdt%
@echo  Data of check	: %dppt%>>%wfclogdt%
@echo ---------------------------------------------- >>%wfclogdt%
@echo +   Measuring Wi-Fi throughput   + >>%wfclogdt%
@echo +   between the headset and PC   + >>%wfclogdt%
@echo ---------------------------------------------- >>%wfclogdt%
@echo  ===   Reverse check (from PC to headset) === >>%wfclogdt%
@echo ---------------------------------------------- >>%wfclogdt%
@echo  Interval		: %ointerval% ms >>%wfclogdt%
@echo  Streams		: %qstreams% >>%wfclogdt%
@echo  Duration		: %itime% s >>%wfclogdt%
@echo ---------------------------------------------- >>%wfclogdt%
@echo. >>%wfclogdt%
rem EndEngTextBlock
%MYFILES%\adb shell /data/local/tmp/iperf3.9 -t %itime% -i %iinterval% -c %ipaddrtxt% -P %qstreams% -R >> %wfclogdt% 2>error.txt
if %errorlevel% == 1 goto _iperferror
@taskkill /F /IM iperf3.exe 1>nul 2>nul
for %%A IN (%cd%\error.txt) DO (
 if %%~zA EQU 0 (del %%A)
)
%MYFILES%\adb shell rm /data/local/tmp/iperf3.9 1>nul 2>nul

setlocal enableextensions enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /a-d *.csv') do (
set csvfileforren=%%a
ren !csvfileforren! !csvfileforren!.old
)

For /F "skip=16 tokens=7 eol=- delims= " %%a In (%wfclogd%-%dt%.txt) Do (
set bitrated=%%a
@echo !bitrated! >>bitrate-direct-%dt%.csv
)

For /F "skip=16 tokens=7 eol=- delims= " %%a In (%wfclogr%-%dt%.txt) Do (
set bitrater=%%a
@echo !bitrater! >>bitrate-reverse-%dt%.csv
)
endlocal
goto _iperftest

:_WiFiTestCSVAnalyzer
setlocal enableextensions enabledelayedexpansion
call :_cdcbnoreg

if not exist *.csv goto _notestcsvfiles
rem for /r "%cd%" %%i in (*.csv) do (
rem set csvfile=%%i
for /f "delims=" %%a in ('dir /b /a-d *.csv') do (
set csvfile=%%a
set "prct=%%%"
rem StartRusTextBlock
rem @echo !csvfile! | findstr /i /c:"direct"  1>NUL 2>&1 && @set "vector=%_fBlack%%_bCyan%Результаты прямой проверки [от шлема к ПК]                                        %_fReset%" 2>nul 1>nul
rem @echo !csvfile! | findstr /i /c:"reverse" 1>NUL 2>&1 && @set "vector=%_fBlack%%_bCyan%Результаты реверсивной проверки [от ПК к шлему]                                   %_fReset%" 1>NUL 2>&1
rem EndRusTextBlock
rem StartEngTextBlock
@echo !csvfile! | findstr /i /c:"direct" > NUL 2>&1 && set "vector=%_fBlack%%_bCyan%Results of direct check [from helmet to PC]                                        %_fReset%"
@echo !csvfile! | findstr /i /c:"reverse" > NUL 2>&1 && set "vector=%_fBlack%%_bCyan%Results of reverse check [from PC to helmet]                                   %_fReset%"
rem EndEngTextBlock
call :_WifiTestTableMax
call :_WifiTestTableNumb
call :_PercentChecksNumb
call :_WifiTestTableView
)
@echo ------------------------------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo  %_fBWhite%%_bBlack%ПОЯСНЕНИЕ К ТАБЛИЦЕ:%_fReset%
rem @echo.
rem @echo  Весь диапазон измерений битрейта поделен на 10 поддиапазонов, от 0 до максимального, для текущего
rem @echo  теста. В колонке %_fBYellow%%_bBlack%Проверки%_fReset% для каждого поддиапазона указан процент от общего количества проверок.
rem @echo  По нему можно понять уровень просадок. %_fBWhite%%_bBlack%Пример 1:%_fReset% если в десятом поддиапазоне число в колонке
rem @echo  %_fBYellow%%_bBlack%Проверки%_fReset% не 0, значит скорость просаживалась до уровня битрейта в этом поддиапазоне, то есть
rem @echo  %_fBlack%%_fBRed%от 0 до !numb10!%_fReset% мбит, на количество процентов в колонке %_fBYellow%%_bBlack%Проверки%_fReset%. %_fBWhite%%_bBlack%Пример 2:%_fReset% Для второго диапазона 
rem @echo  в колонке %_fBYellow%%_bBlack%Проверки%_fReset% число %_fBlack%%_fBGreen%!pnumb80!%prct%%_fReset%. Интервал поддиапазона %_fBlack%%_fBGreen%от !numb80! до !numb90!%_fReset% мбит, а это значит, что
rem @echo  битрейт %_fBlack%%_fBGreen%!pnumb80!%_fReset% процента времени был между %_fBlack%%_fBGreen%!numb80!%_fReset% и %_fBlack%%_fBGreen%!numb90!%_fReset% мбит. То есть, %_fBlack%%_fCyan%чем больше процент у высокого 
rem @echo  битрейта, тем лучше канал. Чем больше процент для низкого битрейта, тем сильнее просадки%_fReset%.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  %_fBWhite%%_bBlack%EXPLANATION FOR THE TABLE:%_fReset%
@echo.
@echo  The entire bitrate range is divided into 10 subranges, from 0 to the maximum, for the current
@echo  test. In the %_fBYellow%%_bBlack%Checks%_fReset% column, each subrange indicates the percentage of total checks to understand
@echo  the level of bitrate drops. %_fBWhite%%_bBlack%Example 1:%_fReset% If the number in the %_fBYellow%%_bBlack%Checks%_fReset% column for the tenth subrange
@echo  is not 0, it means the bitrate dropped to that subrange level, i.e. %_fBlack%%_fBRed%from 0 to !numb10!%_fReset% Mbps, for the 
@echo  percentage in the %_fBYellow%%_bBlack%Checks%_fReset% column. %_fBWhite%%_bBlack%Example 2:%_fReset% For the second subrange in the %_fBYellow%%_bBlack%Checks%_fReset%column, the
@echo  number is %_fBlack%%_fBGreen%!pnumb80!%prct%%_fReset%. The subrange interval is %_fBlack%%_fBGreen%from !numb80! to !numb90!%_fReset% Mbps, meaning that the bitrate was
@echo  %_fBlack%%_fBGreen%!pnumb80!%_fReset% percent of the time between %_fBlack%%_fBGreen%!numb80!%_fReset% and %_fBlack%%_fBGreen%!numb90!%_fReset% Mbps. Thus, %_fBlack%%_fCyan%the higher percentage at high bitrates,
@echo  the better the channel. The higher the percentage for low bitrates, the more severe the drops%_fReset%.
rem EndEngTextBlock

call :_prevmenu
goto _shellmenu

:_WifiTestTableMax
set exnumb=0
set qnumb=0
@for /f %%a in (%csvfile%) do (
@set /a cnumb=%%a 2>nul
@if !cnumb! GTR !exnumb! set exnumb=!cnumb!
set /a qnumb=!qnumb!+1
)
set /a maxnumb=!exnumb!

@if !maxnumb! GEQ 800 (
rem StartRusTextBlock
rem set "rouqua=Превосходная пропускная способность"
rem ) else (
rem @if !maxnumb! GEQ 500 (
rem set "rouqua=Отличная пропускная способность"
rem ) else (
rem @if !maxnumb! GEQ 400 (
rem set "rouqua=Хорошая пропускная способность"
rem ) else (
rem @if !maxnumb! GEQ 300 (
rem set "rouqua=Неплохая пропускная способность"
rem ) else (
rem @if !maxnumb! GEQ 200 (
rem set "rouqua=Пропускная способность маловата"
rem ) else (
rem set "rouqua=Пропускная способность крайне мала"
rem EndRusTextBlock
rem StartEngTextBlock
set "rouqua=Excellent bandwidth"
) else (
@if !maxnumb! GEQ 500 (
set "rouqua=Great bandwidth"
) else (
@if !maxnumb! GEQ 400 (
set "rouqua=Good bandwidth"
) else (
@if !maxnumb! GEQ 300 (
set "rouqua=Fair bandwidth"
) else (
@if !maxnumb! GEQ 200 (
set "rouqua=Bandwidth is somewhat low"
) else (
set "rouqua=Bandwidth is extremely low"
rem EndEngTextBlock
)
)
)
)
)

set inumb0=0
set inumb10=0
set inumb20=0
set inumb30=0
set inumb40=0
set inumb50=0
set inumb60=0
set inumb70=0
set inumb80=0
set inumb90=0

set /a numb10=!maxnumb!/10
set /a numb20=!numb10!*2
set /a numb30=!numb10!*3
set /a numb40=!numb10!*4
set /a numb50=!numb10!*5
set /a numb60=!numb10!*6
set /a numb70=!numb10!*7
set /a numb80=!numb10!*8
set /a numb90=!numb10!*9
exit /b

:_WifiTestTableNumb
@for /f %%a in (%csvfile%) do (
set nextnumb=%%a
@if !nextnumb! GEQ !numb90! (
set /a inumb90=!inumb90!+1
) else (
@if !nextnumb! GEQ !numb80! (
set /a inumb80=!inumb80!+1
) else (
@if !nextnumb! GEQ !numb70! (
set /a inumb70=!inumb70!+1
) else (
@if !nextnumb! GEQ !numb60! (
set /a inumb60=!inumb60!+1
) else (
@if !nextnumb! GEQ !numb40! (
set /a inumb40=!inumb40!+1
) else (
@if !nextnumb! GEQ !numb30! (
set /a inumb30=!inumb30!+1
) else (
@if !nextnumb! GEQ !numb20! (
set /a inumb20=!inumb20!+1
) else (
@if !nextnumb! GEQ !numb10! (
set /a inumb10=!inumb10!+1
) else (
set /a inumb0=!inumb0!+1
)
)
)
)
)
)
)
)
)
exit /b

:_PercentChecksNumb

rem Считаем процент одного числа к другому.
rem 492 - максимальный битрейт.
rem 281 - битрейт, процент которого нужно узнать
rem set /A RES=(281*1000)*100/492
rem echo %RES:~0,-3%.%RES:~-3% 
endlocal
set /A pcnumb90=(%inumb90%*100)*100/%qnumb%

if [%pcnumb90:~0,-2%]==[] (
set pnumb90=0.%pcnumb90:~-2%
) else (
set pnumb90=%pcnumb90:~0,-2%.%pcnumb90:~-2%
)

set /A pcnumb80=(%inumb80%*100)*100/%qnumb%
if [%pcnumb80:~0,-2%]==[] (
set pnumb80=0.%pcnumb80:~-2%
) else (
set pnumb80=%pcnumb80:~0,-2%.%pcnumb80:~-2%
)

set /A pcnumb70=(%inumb70%*100)*100/%qnumb%
if [%pcnumb70:~0,-2%]==[] (
set pnumb70=0.%pcnumb70:~-2%
) else (
set pnumb70=%pcnumb70:~0,-2%.%pcnumb70:~-2%
)

set /A pcnumb60=(%inumb60%*100)*100/%qnumb%
if [%pcnumb60:~0,-2%]==[] (
set pnumb60=0.%pcnumb60:~-2%
) else (
set pnumb60=%pcnumb60:~0,-2%.%pcnumb60:~-2%
)

set /A pcnumb50=(%inumb50%*100)*100/%qnumb%
if [%pcnumb50:~0,-2%]==[] (
set pnumb50=0.%pcnumb50:~-2%
) else (
set pnumb50=%pcnumb50:~0,-2%.%pcnumb50:~-2%
)

set /A pcnumb40=(%inumb40%*100)*100/%qnumb%
if [%pcnumb40:~0,-2%]==[] (
set pnumb40=0.%pcnumb40:~-2%
) else (
set pnumb40=%pcnumb40:~0,-2%.%pcnumb40:~-2%
)

set /A pcnumb30=(%inumb30%*100)*100/%qnumb%
if [%pcnumb30:~0,-2%]==[] (
set pnumb30=0.%pcnumb30:~-2%
) else (
set pnumb30=%pcnumb30:~0,-2%.%pcnumb30:~-2%
)

set /A pcnumb20=(%inumb20%*100)*100/%qnumb%
if [%pcnumb20:~0,-2%]==[] (
set pnumb20=0.%pcnumb20:~-2%
) else (
set pnumb20=%pcnumb20:~0,-2%.%pcnumb20:~-2%
)

set /A pcnumb10=(%inumb20%*100)*100/%qnumb%
if [%pcnumb20:~0,-2%]==[] (
set pnumb10=0.%pcnumb10:~-2%
) else (
set pnumb10=%pcnumb10:~0,-2%.%pcnumb10:~-2%
)
set /A pcnumb0=(%inumb0%*100)*100/%qnumb%
if [%pcnumb0:~0,-2%]==[] (
set pnumb0=0.%pcnumb0:~-2%
) else (
set pnumb0=%pcnumb0:~0,-2%.%pcnumb0:~-2%
)
exit /b

:_WifiTestTableView
@echo.
@echo  %vector%
@echo  -----------------------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  Поддиапазоны замеров битрейта	: Проверки, %prct%	: Примечание 
rem @echo  -----------------------------------------------------------------------------------
rem @echo  %_fBlack%%_fBGreen%01.    !numb90! - !maxnumb! мбит		: !pnumb90!   	: Обычные просадки.%_fReset%
rem @echo  %_fBlack%%_fBGreen%02.    !numb80! - !numb90! мбит		: !pnumb80!   	: Допустимые просадки.%_fReset%
rem @echo  %_fBlack%%_fBYellow%03.    !numb70! - !numb80! мбит		: !pnumb70!   	: Не очень хорошо, но жить можно.%_fReset%
rem @echo  %_fBlack%%_fBYellow%04.    !numb60! - !numb70! мбит		: !pnumb60!   	: Уже хуже, но жить все еще можно.%_fReset%
rem @echo  %_fBlack%%_fBYellow%05.    !numb50! - !numb60! мбит		: !pnumb50!   	: Плохие просадки.%_fReset%
rem @echo  %_fBlack%%_fBYellow%06.    !numb40! - !numb50! мбит		: !pnumb40!   	: Существенные просадки.%_fReset%
rem @echo  %_fBlack%%_fBRed%07.    !numb30! - !numb40! мбит		: !pnumb30!   	: В этих четырех нижних строках%_fReset%
rem @echo  %_fBlack%%_fBRed%08.    !numb20! - !numb30! мбит		: !pnumb20!   	: должны быть только нулевые значения.%_fReset%
rem @echo  %_fBlack%%_fBRed%09.    !numb10! - !numb20! мбит		: !pnumb10!   	: Если значения отличаются от нуля,%_fReset%
rem @echo  %_fBlack%%_fBRed%10.    0 - !numb10! мбит		: !pnumb0!    	: значит есть серьезные просадки.%_fReset%
rem @echo  -----------------------------------------------------------------------------------
rem @echo  Максимальный битрейт		: !maxnumb! мбит	: !rouqua!
rem @echo  Всего проверок			: !qnumb!
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Bitrate measurement subranges	: Checks, %prct%	: Note 
@echo  -----------------------------------------------------------------------------------
@echo  %_fBlack%%_fBGreen%01.    !numb90! - !maxnumb! Mbps		: !pnumb90!   	: Normal dips.%_fReset%
@echo  %_fBlack%%_fBGreen%02.    !numb80! - !numb90! Mbps		: !pnumb80!   	: Acceptable dips.%_fReset%
@echo  %_fBlack%%_fBYellow%03.    !numb70! - !numb80! Mbps		: !pnumb70!   	: Not great, but livable.%_fReset%
@echo  %_fBlack%%_fBYellow%04.    !numb60! - !numb70! Mbps		: !pnumb60!   	: Worse, but still livable.%_fReset%
@echo  %_fBlack%%_fBYellow%05.    !numb50! - !numb60! Mbps		: !pnumb50!   	: Bad dips.%_fReset%
@echo  %_fBlack%%_fBYellow%06.    !numb40! - !numb50! Mbps		: !pnumb40!   	: Significant dips.%_fReset%
@echo  %_fBlack%%_fBRed%07.    !numb30! - !numb40! Mbps		: !pnumb30!   	: In these bottom four rows%_fReset%
@echo  %_fBlack%%_fBRed%08.    !numb20! - !numb30! Mbps		: !pnumb20!   	: should only have zero values.%_fReset%
@echo  %_fBlack%%_fBRed%09.    !numb10! - !numb20! Mbps		: !pnumb10!   	: If non-zero, serious dips,%_fReset%
@echo  %_fBlack%%_fBRed%10.    0 - !numb10! Mbps		: !pnumb0!    	: indicates severe dips.%_fReset%
@echo  -----------------------------------------------------------------------------------
@echo  Maximum bitrate		: !maxnumb! Mbps	: !rouqua!
@echo  Total checks			: !qnumb!
rem EndEngTextBlock
exit /b

:_notestcsvfiles
cls
@echo.
@echo.
@echo.
@echo.
@echo   ======================================================================
rem StartRusTextBlock
rem @echo   +++ CSV файлы с результатами тестов отсутствуют в текущем каталоге +++
rem EndRusTextBlock
rem StartEngTextBlock
@echo   +++ CSV files with test results are not present in the current directory +++
rem EndEngTextBlock
@echo   ======================================================================
@echo.
@echo.
@echo.
@echo.
call :_prevmenu
goto _shellmenu

::>>>>>>>>>>>>>>>>>


:_ExtractIPaddress
@For /F "skip=1 tokens=1" %%a In (%cd%\ipaddr.txt) Do (
@set ipaddrtxt=%%a
)
exit /b

:_CreateIPaddressTxt
@echo IP address of your computer will be taken from this file >ipaddr.txt
@echo %ipaddr% >>ipaddr.txt
::@@echo резерв >>settings.txt
::@@echo Четвертая строка >>settings.txt
exit /b

:_GetIP ipaddr
@setlocal ENABLEEXTENSIONS & set "i=0.0.0.0" & set "j="
@for /f "tokens=4" %%a in ('route print^|findstr 0.0.0.0.*0.0.0.0') do (
  if not defined j for %%b in (%%a) do set "i=%%b" & set "j=1")
endlocal & set "%1=%i%"
exit /b

:_iperferror
@taskkill /F /IM iperf3.exe 1>nul 2>nul
@echo.
@echo ------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo     +++++++ Ошибка! +++++++
rem @echo.
rem @echo.
rem @echo Текст ошибки сохранен в файле error.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++++ Error! +++++++
@echo.
@echo.
@echo The error text is saved in the error.txt file
rem EndEngTextBlock
@echo.
goto _exitout

:_IPaddrEmpty
@echo.
@echo ------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo     +++++++ Ошибка! +++++++
rem @echo.
rem @echo.
rem @echo  Не удалось определить IP адрес. 
rem @echo  Пожалуйста, пропишите его вручную в файл ipaddr.txt во второй строчке.
rem @echo  Файл лежит рядом с программой.
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++++ Error! +++++++
@echo.
@echo.
@echo Failed to determine the IP address.
@echo Please manually enter it into the ipaddr.txt file on the second line.
@echo The file is located next to the program.
rem EndEngTextBlock
@echo.
goto _exitout

:_HeadsetIP
@FOR /F "tokens=2" %%G IN ('@%MYFILES%\adb.exe shell ip addr show wlan0 ^|findstr /i /c:"inet "') DO set ipfull=%%G
@FOR /F "tokens=1 delims=/" %%G in ("%ipfull%") DO set iphs=%%G
@if [%iphs%]==[] goto _noip
exit /b


:_Division
Set /A Znak=3
::Введите делимое
Set /A n1=%iinterval%
::Введите делитель
Set /A n2=1000
::Разделитель целой и дробной части
Set Delim=.
Set /A nC=n1/n2
Set /A nO=%n1% %% %n2%
if %nO%==0 Goto :ret
Set /A nD=nO
For /L %%A in (1,1,%Znak%) do Set /A nD*=10
Set /A nD=nd/n2
:Trim0
Set /A rest=%nd% %% 10
if %rest%==0 (Set /A nd/=10& Goto :Trim0)
Set nd=%Delim%%nD%
:ret
rem @echo %nC%%nD%
set iinterval=%nC%%nD%
exit /b

:_lssinterval
@echo -------------------------------
rem StartRusTextBlock
rem @echo  +++ Интервал слишком маленький  +++
rem @echo     Он должен быть 100 или выше
rem EndRusTextBlock
rem StartEngTextBlock
@echo  +++ Interval is too small +++
@echo    It must be 100 and higher
rem EndEngTextBlock
@echo -------------------------------
goto _setinterval
rem exit /b

:_shownetstatall
@echo off
@cls
rem call :_hat
@echo.
call :_hat
call :_hatmenu
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Статистика netstat для шлема:
rem @echo    A. Вывести всю статистику
rem @echo    B. Вывести только соединения ESTABLISHED
rem @echo    C. Вывести только соединения TIME_WAIT
rem @echo.
rem @echo  Статистика netstat для ПК:
rem @echo    D. Вывести всю статистику
rem @echo    E. Вывести только соединения ESTABLISHED
rem @echo    F. Вывести только соединения TIME_WAIT
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset network statistics
@echo.
@echo    A. Alll statistics
@echo    B. Connection with status ESTABLISHED only
@echo    C. Connection with status TIME_WAIT only
@echo.
@echo.
@echo  PC network statistics
@echo.
@echo    D. All statistics
@echo    E. Connection with status ESTABLISHED only
@echo    F. Connection with status TIME_WAIT only
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
rem @Set /p choice="Выберите пункт меню и нажмите Enter: "
if not defined choice goto _shownetstatall
if /i "%choice%"=="0" (exit)
if /i "%choice%"=="m" (goto _beginn)
if /i "%choice%"=="a" (GOTO _shownetstaths)
if /i "%choice%"=="b" (set "netstatstatus= | findstr ESTABLISHED" && GOTO _shownetstaths)
if /i "%choice%"=="c" (set "netstatstatus= | findstr TIME_WAIT" && GOTO _shownetstaths)

if /i "%choice%"=="d" (goto _shownetstatpc)
if /i "%choice%"=="e" (set "netstatstatus= | findstr ESTABLISHED" && GOTO _shownetstatpc)
if /i "%choice%"=="f" (set "netstatstatus= | findstr TIME_WAIT" && GOTO _shownetstatpc)

if /i "%choice%"=="z" (GOTO _helplinksmenu)

@cls
goto _shownetstatall

:_shownetstaths
call :_hat
@echo.
rem StartRusTextBlock
rem @echo      ----------------------------------------------
rem @echo      ^|    Статистика сетевых подключений шлема    ^|
rem @echo      ----------------------------------------------
rem @echo.
rem @echo.
rem @echo    Состояние соединений:
rem @echo.
rem @echo  LISTENING	Ожидает входящих соединений.
rem @echo  SYN_SENT	Активно пытается установить соединение.
rem @echo  SYN_RECEIVED	Идет начальная синхронизация соединения.
rem @echo  ESTABLISHED	Соединение установлено.
rem @echo  CLOSE_WAIT	Удаленная сторона отключилась; ожидание закрытия сокета.
rem @echo  FIN_WAIT_1	Сокет закрыт; отключение соединения.
rem @echo  CLOSING	Сокет закрыт, затем удаленная сторона отключилась; ожидание подтверждения.
rem @echo  LAST_ACK	Удаленная сторона отключилась, затем сокет закрыт; ожидание подтверждения.
rem @echo  FIN_WAIT_2	Сокет закрыт; ожидание отключения удаленной стороны.
rem @echo  TIME_WAIT	Сокет закрыт, но ожидает пакеты, ещё находящиеся в сети для обработки
rem EndRusTextBlock
rem StartEngTextBlock
@echo       -------------------------------------
@echo       ^|    Headset network statistics     ^|
@echo       -------------------------------------
@echo.
@echo.
@echo    Connection states:
@echo.
@echo  LISTENING     Waiting for incoming connections.
@echo  SYN_SENT      Actively trying to establish a connection.
@echo  SYN_RECEIVED  Initial connection synchronization.
@echo  ESTABLISHED   Connection established.
@echo  CLOSE_WAIT    Remote side has closed the connection; waiting for socket closure.
@echo  FIN_WAIT_1    Socket closed; disconnecting.
@echo  CLOSING       Socket closed, then remote side disconnected; waiting for confirmation.
@echo  LAST_ACK      Remote side disconnected, then socket closed; waiting for confirmation.
@echo  FIN_WAIT_2    Socket closed; waiting for remote side to disconnect.
@echo  TIME_WAIT     Socket closed, but waiting for packets still in the network to be processed
rem EndEngTextBlock
@echo  ----------------------------------------------------------------------------------------
@echo.
@%MYFILES%\adb shell netstat -tw%netstatstatus%"
call :_erlvl
@set "choice=1"
@echo.
@echo.
rem StartRusTextBlock
rem @Set /p choice="Для обновления статистики нажмите Enter (Выход в меню - 0): "
rem EndRusTextBlock

rem StartEngTextBlock
@Set /p choice="To update statistics, press Enter (Exit to the menu - 0): "
rem EndEngTextBlock

if not defined choice goto _shownetstaths
if "%choice%"=="0" (goto _shellmenu)
if "%choice%"=="1" (GOTO _shownetstaths)
goto _shownetstaths

:_shownetstatpc
call :_hat
@echo.
rem StartRusTextBlock
rem @echo      -------------------------------------------------
rem @echo      ^|   Статистика сетевых подключений компьютера   ^|
rem @echo      -------------------------------------------------
rem @echo.
rem @echo.
rem @echo    Состояние соединений:
rem @echo.
rem @echo  LISTENING	Ожидает входящих соединений.
rem @echo  SYN_SENT	Активно пытается установить соединение.
rem @echo  SYN_RECEIVED	Идет начальная синхронизация соединения.
rem @echo  ESTABLISHED	Соединение установлено.
rem @echo  CLOSE_WAIT	Удаленная сторона отключилась; ожидание закрытия сокета.
rem @echo  FIN_WAIT_1	Сокет закрыт; отключение соединения.
rem @echo  CLOSING	Сокет закрыт, затем удаленная сторона отключилась; ожидание подтверждения.
rem @echo  LAST_ACK	Удаленная сторона отключилась, затем сокет закрыт; ожидание подтверждения.
rem @echo  FIN_WAIT_2	Сокет закрыт; ожидание отключения удаленной стороны.
rem @echo  TIME_WAIT	Сокет закрыт, но ожидает пакеты, ещё находящиеся в сети для обработки
rem @echo  ----------------------------------------------------------------------------------------
rem @echo.
rem @echo   Вывод команды netstat отображается в отдельном окне и обновляется каждые 5 секунд
rem @echo   Для остановки процесса просто закройте его.
rem EndRusTextBlock
rem StartEngTextBlock
@echo       ---------------------------------
@echo       ^|     PC network statistics     ^| 
@echo       ---------------------------------
@echo.
@echo    Connection states:
@echo.
@echo  LISTENING     Waiting for incoming connections.
@echo  SYN_SENT      Actively trying to establish a connection.
@echo  SYN_RECEIVED  Initial connection synchronization.
@echo  ESTABLISHED   Connection established.
@echo  CLOSE_WAIT    Remote side has closed the connection; waiting for socket closure.
@echo  FIN_WAIT_1    Socket closed; disconnecting.
@echo  CLOSING       Socket closed, then remote side disconnected; waiting for confirmation.
@echo  LAST_ACK      Remote side disconnected, then socket closed; waiting for confirmation.
@echo  FIN_WAIT_2    Socket closed; waiting for remote side to disconnect.
@echo  TIME_WAIT     Socket closed, but waiting for packets still in the network to be processed
rem EndEngTextBlock
@echo  ----------------------------------------------------------------------------------------
@echo.
@echo   The results of the Netstat command is displayed
@echo   in a separate window and is updated every 5 seconds
@echo   To stop the process, simply close it.
:: set "netstatstatus= | findstr ESTABLISHED"
:: set "netstatstatus= | findstr TIME_WAIT"
@start cmd /c "mode con:cols=120 lines=60 & netstat -f -a -p TCP 5%netstatstatus%"
@echo.
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите любую кнопку для выхода в меню ^<^<^<
rem EndRusTextBlock

rem StartEngTextBlock
@echo ^>^>^> Press any key to exit menu ^<^<^<
rem EndEngTextBlock
@pause >nul
set netstatstatus=
goto _shellmenu

:_hwagamecontrol
@echo off
@setlocal enableextensions enabledelayedexpansion
call :_hat
call :_hatmenu
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Управление параметром Аппаратное ускорение
rem @echo    A.  Показать статус
rem @echo    B.  Включить
rem @echo    C.  Отключить
rem @echo    D.  Удалить параметр из реестра
rem @echo.
rem @echo  Управление параметром Игровой режим
rem @echo    E.  Показать статус
rem @echo    F.  Включить
rem @echo    G.  Отключить
rem @echo    H.  Удалить параметр из реестра
rem @echo.
rem @echo  Управление параметром Планировани GPU
rem @echo    I.  Показать статус
rem @echo    J.  Включить
rem @echo    K.  Отключить
rem @echo    L.  Удалить параметр из реестра (не рекомендуется)
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Hardware Accelerated parameter management
@echo.
@echo    A.  Show status
@echo    B.  Enable
@echo    C.  Disable
@echo    D.  Delete parameter from registry
@echo.
@echo  Game Mode parameter management
@echo.
@echo    E.  Show status
@echo    F.  Enable
@echo    G.  Disable
@echo    H.  Delete parameter from registry
@echo.
@echo  GPU Planning parameter management
@echo.
@echo    I.  Show status
@echo    J.  Enable
@echo    K.  Disable
@echo    L.  Delete parameter from registry (not recommended)
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
set hwadata=
set gmdata=
set hwastatus=
set gmstatus=
call :_MenuChoiceEnter
@echo.
if not defined choice goto _hwagamecontrol
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _parametersstatuscheck)
if /i "%choice%"=="b" (GOTO _hwaenable)
if /i "%choice%"=="c" (GOTO _hwadisable)
if /i "%choice%"=="d" (GOTO _hwadeletereg)
if /i "%choice%"=="e" (GOTO _parametersstatuscheck)
if /i "%choice%"=="f" (GOTO _gamemodeenable)
if /i "%choice%"=="g" (GOTO _gamemodedisable)
if /i "%choice%"=="h" (GOTO _gamemodedeletereg)
if /i "%choice%"=="i" (GOTO _parametersstatuscheck)
if /i "%choice%"=="j" (GOTO _gpuplanenable)
if /i "%choice%"=="k" (GOTO _gpuplandisable)
if /i "%choice%"=="l" (GOTO _gpuplandeletereg)
@cls
goto _hwagamecontrol

:_parametersstatuscheck

@For /f "tokens=3" %%a in ('reg query HKEY_CURRENT_USER\SOFTWARE\Microsoft\Avalon.Graphics /v DisableHWAcceleration 2^>nul') do (set hwadata=%%a)
rem StartRusTextBlock
rem @if [%hwadata%]==[] (set hwastatus=Параметр не установлен && goto _GameModeCheck)
rem @if %hwadata%==0x1 (set hwastatus=Отключено) else (set hwastatus=Включено)
rem EndRusTextBlock
rem StartEngTextBlock
@if [%hwadata%]==[] (set hwastatus=Parameter or value is not set && goto _GameModeCheck)
@if %hwadata%==0x1 (set hwastatus=Disabled)
@if %hwadata%==0x0 (set hwastatus=Enabled)
rem EndEngTextBlock

:_GameModeCheck
@For /f "tokens=3" %%a in ('reg query HKEY_CURRENT_USER\SOFTWARE\Microsoft\GameBar /v AllowAutoGameMode 2^>nul') do (set gmdata=%%a)
rem StartRusTextBlock
rem @if [%gmdata%]==[] (set gmstatus=Параметр не установлен  && goto _PlanningGPUCheck)
rem @if %gmdata%==0x1 (set gmstatus=Включен) else (set gmstatus=Отключен)
rem EndRusTextBlock
rem StartEngTextBlock
@if [%gmdata%]==[] (set gmstatus=Parameter or value is not set && goto _parametersstatusview)
@if %gmdata%==0x1 (set gmstatus=Enabled)
@if %gmdata%==0x0 (set gmstatus=Disabled)
rem EndEngTextBlock

:_PlanningGPUCheck
@For /f "tokens=3" %%a in ('reg query HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers /v HwSchMode 2^>nul') do (set gpuplandata=%%a)
rem StartRusTextBlock
rem @if [%gpuplandata%]==[] (set gpuplanstatus=Параметр не установлен  && goto _parametersstatusview)
rem @if %gpuplandata%==0x2 (set gpuplanstatus=Включено) else (set gpuplanstatus=Отключено)
cho%gpuplandata%
cho %gpuplanstatus%
pause
rem EndRusTextBlock
rem StartEngTextBlock
@if [%gpuplandata%]==[] (set gmstatus=Parameter or value is not set && goto _parametersstatusview)
@if %gpuplandata%==0x1 (set gpuplanstatus=Enabled)
@if %gpuplandata%==0x0 (set gpuplanstatus=Disabled)
rem EndEngTextBlock

:_parametersstatusview
@echo.
@echo ----------------------------------------------------------------
rem StartRusTextBlock
rem @echo   Аппаратное ускорение	: %hwastatus%
rem @echo   Игровой режим		: %gmstatus%
rem @echo   Планирование GPU	: %gpuplanstatus%
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Hardware accelerated	: %hwastatus%
@echo   Game Mode		: %gmstatus%
@echo   GPU Planning	: %gpuplanstatus%
rem EndEngTextBlock
rem @echo  ----------------------------------------------
rem @echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_hwaenable
@reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Avalon.Graphics" /v DisableHWAcceleration /t REG_DWORD /d 0 /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Аппаратное ускорение включен
rem EndRusTextBlock
rem StartEngTextBlock
@echo  = Parameter Hardware Accelerated has enabled
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_hwadisable
@reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Avalon.Graphics" /v DisableHWAcceleration /t REG_DWORD /d 0 /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Аппаратное ускорение отключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Parameter Hardware Accelerated has disabled
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_hwadeletereg
@reg delete "HKCU\SOFTWARE\Microsoft\Avalon.Graphics" /v DisableHWAcceleration /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Аппаратное ускорение удален
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Parameter Hardware Accelerated has deleted
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_gamemodeenable
@reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\GameBar" /v AllowAutoGameMode /t REG_DWORD /d 1 /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Игровой режим включен
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Parameter Game Mode has enabled
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_gamemodedisable
@reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\GameBar" /v AllowAutoGameMode /t REG_DWORD /d 0 /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Игровой режим отключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Parameter Game Mode has disabled
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_gamemodedeletereg
@reg delete "HKCU\SOFTWARE\Microsoft\GameBar" /v AllowAutoGameMode /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Игровой режим удален
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Parameter Game Mode has deleted
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_gpuplanenable
@reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers" /v HwSchMode /t REG_DWORD /d 2 /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Планирование GPU включен
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Parameter Game Mode has enabled
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_gpuplandisable
@reg add "HHKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers" /v HwSchMode /t REG_DWORD /d 1 /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Планирование GPU отключен
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Parameter Game Mode has disabled
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_gpuplandeletereg
@reg delete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers" /v HwSchMode /f 1>nul 2>nul
@echo.
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo   = Параметр Планирование GPU удален
rem EndRusTextBlock
rem StartEngTextBlock
@echo   = Parameter Game Mode has deleted
rem EndEngTextBlock
@echo.
call :_prevmenu
@cls
goto _hwagamecontrol

:_camtest
call :_cdc
@echo Off
call :_hat
SetLocal EnableExtensions EnableDelayedExpansion
@echo.
@echo.
rem StartRusTextBlock
rem @echo  Исправность камер можно определить по значению температуры. 
rem @echo  Их расположение условно обозначено "изнутри", то есть
rem @echo  со стороны линз, будто шлем надет:
rem EndRusTextBlock
rem StartEngTextBlock
@echo  The condition of the cameras can be determined by the temperature value.
@echo  Their location is conventionally designated "from the inside", meaning
@echo  from the side of the lenses, as if the headset is worn:
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @echo          ЛВ                    ПВ
rem EndRusTextBlock
rem StartEngTextBlock
@echo          TL                    TR
rem EndEngTextBlock
@echo.   
@echo          ^(^)-------=====--------^(^)
@echo          /                      \
@echo          ^|    ***       ***     ^|
@echo          ^|   *****     *****    ^|
@echo          ^|    ***       ***     ^|
@echo          ^|                      ^|
@echo          \_^(^)_____/---\_____^(^)_/
@echo.
rem StartRusTextBlock
rem @echo            ЛН               ПН
rem EndRusTextBlock
rem StartEngTextBlock
@echo            BL               BR
rem EndEngTextBlock
@echo.
@echo.
rem StartRusTextBlock
rem @echo    Температура камер:
rem EndRusTextBlock
rem StartEngTextBlock
@echo    Camera temperatures:
rem EndEngTextBlock
@echo.
For /F "Delims=" %%I In ('%MYFILES%\adb shell cat /sys/class/thermal/thermal_zone68/temp') Do Set rdcam=%%~I
::@@echo Правая нижняя:  !rdcam! >>cam.txt
set /a ardcam=!rdcam!/1000
rem StartRusTextBlock
rem @echo  Правая нижняя:  %ardcam%.!rdcam:~-3!°
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Bottom right camera:  %ardcam%.!rdcam:~-3!°
rem EndEngTextBlock

For /F "Delims=" %%I In ('%MYFILES%\adb shell cat /sys/class/thermal/thermal_zone69/temp') Do Set ldcam=%%~I
::@@echo Левая нижняя:   !ldcam! >>cam.txt
set /a aldcam=!ldcam!/1000
rem StartRusTextBlock
rem @echo  Левая нижняя:   %aldcam%.!rdcam:~-3!°
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Bottom left camera:   %aldcam%.!rdcam:~-3!°
rem EndEngTextBlock
@echo.
For /F "Delims=" %%I In ('%MYFILES%\adb shell cat /sys/class/thermal/thermal_zone70/temp') Do Set lucam=%%~I
::@@echo Левая верхняя:  !lucam! >>cam.txt
set /a alucam=!lucam!/1000
rem StartRusTextBlock
rem @echo  Левая верхняя:  %alucam%.!lucam:~-3!°
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Top left camera:  %alucam%.!lucam:~-3!°
rem EndEngTextBlock
For /F "Delims=" %%I In ('%MYFILES%\adb shell cat /sys/class/thermal/thermal_zone71/temp') Do Set rucam=%%~I
::@@echo Правая верхняя: !rucam! >>cam.txt
set /a arucam=!rucam!/1000
rem StartRusTextBlock
rem @echo  Правая верхняя: %arucam%.!rucam:~-3!°
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Top right camera: %arucam%.!rucam:~-3!°
rem EndEngTextBlock
@echo.
@echo ------------------------------------------------
rem StartRusTextBlock
rem @echo  Значительные отличия в показаниях (на градус и больше)
rem @echo  означают вероятную неисправность определенной камеры,
rem @echo  поскольку при работе исправная камера хоть чуть-чуть,
rem @echo  но нагревается, а неисправная - нет.
rem @echo.
rem @echo  На разницу температур между верхними и нижними камерами
rem @echo  не обращайте внимания, она может отличаться на градус или два.
rem @echo  Имеет смысл сравнивать между собой только нижние или верхние камеры.
rem @echo.
rem @echo   ...через 10 секунд показания обновятся...
rem @echo.
rem @echo  Для прерывания и выхода в меню нажмите любую кнопку
rem timeout 10| >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Процедура прервана +++ ^ & @echo. ^ & call :_prevmenu & @goto _syscommenu
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Substantial differences in readings (by a degree or more)
@echo  may indicate a possible malfunction of a specific camera,
@echo  as a functioning camera, however slightly,
@echo  heats up, whereas a malfunctioning one does not.
@echo.
@echo  Do not pay attention to the temperature difference
@echo  between the top and bottom cameras, it can differ by a degree or two.
@echo  It makes sense to compare only the bottom or top cameras.
@echo.
@echo   ...the readings will be updated in 10 seconds...
@echo.
@echo  To interrupt and return to the menu, press any key
@echo.
timeout 10| >nul findstr/e [^^0-9]0 ||  @echo ============================================== ^ & @echo        +++ Procedure interrupted +++ ^ & @echo. ^ & call :_prevmenu & @goto _syscommenu
rem EndEngTextBlock
goto _camtest


:_changeusernamemenu
call :_hat
call :_hatmenu
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo   A.  Показать текущее глобальное имя пользователя
rem @echo   B.  Сменить глобальное имя пользователя
rem EndRusTextBlock

rem StartEngTextBlock
@echo   A.  Show current global username
@echo   B.  Change global username
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _changeusernamemenu
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _showusername)
if /i "%choice%"=="b" (GOTO _changeusername)
goto _changeusernamemenu


:_showusername
for /f %%a in ('%myfiles%\adb shell settings get global username') do set uname=%%a

rem StartRusTextBlock
rem @if %uname%==null set uname=Не определено
rem EndRusTextBlock

rem StartEngTextBlock
@if %uname%==null set uname=Not set
rem EndEngTextBlock
@echo ----------------------------------------------------------------
rem StartRusTextBlock
rem @echo   Текущее глобальное имя пользователя	: %uname%
rem EndRusTextBlock

rem StartEngTextBlock
@echo    Current global username	: %uname%
rem EndEngTextBlock
call :_prevmenu
goto _changeusernamemenu

:_changeusername
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @Set /p myusername="Введите желаемое имя пользователя и нажмите Enter: "
rem EndRusTextBlock

rem StartEngTextBlock
@Set /p myusername="Enter desired username and press Enter: "
rem EndEngTextBlock

@%myfiles%\adb shell settings put global username %myusername% 1>nul 2>nul

rem StartRusTextBlock
rem @echo Имя пользователя установлено.
rem EndRusTextBlock
@echo.
@echo.
rem StartEngTextBlock
@echo ----------------------------------------------------------------
@echo    = Username set
@echo.
goto _showusername
rem EndEngTextBlock

:_adblogcat
call :_settime
call :_hat
call :_hatmenu
@echo.
rem StartRusTextBlock
rem @echo    A.  Logcat: последние 5 тысяч строк
rem @echo    B.  Logcat: последние 10 тысяч строк
rem @echo    C.  Logcat: количество строк вручную
rem @echo    D.  Logcat: последние 5 минут
rem @echo    E.  Logcat: последние 10 минут
rem @echo    F.  Logcat: количество минут вручную
rem @echo    G.  Logcat: безлимит [ Откроется в отдельном окне ]
rem @echo    H.  Очистить Logcat
rem @echo    I.  Весь журнал
rem @echo    J.  Поиск по logcat [ Откроется в отдельном окне ]
rem EndRusTextBlock
rem StartEngTextBlock
@echo    A.  Logcat: last 5 thousand lines
@echo    B.  Logcat: last 10 thousand lines
@echo    C.  Logcat: number of lines manually
@echo    D.  Logcat: last 5 minutes
@echo    E.  Logcat: last 10 minutes
@echo    F.  Logcat: number of minutes manually
@echo    G.  Logcat: unlimited [ Will open in a separate window ]
@echo    H.  Clear Logcat
@echo    I.  Entire Log
@echo    J.  Search in logcat [ Will open in a separate window ]
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _adblogcat
if "%choice%"=="0" (exit)
if /i "%choice%"=="m" (GOTO _beginn)
if /i "%choice%"=="a" (GOTO _lcfivestr)
if /i "%choice%"=="b" (GOTO _lctenstr)
if /i "%choice%"=="c" (GOTO _lccustomstr)
if /i "%choice%"=="d" (GOTO _lcfivemin)
if /i "%choice%"=="e" (GOTO _lctenmin)
if /i "%choice%"=="f" (GOTO _lccustommin)
if /i "%choice%"=="g" (GOTO _lcunlimit)
if /i "%choice%"=="h" (GOTO _lcclear)
if /i "%choice%"=="i" (GOTO _adblogcatd)
if /i "%choice%"=="j" (GOTO _adblogcatsearch)
cls
goto _adblogcat

:_lcfivestr
@set qstr=5000
@%myfiles%\adb logcat -t "%qstr%" >lc-5k-%dt%.txt
call :_erlvl
@echo =====================================================
rem StartRusTextBlock
rem @echo Файл сохранен в текущий каталог с именем lc-5k-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo File saved in the current directory with the name lc-5k-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _adblogcat


:_lctenstr
@set qstr=10000
@%myfiles%\adb logcat -t "%qstr%" >lc-10k-%dt%.txt
call :_erlvl
@echo =====================================================
rem StartRusTextBlock
rem @echo Файл сохранен в текущий каталог с именем lc-10k-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo File saved in the current directory with the name lc-10k-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _adblogcat

:_lccustomstr
@Set /p custstr="Введите количество строк (в тысячах) нажмите Enter: "
@set /a qstr=custstr*1000
@%myfiles%\adb logcat -t "%qstr%" >lc-%custstr%k-%dt%.txt
call :_erlvl
@echo =====================================================
rem StartRusTextBlock
rem @echo Файл сохранен в текущий каталог с именем lc-%custstr%k-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo File saved in the current directory with the name lc-%custstr%k-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _adblogcat

:_lcfivemin
@set etime=300
@call :_timefunction
@call :_settime
@%myfiles%\adb logcat -t "%odt% %lctime%" >lc-5min-%dt%.txt
call :_erlvl
@echo =====================================================
rem StartRusTextBlock
rem @echo Файл сохранен в текущий каталог с именем lc-5min-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo File saved in the current directory with the name lc-5min-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _adblogcat

:_lctenmin
@set etime=600
@call :_timefunction
@call :_settime
@%myfiles%\adb logcat -t "%odt% %lctime%" >lc-10min-%dt%.txt
call :_erlvl
@echo =====================================================
rem StartRusTextBlock
rem @echo Файл сохранен в текущий каталог с именем lc-10min-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo File saved in the current directory with the name lc-10min-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _adblogcat

:_lccustommin
@set etime=600
rem StartRusTextBlock
rem @Set /p mintime="Введите количество минут нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p mintime="Enter the number of minutes and press Enter: "
rem EndEngTextBlock
@set /a etime=mintime*60
@call :_timefunction
@call :_settime
@%myfiles%\adb logcat -t "%odt% %lctime%" >lc-%mintime%min-%dt%.txt
call :_erlvl
@echo =====================================================
rem StartRusTextBlock
rem @echo Файл сохранен в текущий каталог с именем lc-%mintime%min-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo The file is saved in the current directory with the name lc-%mintime%min-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _adblogcat

:_lcunlimit
@start cmd /c "%MYFILES%\adb logcat >lc-unlim-%dt%.txt"
@echo =====================================================
rem StartRusTextBlock
rem @echo Как только надоест ждать - закройте второе окно.
rem @echo Файл с логами будет сохранен с именем lc-unlim-%dt%.txt"
rem EndRusTextBlock
rem StartEngTextBlock
@echo As soon as you are tired of waiting - close the second window.
@echo The log file will be saved with the name lc-unlim-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _adblogcat

:_lcclear
@%myfiles%\adb logcat -c 1>nul 2>nul
call :_erlvl
@echo =====================================================
@echo Logcat очищен.
call :_prevmenu
goto _adblogcat

:_adblogcatd
@%myfiles%\adb logcat -d >lc-all-%dt%.txt
call :_erlvl
@echo =====================================================
rem StartRusTextBlock
rem @echo Файл сохранен в текущий каталог с именем lc-all-%dt%.txt
rem EndRusTextBlock
rem StartEngTextBlock
@echo The file is saved in the current directory under the name lc-all-%dt%.txt
rem EndEngTextBlock
call :_prevmenu
goto _adblogcat

:_adblogcatsearch
call :_cdc
call :_settime
call :_hat
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo   Будет запущен logcat с поиском введенного слова 
rem @echo.
rem @echo   Если передумали, введите 0 и нажмите Enter
rem @echo   для возврата в предыдущее меню.
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Logcat will be started with the search for the entered word
@echo.
@echo   If you have changed your mind, enter 0 and press Enter
@echo   to return to the previous menu.
rem EndEngTextBlock
@echo.
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @Set /p lcsrch=" Bведите слово для выборки и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p lcsrch="Enter the word for search and press Enter: "
rem EndEngTextBlock
if %lcsrch%==0 goto _adblogcat
@echo ================================
rem StartRusTextBlock
rem @echo Идет поиск....
rem @echo.
rem @echo Для завершения просто закройте второе окно консоли
rem EndRusTextBlock
rem StartEngTextBlock
@echo Searching....
@echo.
@echo To finish, simply close the second console window
rem EndEngTextBlock
@echo ----------------------------------
@start cmd /c @%MYFILES%\adb shell logcat -s %lcsrch%
::@%MYFILES%\adb shell logcat -s %lcsrch%
::call :_erlvl
goto :_adblogcat
::goto _syscommenu


::=========== Sub ====================

:_timefunction

::Время разбирается на HH MM SS через For, для использования в дальнейшем, вот так:
@For /F "tokens=1,2,3 delims=:" %%A In ("%time%") Do (
@Set HH=%%A
@Set MM=%%B
@Set SS=%%C
)

:: А это сами функции для работы со временем

:: Устанавливаем время
::Set HH=23
::Set MM=15
::Set SS=00

:: Демонстрация работы
:: ===================================
::@echo Time                  = [%HH%:%MM%:%SS%]
@Call :SerializeTime
@Set TmpTime=%ErrorLevel%
::@echo Serialized time       =  %TmpTime%
@Call :DeserializeTime %TmpTime%
::@echo Deserialized time     = [%DHH%:%DMM%:%DSS%]
@Call :TMinus %TmpTime% %etime%
@Call :DeserializeTime %ErrorLevel%
::@echo Time - 2:30:14        = [%DHH%:%DMM%:%DSS%]
@set lctime=%DHH%:%DMM%:%DSS%.000
@Call :TPlus %TmpTime% 9014
@Call :DeserializeTime %ErrorLevel%
::@echo Time + 2:30:14        = [%DHH%:%DMM%:%DSS%]
:: ===================================

::===Функции работы со временем в .bat====================================
:: Anonymous, 2010
:: v 1.3
:ParseTimestamp
:: Разбирает на составляющие временную метку формата ЧЧ:ММ:СС
:: Формат:   Call :ParseTimestamp (время)
:: К примеру - Call :ParseTimestamp %time:~-0,8%
:: Вывод - в переменные HH MM и SS
For /F "tokens=1,2,3 delims=:" %%A In ("%1") Do (
    Set HH=%%A
    Set MM=%%B
    Set SS=%%C
)

:SerializeTime
:: Сериализует время из переменных HH MM и SS
:: Вывод - в ErrorLevel
Call :Cut %HH% HH&Call :Cut %MM% MM&Call :Cut %SS% SS
Set /A STime=(HH*60*60)+(MM*60)+SS
Exit /B %STime%

:DeserializeTime
:: Десериализует время, приводит его к стандартному формату
:: Формат:   Call :DeserializeTime (сериализованное время)
:: Вывод - в переменные DHH DMM и DSS
Set DHH=00&Set DMM=00&Set DSS=00
Set /A DHH=%1/60/60
Set /A DMM=(%1/60)-(DHH*60)
Set /A DSS=%1-(DHH*60*60)-(DMM*60)
If %DHH%==24 Set DHH=00
If %DHH% LSS 10 Set DHH=0%DHH%
If %DMM% LSS 10 Set DMM=0%DMM%
If %DSS% LSS 10 Set DSS=0%DSS%
Exit /B

:TMinus
:: Функция вычитания для сериализованного времени
:: Формат:   Call :TMinus (сериализованное время) (сколько секунд отнять)
:: Вывод - в ErrorLevel
Set Result=
Set /A Result=%1-%2
If %2 GTR %1 (
    Set /A Result=86400+%1-%2
)
Exit /B %Result%

:TPlus
:: Функция прибавления для сериализованного времени
:: Формат:   Call :TPlus (сериализованное время) (сколько секунд прибавить)
:: Вывод - в ErrorLevel
Set Result=
Set /A Result=%1+%2
If %Result% GTR 86400 (
    Set /A Result=%1+%2-86400
)
Exit /B %Result%

:Timer
:: Отсчитывает прошедшее с заданного момента время
:: Формат:   Call :Timer (запомненное сериализованное время)
:: Вывод - в ErrorLevel
:: Если счетчик переходит границу суток, число дней возрастает на 1
:: Дни выводятся в переменную ED (и накапливаются) // да, знаю, что костыль и быдлокод
Set OTime=%1
If "%ED%"=="" Set ED=0
Call :ParseTimestamp %time:~-0,8%
Call :SerializeTime
Set CTime=%STime%
If %OTime% GTR %CTime% (
    Set /A Timer=86400-%OTime%+%CTime%
    Set /A ED+=1
) Else (
    Set /A Timer=CTime-OTime
)
Exit /B %Timer%

:Timer2
:: Проверяет, прошел ли заданный промежуток времени
:: Формат:   Call :Timer2 (запомненное сериализованное время) (промежуток в секундах)
:: Вывод - в ErrorLevel (только 0=промежуток истёк или 1=промежуток ещё не истёк)
Call :ParseTimestamp %time:~-0,8%
Call :SerializeTime
Call :TMinus %STime% %1
If %2 GTR %Result% Set Timer2=1&Exit /B 1
Set Timer2=0&Exit /B 0

:Cut
:: Убирание ведущих нулей и пробелов
:: Формат:   Call :Cut (Двухзначное число) (Переменная, куда вывести резуьтат)
Set d=%1
If "%d:~,1%"=="0" Set %2=%d:~1%
If "%d:~,1%"==" " Set %2=%d:~1%
Exit /B

:_SETTIME
@for /f %%a in ('wmic path win32_LocalTime Get Day^,Month^,Year /value') do >nul set "%%a"
set Month=00%Month%
set Month=%Month:~-2%
set Day=00%Day%
set Day=%Day:~-2%
set da=%Year%-%Month%-%Day%

::set da=%date:~6,4%-%date:~3,2%-%date:~0,2%
set ti=%time:~0,2%-%time:~3,2%-%time:~6,2%
set ti=%ti: =0%

set dap=%Year%.%Month%.%Day%
set tip=%time:~0,2%:%time:~3,2%:%time:~6,2%
set tip=%tip: =0%


set dt=%da%_%ti%
set dpt=%da%.%ti%
set dppt=%dap%-%tip%

@set odt=%date:~3,2%-%date:~0,2%
set vdate=%date:~0,2%.%date:~3,2%.%date:~6,4%
::@@echo %dt%
@exit /b

:_OFFLINE
@echo.
rem StartRusTextBlock
rem @echo  Шлем в режиме offline!
rem @echo  Пробуем устранить проблему...
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset in offline mode!
@echo  Trying to solve the problem...
rem EndEngTextBlock
@%MYFILES%\adb kill-server
@%MYFILES%\adb start-server 1>nul 2>nul
call :_cdc
rem @%MYFILES%\adb devices | findstr 1WM 1>nul 2>nul
@If %ERRORLEVEL% EQU 1 GOTO _NOTFOUND
@%MYFILES%\adb devices | findstr /i /c:"offline" 1>nul 2>nul
@If %ERRORLEVEL%==0 GOTO _OFFLINEISSUE
@echo ========================================
rem StartRusTextBlock
rem @echo  Проблема устранена.
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Problem solved.
rem EndEngTextBlock
@goto _returnmenu

:_NOTAUTORIZED
cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     ++++ Шлем не авторизован! ++++
rem @echo.
rem @echo.
rem @echo.
rem @echo Наденьте гарнитуру и нажмите
rem @echo [ Всегда разрешать для этого компьютера ]
rem @echo Затем перезапустите эту программу
rem EndRusTextBlock
rem StartEngTextBlock
@echo     ++++ Headset not authorized! ++++
@echo.
@echo.
@echo.
@echo Please put on the headset and click
@echo [ Always allow for this computer ]
@echo Then restart this program
rem EndEngTextBlock
@goto _exitout

:_OFFLINEISSUE
@echo ========================================
rem StartRusTextBlock
rem @echo  Устранить ошибку не удалось. 
rem @echo  Переподключите кабель и запустите программу снова
rem EndRusTextBlock
rem StartEngTextBlock
@echo The error could not be fixed.
@echo Reconnect the cable and restart the program again
rem EndEngTextBlock
@goto _exitout

:_NoDevice
call :_hat
::@%MYFILES%\adb devices 2>NUL | findstr sideload 1>nul 2>nul
::@If %ERRORLEVEL% EQU 0 GOTO _sideloadmode
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     ++++ Шлем не обнаружен! +++++
rem @echo.
rem @echo.
rem @echo.
rem @echo  Проверьте кабельное соединение и правильность установки драйверов.
rem @echo  Затем перезапустите эту программу снова.
rem EndRusTextBlock
rem StartEngTextBlock
@echo ++++ The headset is not detected! ++++
@echo.
@echo.
@echo.
@echo Check the cable connection and driver installation.
@echo Then restart this program again.
rem EndEngTextBlock
@goto _RunMenuNoDevice

:_NOTFOUND
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++++ Шлем не найден +++++
rem @echo.
rem @echo.
rem @echo.
rem @echo  Проверьте кабельное соединение и правильность установки драйверов.
rem @echo  Затем перезапустите эту программу снова.
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++ Headset not found +++++
@echo.
@echo.
@echo.
@echo     +++++ Check the cable connection and correct driver installation. +++++
@echo     +++++ Then restart this program again. +++++
rem EndEngTextBlock
@echo.
@taskkill /IM adb.exe /F 2>nul 1>nul
@goto _exitout

:_noadb
cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++++ Шлем найден, но Режим разработчика не включен! +++++
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++ Headset found, but Developer Mode is not enabled! +++++
rem EndEngTextBlock
@echo.
@echo.
@echo.
@goto _RunMenuNoDevice

:_tk
@taskkill /IM adb.exe /F 2>nul 1>nul
@exit

:_erlvl
IF %ERRORLEVEL% NEQ 1 goto _erlvlnot
@echo.
@echo =====================================================================
rem StartRusTextBlock
rem @echo              +++ Ошибка, что-то пошло не так +++
rem @echo  На всякий случай проверьте соединение со шлемом и Режим разработчика 
rem EndRusTextBlock
rem StartEngTextBlock
@echo              +++ Error, something went wrong +++
@echo  Check the connection to the headset and the Developer Mode just in case
rem EndEngTextBlock
@echo =====================================================================
goto _returnmenu
:_erlvlnot
exit /b
goto _returnmenu

:_loadfwerror
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++++ Не удалось загрузить прошивку! +++++
rem @echo.
rem @echo.
rem @echo.
rem @echo  Проверьте кабельное соединение, 
rem @echo  правильность установки драйверов
rem @echo  и режим шлема (пункт 4 в Главном меню)
rem @echo  Затем перезапустите эту программу снова.
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++ Firmware failed to load! +++++
@echo.
@echo.
@echo.
@echo     +++++ Check the cable connection, 
@echo     driver installation correctness
@echo     and the headset mode (item 4 in the Main menu)
@echo     Then restart this program again.
rem EndEngTextBlock
@echo.
@taskkill /IM adb.exe /F 2>nul 1>nul
@goto _exitout

:_RunMenuNoDevice
@echo.
rem StartRusTextBlock
rem @echo   Тем не менее, вы можете запустить программу,
rem @echo   но некоторые функции работать не будут.
rem @echo   В этом случае вы увидите сообщение
rem @echo.
rem @echo   "adb.exe: no devices/emulators found" 
rem @echo     или 
rem @echo   "Ошибка. Проверьте соединение со шлемом"
rem @echo.
rem @echo ---------------------------------------------------
rem @echo.
rem @echo  Как поступим?
rem @echo.
rem @echo     0.  Выход из программы
rem @echo     S.  Запустить без информационной таблицы
rem @echo     T.  Запустить с таблицей
rem @echo     D.  Открыть Диспетчер устройств
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++++ However, you can run the program,
@echo     but some features will not work.
@echo     In this case you will see the message
@echo.
@echo     "adb.exe: no devices/emulators found" 
@echo     or 
@echo     "Error. Check the connection to the headset"
@echo.
@echo ---------------------------------------------------
@echo.
@echo  What should we do?
@echo.
@echo     0.  Exit the program
@echo     S.  Run without information table
@echo     T.  Run with table
@echo     D.  Open Device Manager
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _NoDevice
if "%choice%"=="0" (exit)
if /i "%choice%"=="s" (GOTO _beginn)
if /i "%choice%"=="t" (GOTO _tabBegin)
if "%choice%"=="D" (start mmc.exe devmgmt.msc)
if "%choice%"=="d" (start mmc.exe devmgmt.msc)
@cls
goto :_NoDevice
rem goto _RunMenuNoDevice

:_DoubleConnect
cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     ++++ Двойное подключение! ++++
rem @echo.
rem @echo.
rem @echo.
rem @echo  Шлем подключен по кабелю и Wi-Fi одновременно.
rem @echo  Это может вызвать ошибку "error: more than one device/emulator" 
rem @echo. Лучше оставить какое-нибудь одно из подключений.
rem @echo.
rem @echo   Тем не менее, вы можете запустить программу,
rem @echo   но некоторые функции работать не будут.
rem @echo.
rem @echo ---------------------------------------------------
rem @echo.
rem @echo  Как поступим?
rem @echo.
rem @echo     0.  Выход из программы
rem @echo     S.  Запустить без информационной таблицы
rem @echo     T.  Запустить с таблицей
rem @echo     R.  Отключить соединение ADB по WiFi
rem EndRusTextBlock
rem StartEngTextBlock
@echo     ++++ Double connection! ++++
@echo.
@echo.
@echo.
@echo  The headset is connected via cable and Wi-Fi at the same time.
@echo  This can cause the error "error: more than one device/emulator"
@echo. It is better to leave just one of the connections.
@echo.
@echo   Nevertheless, you can run the program,
@echo   but some functions will not work.
@echo.
@echo ---------------------------------------------------
@echo.
@echo  What will we do?
@echo.
@echo     0.  Exit the program
@echo     S.  Start without the information table
@echo     T.  Start with the table
@echo     R.  Disconnect the ADB connection via WiFi
rem EndEngTextBlock
@echo.
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _RunMenuNoDevice
if "%choice%"=="0" (exit)
if /i "%choice%"=="s" (GOTO _beginn)
if /i "%choice%"=="t" (GOTO _tabBegin)
if /i "%choice%"=="r" (goto _reconnect)
cls
goto _RunMenuNoDevice

:_WiFiConnected
::goto _tabBegin
cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++ Шлем подключен по WiFi +++
rem @echo.
rem @echo.
rem @echo.  
rem @echo  Взаимодествие со шлемом по WiFi не гарантирует
rem @echo  полную работоспособность программы.
rem @echo.
rem @echo  Могут не работать или работать неправильно
rem @echo  некоторые функции.
rem @echo.
rem @echo ---------------------------------------------------
rem @echo.
rem @echo  Как поступим?
rem @echo.
rem @echo     0.  Выход из программы
rem @echo     S.  Запустить без информационной таблицы
rem @echo     T.  Запустить с таблицей
rem @echo.
rem @echo   По нажатию Enter программа запустится без таблицы.
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ Headset connected via WiFi +++
@echo.
@echo.
@echo.  
@echo  Interaction with the headset via WiFi does not guarantee
@echo  the full functionality of the program.
@echo.
@echo  Some functions may not work or work incorrectly.
@echo.
@echo ---------------------------------------------------
@echo.
@echo  What will we do?
@echo.
@echo     0.  Exit from the program
@echo     S.  Run without an information table
@echo     T.  Run with a table
@echo.
@echo   Press Enter to start the program without a table.
rem EndEngTextBlock
@echo.
@set "choice=s"
call :_MenuChoiceEnterDef
@echo.
if not defined choice goto _WiFiConnected
if "%choice%"=="0" (exit)
if /i "%choice%"=="s" (GOTO _beginn)
if /i "%choice%"=="t" (GOTO _tabBegin)
::if /i "%choice%"=="s" (exit /b)
cls
goto _WiFiConnected

:_NoDriversInstalled
cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++ Шлем подключен,но драйверы не установлены  +++
rem @echo.
rem @echo.
rem @echo        Тем не менее, вы можете запустить программу,
rem @echo        но некоторые функции работать не будут.
rem @echo.
rem @echo        В этом случае вы увидите сообщение
rem @echo.
rem @echo        "adb.exe: no devices/emulators found" 
rem @echo         или 
rem @echo        "Ошибка. Проверьте соединение со шлемом"
rem @echo.
rem @echo ---------------------------------------------------
rem @echo.
rem @echo  Как поступим?
rem @echo.
rem @echo     0.  Выход из программы
rem @echo     S.  Запустить без информационной таблицы
rem @echo     T.  Запустить с таблицей
rem @echo     D.  Открыть Диспетчер устройств
rem @echo     I.  Перейти в меню установки драйверов
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ Headset is connected, but drivers are not installed  +++
@echo.
@echo.
@echo     +++++ However, you can run the program,
@echo     but some features will not work.
@echo     In this case you will see the message
@echo.
@echo     "adb.exe: no devices/emulators found" 
@echo     or 
@echo     "Error. Check the connection to the headset"
@echo.
@echo ---------------------------------------------------
@echo.
@echo  What should we do?
@echo.
@echo     0.  Exit the program
@echo     S.  Run without information table
@echo     T.  Run with table
@echo     D.  Open Device Manager
@echo     I.  Go to driver installation menu
rem EndEngTextBlock
@echo.
call :_MenuChoiceEnter
@echo.
if not defined choice goto _NoDriversInstalled
if "%choice%"=="0" (exit)
if /i "%choice%"=="s" (GOTO _beginn)
if /i "%choice%"=="t" (GOTO _tabBegin)
if /i "%choice%"=="d" (start mmc.exe devmgmt.msc)
if /i "%choice%"=="i" (GOTO _InstallVPNClients)
@cls
goto :_NoDriversInstalled

:_tabGeneral
@echo off
@SetLocal EnableDelayedExpansion

:_tabSizeCheck
@For /F "skip=1 tokens=2,3,4,5" %%a In ('%MYFILES%\adb shell df -h /sdcard/') Do (
cls
@set aa=%%a
@set bb=%%b
@set cc=%%c
@set dd=%%d
set sz=Гб
)
::@set aa=
::@set bb=
::@set cc=
::@set dd=
::set sz=-
if [%aa%]==[] @set aa=------
if [%bb%]==[] @set bb=------
if [%cc%]==[] @set cc=------
if [%dd%]==[] @set dd=-----
::if [%aa%]==[] @set sz=-

::>>>>>>>
rem call :_tabModel
call :_setfwtxt
::>>>>>>>

:_tabSN
@For /F %%r In ('%MYFILES%\adb shell getprop ro.boot.serialno') Do set sn=%%r
cls
::set sn=
if [%sn%]==[] set sn=---------------------

:_tebDatetime
@For /F %%q In ('@%MYFILES%\adb shell date +"%%Y.%%m.%%d-%%H:%%M:%%S"') Do set qdt=%%q
cls
::set qdt=
if [%qdt%]==[] set qdt=---------------------

:_tabIP
@FOR /F "tokens=2" %%G IN ('@%MYFILES%\adb.exe shell ip addr show wlan0 ^|findstr /i /c:"inet "') DO set ipfull=%%G
cls
@FOR /F "tokens=1 delims=/" %%G in ("%ipfull%") DO set ip=%%G

@if [%ip%]==[] set ip=-------------

:_tabConnectType
@set /a connectsum=%cablecheck%+%wificheck%
@IF %connectsum% EQU 2 set connecttype=Double & goto _tabFWdltable
@%MYFILES%\adb devices 2>NUL | findstr offline 2>nul 1>nul
@IF %errorlevel% EQU 0 set connecttype=Offline & goto _tabFWdltable
@%MYFILES%\adb devices 2>NUL | findstr ":" 2>nul 1>nul
@IF %errorlevel% EQU 0 set connecttype=Wi-Fi & goto _tabFWdltable

@FOR /F "skip=1 tokens=1" %%j IN ('%MYFILES%\adb devices') DO set sernum=%%j
cls
@if [%sernum%] NEQ [] set connecttype=Cable & goto _tabFWdltable

@set connecttype=-----

:_tabFWdltable
:_ExtractFirmwareVersion
@echo.
rem StartRusTextBlock
rem @echo Секунду, подготавливаем табличку....
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Wait a second, preparing the table....
rem EndEngTextBlock
call :_hsfwversionextract
if [%hsversion%]==[] (set fwnumb=-------------) else (set fwnumb=%hsversion%)
if [%hsenvironment%]==[] (set fwsys=---------------------) else (set fwsys=%hsenvironment%)

:_teabCheckAdmin
rem StartRusTextBlock
rem @reg query "HKU\S-1-5-19" >NUL 2>&1 && (set adminaccess=Ну а то) || (set adminaccess=Не в этот раз)
rem EndRusTextBlock
rem StartEngTextBlock
@reg query "HKU\S-1-5-19" >NUL 2>&1 && (set adminaccess=Of coz) || (set adminaccess=Not this time)
rem EndEngTextBlock
call :_BatteryStatsCheck
call :_setfwtxt

call :_UpdateStatus
call :_hat
rem StartRusTextBlock
rem @echo  Дата в шлеме	: %qdt%	^| Общий объем : !aa:~,-1!!sz!	^| Емкость акк.	: %opcouprom%%mahh%
rem @echo  Серийный номер	: %sn%	^| Занято      : !bb:~,-1!!sz!	^| Потеряно емк.	: %izgcou%%mahh%
rem @echo  Верcия системы	: %fwsys%	^| Свободно    : !cc:~,-1!!sz!	^| Деградация	: %degostcou%%pr%
rem @echo  Прошивка	: %fwnumb%		^| Заполнено   : !dd!	^| Заряд		: %batlevel%%pr%
rem @echo  IP шлема	: %ip%     	^| Подключение : %connecttype%	^| От админа?	: %adminaccess%
rem @echo  Модель шлема	: %DevModelNm%   	^| = резерв =  :		^| Обновления    : %updstatus%
rem EndRusTextBlock
rem StartEngTextBlock
@echo  Headset date	: %qdt%	^| Total volume	: !aa:~,-1!!sz!	^| Battery capacity	: %opcouprom%%mahh%
@echo  Serial number	: %sn%	^| Occupied      : !bb:~,-1!!sz!	^| Lost capacity		: %izgcou%%mahh%
@echo  System version	: %fwsys%	^| Free space    : !cc:~,-1!!sz!	^| Degradation		: %degostcou%%pr%
@echo  FW version	: %fwnumb%		^| Filled        : !dd!	^| Charge		: %batlevel%%pr%
@echo  Headset IP	: %ip%     	^| Connection    : %connecttype%^| From admin?		: %adminaccess%
@echo  Headset model	: %DevModelNm%  	^| = reserved =  :	^| Updates         	: %updstatus%
rem EndEngTextBlock
@echo --------------------------------------------------------------------------------------------------
@exit /b

:_UpdateStatus
%myfiles%\adb shell pm list packages -d 2>&1 | findstr /i /c:"com.oculus.updater" 2>nul 1>nul
rem rem @echo %DevModelNm%
rem StartRusTextBlock
rem if %errorlevel%==1 (set updstatus=Включены) else (set updstatus=Отключены)
rem EndRusTextBlock
rem StartEngTextBlock
if %errorlevel%==1 (set updstatus=Enabled) else (set updstatus=Disabled)
rem EndEngTextBlock
if %sn%==--------------------- set updstatus=-------- && exit /b
exit /b

rem :_tabModel
call :_setfwtxt
rem exit /b

if %ERRORLEVEL% EQU 1 set uknownmodel=1
rem StartRusTextBlock
rem set model=Неизвестно
rem EndRusTextBlock
rem StartEngTextBlock
set model=Unknown
rem EndEngTextBlock
@exit /b

:_CheckAllMode

:_CheckCableMode
@echo off
@%MYFILES%\devcon_x64 find *VID_2833* | findstr /i /c:"XRSP" 1>nul 2>nul
@IF %ERRORLEVEL% EQU 0 (
call :_CheckCableModeDrivers
@set /A cablecheck=1 
) else (
@set /A cablecheck=0
call :_setfwtxt
rem call :_CheckUnSupportDevMode
call :_CheckUnSupportDevice
)
@exit /b

:_CheckCableModeDrivers
@echo off
@%MYFILES%\devcon_x64 find *VID_2833* | findstr /i /c:"Oculus" 1>nul 2>nul
@IF %ERRORLEVEL% EQU 0 (
@set /A cablecheckdriver=1 
) else (
@set /A cablecheckdriver=0
set s=%_fBlack%%_bYellow%DR%_fReset%
goto _NoDriversInstalled
)
@exit /b


:_CheckWiFiMode
@echo off
@%MYFILES%\adb devices 2>NUL | findstr /c:":" 2>nul 1>nul
@IF %ERRORLEVEL% EQU 0 (
@set /A wificheck=1
rem call :_UnSupportedDevices
) else (
@set /A wificheck=0
)
@exit /b

:_CheckUnSupportDevice
@FOR /F "skip=1 tokens=2" %%a IN ('@%myfiles%\adb devices 2^>nul ^| findstr /i /c:"device"') DO set adbdevices=%%a
@if [%adbdevices%] == [] exit /b
set s=%_fBlack%%_bBWhite%NS%_fReset%
goto :_NotSupported

:_CheckUnSupportDevMode
rem if [%DevModelNm%]==[] set s=%_fBlack%%_bBWhite%NS%_fReset%&& goto :_NotSupported
rem StartRusTextBlock
rem if "%DevModelNm%"==Неизвестно set s=%_fBlack%%_bBWhite%NS%_fReset%&& goto :_NotSupported
rem EndRusTextBlock
rem StartEngTextBlock
if "%DevModelNm%"=="Unknown" set s=%_fBlack%%_bBWhite%NS%_fReset% && goto :_NotSupported
rem EndEngTextBlock
exit /b

:_CheckDoubleOrNoDeviceMode
@echo off
@set /a connectsum=%cablecheck%+%wificheck%
@IF %wificheck% GTR %cablecheck% set s=%_fBlack%%_bBCyan%WF%_fReset%&& goto _WiFiConnected
@IF %connectsum% EQU 2 set s=%_fBlack%%_bBBlue%DB%_fReset%&& call :_DoubleConnect
@IF %connectsum% EQU 0 set s=%_fBlack%%_bRed%NA%_fReset%&& goto _NoDevice
@IF %cablecheck%==1 set s=%_fBlack%%_bGreen%CB%_fReset%&& exit /b
@exit /b

:_CheckDevMode
@echo off
@%MYFILES%\devcon_x64 find *VID_2833* | findstr /i /c:"ADB" 1>nul 2>nul
IF %wificheck%==1 exit /b
@IF %ERRORLEVEL% EQU 0 (
@set /A adbcheck=1 
) else (
@set /A adbcheck=0
set s=%_fBlack%%_bBYellow%DV%_fReset%
@call :_noadb
)
@exit /b

:_CheckAfterWiFiCheckMode
:_CheckAutorization
@echo off
@%MYFILES%\adb devices 2>NUL | findstr /i /c:"unauthorized" 1>NUL 2>nul
@IF %ERRORLEVEL% EQU 0 (
@set /A autorizecheck=1 
set s=%_fBlack%%_bBMag%AU%_fReset%
goto _notautorized
) else (
@set /A autorizecheck=0
)
@exit /b

:_CheckSideloadMode
@echo off
@%MYFILES%\adb devices | findstr /i /c:"sideload" 1>nul 2>nul
@IF %ERRORLEVEL% EQU 0 (
set /A sideloadcheck=1 
set s=%_fBlack%%_bLGray%SL%_fReset%
@goto _sideloadmode
) else (
@set /A sideloadcheck=0
)
@exit /b

:_CheckBootloaderMode
@%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
@If %ERRORLEVEL%==0 (
set bl=1
set s=%_fBlack%%_bDGray%BL%_fReset%
goto _bootloadermode
)
exit /b

:_UnSupportedDevices
@FOR /F "skip=1 tokens=2" %%a IN ('%myfiles%\adb devices ^| findstr /i /c:"device"') DO set adbdevices=%%a
@if [%adbdevices%] == [] exit /b
set s=%_fBlack%%_bBWhite%NS%_fReset%
goto :_NotSupported


:_NotSupported
@For /F %%a In ('%MYFILES%\adb shell getprop ro.product.manufacturer') Do set manuf=%%a
@For /F "tokens=*" %%a In ('%MYFILES%\adb shell getprop ro.semc.product.name') Do set prodname=%%a
@For /F %%a In ('%MYFILES%\adb shell getprop ro.semc.product.model') Do set prodmodel=%%a
cls
call :_hat
@echo.
@echo.
@echo.
rem StartRusTextBlock
rem @echo     +++ Подключенное утройство не выглядит как шлем  +++
rem @echo.
rem @echo         Оно больше похоже на %manuf% %prodname% %prodmodel%
rem @echo         Поэтому поддерживается лишь частично.
rem @echo.  
rem @echo.
rem @echo   Тем не менее, вы можете запустить программу, но некоторые функции работать не будут.
rem @echo   В этом случае вы увидите сообщение об ошибке обработки команд или просто "Ошибка!"
rem @echo.
rem @echo ---------------------------------------------------
rem @echo.
rem @echo  Как поступим?
rem @echo.
rem @echo     0.  Выход из программы
rem @echo     S.  Запустить программу
rem @echo     D.  Открыть Диспетчер устройств
rem @echo.
rem @set "choice="
rem @Set /p choice="Выберите пункт меню и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@echo     +++ Connected device does not look like a headset +++
@echo.
@echo         It looks more like %manuf% %prodname% %prodmodel%
@echo         Therefore, it is only partially supported.
@echo.
@echo.
@echo   Nevertheless, you can run the program, but some functions will not work.
@echo   In this case, you will see a command processing error message or just "Error!"
@echo.
@echo ---------------------------------------------------
@echo.
@echo  What shall we do?
@echo.
@echo     0.  Exit the program
@echo     S.  Run the program
@echo     D.  Open Device Manager
@echo.
@set "choice="
@Set /p choice="Select a menu item and press Enter: "
rem EndEngTextBlock
@echo.
if not defined choice goto _NotSupported
if "%choice%"=="0" (exit)
if /i "%choice%"=="s" (GOTO _beginn)
if /i "%choice%"=="d" (start mmc.exe devmgmt.msc)
@cls
goto _NotSupported


rem :_BattseryStatTab
rem call :_hat
rem @echo.
rem @echo.
rem @echo.


:_BattseryStatTab
call :_hat
call :_BatteryStatsCheck
call :_BattHealthLevel
@echo.
@echo. %biggernominal%
@echo  -----------------------------------------------------------------------------------------------
rem StartRusTextBlock
rem @echo  		^| Остаточная емкость	^| Потеряно емкости	^| Деградация батареи	^|
rem @echo  -----------------------------------------------------------------------------------------
rem @echo  Оценочная	^|   %batestimated%%mahe%		^|   %lostestimated%%mahp%		^|    %degostestimated%%pre%		^|
rem @echo  Рассчитанная	^|   %opcouprom%%mahh%		^|   %izgcou%%mahh%		^|    %degostcou%%pr%		^|
rem @echo  -----------------------------------------------------------------------------------------
rem @echo.
rem @echo  Оценочная емкость		: %batestimated% mAh
rem @echo  Последняя изученная емкость	: %batlearned% mAh
rem @echo  Минимальная изученная емкость	: %minbatlearned% mAh
rem @echo  Максимальная изученная емкость	: %maxbatlearned% mAh
rem @echo  Текущий заряд шлема		: %batlevel%%pr%
rem @echo.
rem @echo  Статус батареи			: %batstatus%
rem @echo  Здоровье батареи		: %bathealth%
rem @echo.
rem @echo  Штатная емкость батареи	: %batfull% mAh
rem @echo  ===========================================
rem @echo.
rem @echo  ПОЯСНЕНИЕ ПО ЗНАЧЕНИЯМ:
rem @echo.
rem @echo  Потеряно емкости	- емкость, потерянная батареей за время использования шлема
rem @echo                       	  [штатная емкость минус статистическая или рассчитанная]
rem @echo.
rem @echo  Остаточная емкость	- текущая емкость батареи
rem @echo.                      	  [штатная емкость минус потеряно]
rem @echo.
rem @echo  Деградация батареи	- процент того, насколько уменьшилась емкость батареи
rem @echo                       	  [сто минус соотношение штатной емкости к остаточной]
rem @echo.
rem @echo  Штатная емкость	- начальная емкость нового аккумулятора по спецификации
rem @echo.
rem @echo  Оценочная емкость	- показатель, рассчитанный по сложному алгоритму, включающему в себя
rem @echo				  диаграмму состояний, среднюю молщность для каждого из них,
rem @echo				  средний ток, время резервного питания, коэффициент деградации и т.д.
rem @echo				  КОРОЧЕ, ЭТО НАИБОЛЕЕ ВАЖНЫЙ ПАРАМЕТР. Хотя иногда он кривой.
rem @echo			     	  Расчитан на основе статистики с момента последней зарядки.
rem @echo				  [если значение емкости выше штатного, в этой строке будут прочерки]
rem @echo.
rem @echo  Рассчитанная		- Расчет на основе текущего состояния батареи
rem @echo.
rem @echo  Изученная емкость	- Последняя/Минимальная/Максимальная.
rem @echo				  Совершенно бестолковые параметры, 
rem @echo				  но с ними список выглядит внушительней
rem EndRusTextBlock
rem StartEngTextBlock
@echo                     ^|  Residual capacity	^|  Lost capacity	^|  Battery degradation
@echo  -----------------------------------------------------------------------------------------------
@echo  Estimated          ^|  %batestimated%%mahe%			^|  %lostestimated%%mahp%		^|  %degostestimated%%pre%
@echo  Calculated         ^|  %opcouprom%%mahh%			^|  %izgcou%%mahh%		^|  %degostcou%%pr%
@echo  -----------------------------------------------------------------------------------------------
@echo.
@echo  Estimated capacity          : %batestimated% mAh
@echo  Last learned capacity       : %batlearned% mAh
@echo  Min learned capacity        : %minbatlearned% mAh
@echo  Max learned capacity        : %maxbatlearned% mAh
@echo  Current charge              : %batlevel%%pr%
@echo.
@echo  Battery status              : %batstatus%
@echo  Battery health              : %bathealth%
@echo.
@echo  Standard battery capacity   : %batfull% mAh
@echo  ===========================================
@echo.
@echo  EXPLANATION OF VALUES:
@echo.
@echo  Lost capacity       - the capacity lost by the battery over time
@echo                          [standard capacity minus statistical or calculated]
@echo.
@echo  Residual capacity   - the current capacity of the battery
@echo.                          [standard capacity minus lost]
@echo.
@echo  Battery degradation - the percentage by which the battery capacity has decreased
@echo                          [one hundred minus the ratio of standard capacity to residual]
@echo.
@echo  Standard capacity   - the initial capacity of a new battery according to the specification
@echo.
rem @echo  Estimated capacity  - a parameter calculated using a complex algorithm, including
rem @echo                            state diagram, average power for each of them,
rem @echo                            average current, backup power time, degradation coefficient, etc.
rem @echo                            IN SHORT, THIS IS THE MOST IMPORTANT PARAMETER. Although sometimes it's crooked.
rem @echo                            Calculated based on statistics since the last charge.
rem @echo                            [if the capacity value is higher than standard, there will be dashes in this line]
rem @echo.
@echo  Calculated capacity - Calculation based on the current state of the battery
@echo.
@echo  Learned capacity    - Last/Min/Max.
@echo                            Absolutely useless parameters,
@echo                            but the list looks more impressive with them.
rem EndEngTextBlock
exit /b
::goto _exitout

:_BattHealthLevel
@%MYFILES%\adb shell dumpsys battery >battery.txt
@FOR /F "tokens=2" %%G IN ('findstr /i "health:" battery.txt') DO set health=%%G
@FOR /F "tokens=2" %%G IN ('findstr /i "status:" battery.txt') DO set status=%%G
rem StartRusTextBlock
rem if %status%==1 set batstatus=Неизвестно
rem if %status%==2 set batstatus=На зарядке
rem if %status%==3 set batstatus=Разряжается
rem if %status%==4 set batstatus=Не на зарядке
rem if %status%==5 set batstatus=Полностью заряжена
rem if [%status%]==[] set batstatus=ХЗ
rem if %health%==1 set bathealth=Неизвестно
rem if %health%==2 set bathealth=Хорошее
rem if %health%==3 set bathealth=Перегревается
rem if %health%==4 set bathealth=Неисправна
rem if %health%==5 set bathealth=Поревышение напряжения
rem if %health%==6 set bathealth=Непонятная ошибка
rem if %health%==7 set bathealth=Слишком низкая температура
rem if [%health%]==[] set bathealth=ХЗ
rem EndRusTextBlock
rem StartEngTextBlock
if %status%==1 set batstatus=Unknown
if %status%==2 set batstatus=Charging
if %status%==3 set batstatus=Discharging
if %status%==4 set batstatus=Not charging
if %status%==5 set batstatus=Fully charged
if [%status%]==[] set batstatus=Unknown
if %health%==1 set bathealth=Unknown
if %health%==2 set bathealth=Good
if %health%==3 set bathealth=Overheating
if %health%==4 set bathealth=Failed
if %health%==5 set bathealth=Over-voltage
if %health%==6 set bathealth=Unknown error
if %health%==7 set bathealth=Too low temperature
if [%health%]==[] set bathealth=Unknown
rem EndEngTextBlock
@del battery.txt /q /f
exit /b

:_BatteryStatsCheck
rem set sn=
rem @For /F %%r In ('%MYFILES%\adb shell getprop ro.boot.serialno') Do set sn=%%r
%MYFILES%\adb shell getprop ro.boot.serialno >nul
if %errorlevel%==1 (
cls
call :_EmptyBatParameters
) else (
call :_BatteryStats
)
@exit /b

:_BatteryStats
call :_setfwtxt
rem exit /b
@%MYFILES%\adb shell dumpsys batterystats --charged >charged.txt
for /f "tokens=4" %%a in ('findstr /i /c:"Estimated battery capacity:" charged.txt') do set batestimated=%%a
for /f "tokens=5" %%a in ('findstr /i /c:"Last learned battery capacity:" charged.txt') do set batlearned=%%a
for /f "tokens=5" %%a in ('findstr /i /c:"Min learned battery capacity:" charged.txt') do set minbatlearned=%%a
for /f "tokens=5" %%a in ('findstr /i /c:"Max learned battery capacity:" charged.txt') do set maxbatlearned=%%a

@%MYFILES%\adb shell dumpsys battery >battery.txt

rem @FOR /F "tokens=3" %%G IN ('@%MYFILES%\adb shell dumpsys battery ^| findstr "Charge counter:"') DO set batcounter=%%G
@FOR /F "tokens=3" %%G IN ('findstr /i "Charge counter:" battery.txt') DO set batcounter=%%G
rem @FOR /F "tokens=2" %%G IN ('@%MYFILES%\adb shell dumpsys battery ^| findstr "level:"') DO set batlevel=%%G
@FOR /F "tokens=2" %%G IN ('findstr /i "level:" battery.txt') DO set batlevel=%%G


@del charged.txt /q /f
@del battery.txt /q /f
rem call :_setfwtxt
rem set /a batfull=3648
rem set /a batfull=3710
rem set /a batfull=5348
rem set /a batfull=5100
::set batestimated=3841
::IF %batestimated% GTR %batfull% goto _EmptyLearnParameters
set /a opestimated=%batestimated%*100
set /a ostestimated=%opestimated%/%batfull%
set /a degostestimated=100-%ostestimated%
set /a lostestimated=%batfull%-%batestimated%
set mahe=mAh
set mahp=mAh
set pre=%%%
:: ------------------------------

:_Count
::call :_EmptyLearnParameters
set /a batcount=%batcounter:~0,4%/%batlevel%
set /a opcouprom=%batcount%*100
set /a opcoupromfull=%opcouprom%*100
set /a opcou=%opcoupromfull%/%batfull%
set /a degostcou=100-%opcou%
set /a izgcou=%batfull%-%opcouprom%
set mahh=mAh
set pr=%%%
@exit /b

:_EmptyBatParameters
set mahh=
set mahl=
set mahp=
set batestimated=
set opcouprom=
set lostestimated=
set izgcou=
set degostestimated
set degostcou=
set batlevel=
set mahh=---
set mahe=---
set mahp=---
set opcouprom=-----
set izgcou=-----
set degostcou=-------
set batlevel=--------
set sn=---------------------
set pr=-
set lostestimated=-----
set batestimated=-----
set degostestimated=-------
exit /b


:_EmptyLearnParameters
set lostestimated=-----
::set batestimated=-----
set degostestimated=-------
set mahe=mAh
set mahp=---
set pre=-
rem StartRusTextBlock
rem set biggernominal=+++++ Оценочная емкость больше номинала! Такое бывает. Глюк-с +++++
rem EndRusTextBlock
rem StartEngTextBlock
set biggernominal=+++++ Estimated capacity is greater than nominal! This happens. Glitch-s +++++
rem EndEngTextBlock
goto _Count


:_setfwtxt
set IntProductName=
@for /f %%a in ('@%myfiles%\adb shell getprop ro.product.name 2^>nul') do set IntProductName=%%a
if [%IntProductName%]==[] set IntProductName=---------- && set DeviceModelName=-------- && set DevModelNm=-------------&& exit /b
if %IntProductName%==monterey set DevModelNm=Meta Quest 1&& set fmfilename=Q1&& set fwtxt=fw1.txt&& set /a batfull=3648&& set model=Quest 1 && set uknownmodel=0 && exit /b
if %IntProductName%==hollywood set DevModelNm=Meta Quest 2&& set fmfilename=Q2&& set fwtxt=fw2.txt&& set /a batfull=3710&& set model=Quest 2 && set uknownmodel=0 && exit /b
if %IntProductName%==eureka set DevModelNm=Meta Quest 3&& set fmfilename=Q3&& set fwtxt=fw3.txt&& set /a batfull=5100&&  set model=Quest 3 && set uknownmodel=0 && exit /b
if %IntProductName%==seacliff set DevModelNm=Meta Quest Pro&& set fmfilename=QP&& set fwtxt=fwp.txt&& set /a batfull=5348&&  set model=Quest Pro && set uknownmodel=0 && exit /b
rem StartRusTextBlock
rem set DevModelNm=Неизвестно
rem set DeviceModelName=Неясно
rem set model=Неизвестно
rem EndRusTextBlock
rem StartEngTextBlock
set DeviceModelName=Unknown
set model=Unknown
rem EndEngTextBlock
exit /b

:_ApplicationactionManageMenu

@set numb=1
@set menufile=appsmenu.cmd
@del %menufile% /q /f 1>nul 2>nul
@del packages-list.txt /q /f 1>nul 2>nul
@del pnames.txt /q /f 1>nul 2>nul
@del applist.txt /q /f 1>nul 2>nul

@echo :_mainmenu>>%menufile%
@echo @chcp 866 1^>nul 2^>nul>>%menufile%
@echo cls>>%menufile%
@echo @echo off>>%menufile%
@echo set "erl=%%%%%%">>%menufile%
@echo set "outnull=1>NUL 2>&1">>%menufile%
@echo setlocal enableextensions enabledelayedexpansion>>%menufile%
@echo call :_setlines>>%menufile%

set "erl=%%%"
@echo @mode con:cols=100 lines=%%qlines%%>>%menufile%

call :_packageslistcreate

setlocal enableextensions enabledelayedexpansion
set "var2= "
@echo @echo. >>%menufile%
@echo @echo. >>%menufile%
@echo @echo    APPLICATIONS LIST>>%menufile%
@echo @echo    ================= >>%menufile%
@echo @echo. >>%menufile%

set "pnames=packages-list.txt"

<nul set /p a="%%myfiles%%\cmdMenuSel f870 ">>%menufile%

@for /f "tokens=*" %%a in (%pnames%) do (
set packname=%%a
set packname=!packname:~8!
<nul set /p b="%var2%"!packname!"%var2%">>%menufile%

@echo !numb! !packname! >>applist.txt
set /a numb=!numb!+1
)
<nul set /p b="%var2%"+++ All Applications +++"%var2%">>%menufile%
<nul set /p b="%var2%"==============================="%var2%">>%menufile%

<nul set /p b="%var2%"EXIT MAIN MENU"%var2%">>%menufile%
@echo.>>%menufile%
set /a numb=!numb!-1
for /l %%i in (1,1,!numb!) do ( 
set menunumb=%%i
set "erl=%%%"

@echo if "%%errorlevel%%"=="!menunumb!" goto _actionmenu>>%menufile%
)
set /a allappsnumb=!menunumb!+1
set /a testnumb=!menunumb!+2
set /a exitnumb=!menunumb!+3
@echo if "%%errorlevel%%"=="!allappsnumb!" goto _allappsactionmenu>>%menufile%
@echo if "%%errorlevel%%"=="!testnumb!" goto _testblock>>%menufile%
@echo if "%%errorlevel%%"=="!exitnumb!" goto _deleteoldfiles>>%menufile%
@echo.>>%menufile%

@echo :_allappsactionmenu>>%menufile%

@echo set "allappscase=1">>%menufile%
@echo goto _actionsubmenu>>%menufile%
@echo.>>%menufile%

@echo :_actionmenu>>%menufile%
@echo set "choisedapp=%%errorlevel%%">>%menufile%
@echo @for /f "tokens=1,2" %%%%a in (applist.txt) do (>>%menufile%
@echo set "packnumber=%%%%a">>%menufile%
@echo set "packagename=%%%%b">>%menufile%
@echo if "^!choisedapp^!"=="^!packnumber^!" goto :_actionsubmenu>>%menufile%
@echo )>>%menufile%
@echo goto _actionmenu>>%menufile%
@echo.>>%menufile%

@echo :_actionsubmenu>>%menufile%
@echo cls>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ------------------------------------------------------------->>%menufile%
@echo @echo  = Package name selected: "^!packagename^!">>%menufile%
@echo @echo  ------------------------------------------------------------->>%menufile%
@echo @echo.>>%menufile%
@echo @echo      ACTION MENU >>%menufile%
@echo @echo      =========== >>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo.>>%menufile%

@echo %%myfiles%%\cmdMenuSel f870 "Application backup menu" "Restore application data" "Clear application data" "Uninstall application" "Start application" "Stop application" "Disable application" "Enable application" "View application status" "==============================" "BACK TO APPS MENU">>%menufile%
@echo if "%%errorlevel%%"=="1" goto _backupappmenu>>%menufile%
@echo if "%%errorlevel%%"=="2" goto _restoredata>>%menufile%
@echo if "%%errorlevel%%"=="3" goto _cleardata>>%menufile%
@echo if "%%errorlevel%%"=="4" goto _uninstallapp>>%menufile%
@echo if "%%errorlevel%%"=="5" goto _startapp>>%menufile%
@echo if "%%errorlevel%%"=="6" goto _stopapp>>%menufile%
@echo if "%%errorlevel%%"=="7" goto _appdisable>>%menufile%
@echo if "%%errorlevel%%"=="8" goto _appenable>>%menufile%
@echo if "%%errorlevel%%"=="9" goto _appinfolabel>>%menufile%
@echo if "%%errorlevel%%"=="10" goto _actionsubmenu>>%menufile%
@echo if "%%errorlevel%%"=="11" goto _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_backupappmenu>>%menufile%
@echo cls>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ------------------------------------------------------------->>%menufile%
@echo @echo  = Package name selected: "^!packagename^!">>%menufile%
@echo @echo  ------------------------------------------------------------->>%menufile%
@echo @echo.>>%menufile%
@echo @echo      BACKUP MENU >>%menufile%
@echo @echo      =========== >>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%

@echo %%myfiles%%\cmdMenuSel f870 "Full application backup" "Save application data" "Save APK" "Save APK and OBB" "==================" "BACK TO ACTION MENU">>%menufile%

@echo if "%%errorlevel%%"=="1" goto _fullbackupapp>>%menufile%
@echo if "%%errorlevel%%"=="2" goto _saveappdata>>%menufile%
@echo if "%%errorlevel%%"=="3" goto _saveapk>>%menufile%
@echo if "%%errorlevel%%"=="4" goto _saveapkobb>>%menufile%
@echo if "%%errorlevel%%"=="5" goto _testmenu>>%menufile%
@echo if "%%errorlevel%%"=="6" goto _actionsubmenu>>%menufile%

@echo.>>%menufile%

@echo :_fullbackupapp>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ---------------------------------->>%menufile%
@echo @echo  ..Saving full backup..>>%menufile%
@echo set "apkbkpproc=1" >>%menufile%
@echo set "obbbkpproc=1" >>%menufile%
@echo set "datbkpproc=1" >>%menufile%
@echo call %%myfiles%%\backup.cmd :_BackupBegin>>%menufile%
@echo call :_KeyReturnAppsMenu>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%


@echo :_saveappdata>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ---------------------------------->>%menufile%
@echo @echo  ..Saving application data..>>%menufile%
@echo set "datbkpproc=1" >>%menufile%
@echo call %%myfiles%%\backup.cmd :_BackupBegin>>%menufile%
@echo call :_KeyReturnAppsMenu>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_saveapk>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ---------------------------------->>%menufile%
@echo @echo  ..Saving apk file..>>%menufile%
@echo call %%myfiles%%\backup.cmd :_BackupBegin>>%menufile%
@echo @echo.>>%menufile%
@echo call :_KeyReturnAppsMenu>>%menufile%
@echo GOTO _mainmenu>>%menufile%

@echo :_saveapkobb>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ---------------------------------->>%menufile%
@echo @echo  ..Saving apk and obb files..>>%menufile%
@echo set listpackages="^!packagename^!">>%menufile%
@echo set "obbbkpproc=1" >>%menufile%
@echo call %%myfiles%%\backup.cmd :_BackupBegin>>%menufile%
@echo @echo.>>%menufile%
@echo call :_KeyReturnAppsMenu>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_restoredata>>%menufile%
call :_optiondev
rem @echo @echo.>>%menufile%
rem @echo @echo.>>%menufile%
rem @echo @echo.>>%menufile%
rem @echo set "actionchoise=restore application">>%menufile%
rem @echo call :_actionchoisemenu>>%menufile%
rem @echo @echo.>>%menufile%
rem @echo @echo.>>%menufile%
rem @echo @echo.>>%menufile%
rem @echo set "choice=1">>%menufile%
rem @echo @Set /p choice="Choose something and press Enter: ">>%menufile%
rem @echo @echo.>>%menufile%
rem @echo @echo.>>%menufile%
rem @echo if not defined choice goto _restoredata>>%menufile%
rem @echo if /i "%%choice%%"=="0" (exit)>>%menufile%
rem @echo if /i "%%choice%%"=="m" (GOTO _restoredata)>>%menufile%
rem @echo if /i "%%choice%%"=="1" (GOTO _restoredataaction)>>%menufile%
rem @echo goto _restoredata>>%menufile%
rem @echo.>>%menufile%

rem @echo :_restoredataaction>>%menufile%
rem @echo @echo.>>%menufile%
rem @echo @echo  ---------------------------------->>%menufile%
rem @echo @echo  ..Restoring application data..>>%menufile%
rem @echo @%%myfiles%%\adb push "%%cd%%\BackupsData\^!packagename^!" /sdcard/Android/data/ %%outnull%%>>%menufile%
rem @echo @echo  --->>%menufile%
rem @echo @echo  = Done.>>%menufile%
rem @echo @echo.>>%menufile%
rem @echo pause>>%menufile%
rem @echo GOTO _mainmenu>>%menufile%
rem @echo.>>%menufile%

@echo :_cleardata>>%menufile%
@echo cls>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ------------------------------------------------------------->>%menufile%
@echo @echo  = Package name selected: "^!packagename^!">>%menufile%
@echo @echo  ------------------------------------------------------------->>%menufile%
@echo @echo.>>%menufile%
@echo @echo  Action : Clear application data>>%menufile%
@echo @echo.>>%menufile%
@echo set "actionchoise=clear data">>%menufile%
@echo call :_actionchoisemenu>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo set "choice=1">>%menufile%
@echo @Set /p choice="Choose something and press Enter: ">>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo if not defined choice goto _cleardata>>%menufile%
@echo if /i "%%choice%%"=="0" (exit)>>%menufile%
@echo if /i "%%choice%%"=="m" (GOTO _mainmenu)>>%menufile%
@echo if /i "%%choice%%"=="1" (GOTO _cleardataaction)>>%menufile%
@echo goto _cleardata>>%menufile%
@echo.>>%menufile%

@echo :_cleardataaction>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ---------------------------------->>%menufile%
@echo @echo  ..Clearing application data..>>%menufile%
@echo @%%myfiles%%\adb shell pm clear "^!packagename^!" %%outnull%%>>%menufile%
@echo @echo  --->>%menufile%
@echo @echo  = Done>>%menufile%
@echo @echo.>>%menufile%
@echo pause>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_uninstallapp>>%menufile%
@echo cls>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ------------------------------------------------------------->>%menufile%
@echo @echo  = Package name selected: "^!packagename^!">>%menufile%
@echo @echo  ------------------------------------------------------------->>%menufile%
@echo @echo.>>%menufile%
@echo @echo  Action : Uninstall application>>%menufile%
@echo @echo.>>%menufile%
@echo set "actionchoise=uninstall application">>%menufile%
@echo call :_actionchoisemenu>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo set "choice=1">>%menufile%
@echo @Set /p choice="Choose something and press Enter: ">>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo if not defined choice goto _uninstallapp>>%menufile%
@echo if /i "%%choice%%"=="0" (exit)>>%menufile%
@echo if /i "%%choice%%"=="m" (GOTO _mainmenu)>>%menufile%
@echo if /i "%%choice%%"=="1" (GOTO _uninstallappaction)>>%menufile%
@echo goto _uninstallapp>>%menufile%
@echo.>>%menufile%

@echo :_uninstallappaction>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ---------------------------------->>%menufile%
@echo @echo  ..Uninstalling application..>>%menufile%
@echo @%%myfiles%%\adb uninstall "^!packagename^!" %%outnull%%>>%menufile%
@echo @echo  --->>%menufile%
@echo @echo  = Done>>%menufile%
@echo @echo.>>%menufile%
@echo @echo returnlabel ^> rlflag.txt>>%menufile%
@echo call :_KeyReturnAppsMenu>>%menufile%
@echo exit>>%menufile%
@echo.>>%menufile%

@echo :_startapp>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ---------------------------------->>%menufile%
@echo @echo  ..Starting application...>>%menufile%
@echo @%%myfiles%%\adb shell monkey -p "^!packagename^!"  -c android.intent.category.LAUNCHER 1 %%outnull%%>>%menufile%
@echo @timeout 2 %%outnull%%>>%menufile%
@echo @echo  --->>%menufile%
@echo @echo  = Done>>%menufile%
@echo @echo  --------------------------------------------------->>%menufile%
@echo @echo  +++ Put on headset, application must be opened +++>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  --------------------------------------------------->>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ^^^>^^^>^^^> Press any key to return main menu ^^^<^^^<^^^<>>%menufile%
@echo pause ^>nul>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_stopapp>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  ---------------------------------->>%menufile%
@echo @echo  ..Stopping application...>>%menufile%
@echo @%%myfiles%%\adb shell am force-stop "^!packagename^!" %%outnull%%>>%menufile%
@echo @echo  --->>%menufile%
@echo @echo  = Done>>%menufile%
@echo @echo.>>%menufile%
@echo pause>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_appdisable>>%menufile%
@echo @echo.>>%menufile%
@echo @%%MYFILES%%\adb shell pm disable-user --user 0 "^!packagename^!" %%outnull%%>>%menufile%
@echo @echo  --->>%menufile%
@echo @echo  = Done>>%menufile%
@echo @echo.>>%menufile%
@echo call :_KeyReturnAppsMenu>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_appenable>>%menufile%
@echo @echo.>>%menufile%
@echo @%%MYFILES%%\adb shell pm enable --user 0 "^!packagename^!" %%outnull%%>>%menufile%
@echo @echo  --->>%menufile%
@echo @echo  = Done>>%menufile%
@echo @echo.>>%menufile%
@echo call :_KeyReturnAppsMenu>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_appinfolabel>>%menufile%
@echo @echo.>>%menufile%
@echo @set "namelabel=1">>%menufile%
@echo set listpackages="^!packagename^!">>%menufile%
@echo call %%myfiles%%\backup.cmd :_ViewApkLabelInsideHeadset>>%menufile%
@echo call :_KeyReturnAppsMenu>>%menufile%
@echo GOTO _mainmenu>>%menufile%
@echo.>>%menufile%

@echo :_setlines>>%menufile%
@echo set /a qlines=^!menunumb^!+15>>%menufile%
@echo exit /b>>%menufile%
@echo.>>%menufile%
@echo :_actionchoisemenu>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo		0. Exit application module>>%menufile%
@echo @echo		M. Exit application menu>>%menufile%
@echo @echo	    Enter. Confirm %actionchoise%>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo exit /b>>%menufile%
@echo.>>%menufile%

@echo :_deleteoldfiles>>%menufile%
@echo @del packages-list.txt /q %%outnull%% >>%menufile%
@echo @del pnames.txt /q /f %%outnull%% >>%menufile%
@echo @del applist.txt /q /f %%outnull%% >>%menufile%
@echo @exit>>%menufile%
@echo.>>%menufile%

@echo :_testmenu>>%menufile%
@echo cls>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo  --------------------------------------->>%menufile%
@echo @echo     +++ Press RETURN TO MENU now^! +++>>%menufile%
@echo @echo  --------------------------------------->>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo       TEST MENU >>%menufile%
@echo @echo      =========== >>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo %%myfiles%%\cmdMenuSel f870 "   Test option 1" "   Test option 2" "   ==================" "   RETURN TO MENU">>%menufile%
@echo if "%%errorlevel%%"=="1" goto _test1>>%menufile%
@echo if "%%errorlevel%%"=="2" call :_test2>>%menufile%
@echo if "%%errorlevel%%"=="3" goto _testmenu>>%menufile%
@echo if "%%errorlevel%%"=="4" goto _backupappmenu>>%menufile%
@echo.>>%menufile%

@echo :_test1>>%menufile%
@echo echo 111>>%menufile%
@echo pause>>%menufile%
@echo exit>>%menufile%

@echo :_test2>>%menufile%
@echo echo 222>>%menufile%
@echo pause>>%menufile%
@echo exit /b>>%menufile%

@echo :_KeyReturnAppsMenu>>%menufile%
@echo @echo   ------------------------------------------->>%menufile%
@echo @echo   ^^^>^^^>^^^> Press any key for return apps menu ^^^<^^^<^^^<>>%menufile%
@echo @pause ^>nul>>%menufile%
@echo exit /b>>%menufile%
@echo.>>%menufile%
exit /b

:_StartEndAppsMenu
rem @start cmd /c appsmenu.cmd
start "" /wait cmd /k appsmenu.cmd
rem cmd /k appsmenu.cmd
@del packages-list.txt /q /f 1>NUL 2>&1
@del appsmenu.cmd /q /f 1>NUL 2>&1
@del pnames.txt /q /f 1>NUL 2>&1 
@del applist.txt /q /f 1>NUL 2>&1
if exist rlflag.txt (
@del packages-list.txt /q /f 1>NUL 2>&1
@echo   ---
@echo   Just a second
@echo   Application list is updating..
@del rlflag.txt /q /f 1>NUL 2>&1
call :_ApplicationactionManageMenu
call :_StartEndAppsMenu
) else (
@del packages-list.txt /q /f 1>NUL 2>&1
exit /b
)
exit /b

:_packageslistcreate
@%MYFILES%\adb shell pm list packages %listpackages% >>packages-list.txt
exit /b

:_optiondev
@echo cls>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo     =============================>>%menufile%
@echo @echo     ^^^|   Option is developing    ^^^|>>%menufile%
@echo @echo     =============================>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo %%myfiles%%\cmdMenuSel f870 "EXIT MENU" >>%menufile%
@echo if "%%errorlevel%%"=="1" goto _actionsubmenu>>%menufile%
@echo.>>%menufile%
exit /b

:_optiondevsub
@echo cls>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo @echo     =============================>>%menufile%
@echo @echo     ^^^|   Option is developing    ^^^|>>%menufile%
@echo @echo     =============================>>%menufile%
@echo @echo.>>%menufile%
@echo @echo.>>%menufile%
@echo %%myfiles%%\cmdMenuSel f870 "EXIT MENU" >>%menufile%
@echo if "%%errorlevel%%"=="1" goto _backupappmenu>>%menufile%
@echo.>>%menufile%
exit /b

::>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

:_userright
::taskkill /f /im %~nx0 1>NUL 2>&1
::cmd /min /C "set __COMPAT_LAYER=RUNASINVOKER && start "" %~nx0"
@taskkill /f /im %0 1>NUL 2>&1
@cmd /min /C "set __COMPAT_LAYER=RUNASINVOKER && start "" %0"
exit

:_adminright
::taskkill /f /im %~nx0 1>NUL 2>&1
::cmd /min /C "set __COMPAT_LAYER=RunAsAdmin && start "" %~nx0"
@taskkill /f /im %0 1>NUL 2>&1
@cmd /min /C "set __COMPAT_LAYER=RunAsAdmin && start "" %0"
exit

:_uacright
::taskkill /f /im %~nx0 1>NUL 2>&1
::cmd /min /C "set __COMPAT_LAYER=RunAsHighest && start "" %~nx0"
@taskkill /f /im %0 1>NUL 2>&1
@cmd /min /C "set __COMPAT_LAYER=RunAsHighest && start "" %0"
exit

:_egg
@cls
@echo off
color 0a
@echo.
@echo.
@echo       ## ##    ## ##   ##  ###  ####     ##  ###   ## ##   
@echo      ##   ##  ##   ##  ##   ##   ##      ##   ##  ##   ##  
@echo      ##   ##  ##       ##   ##   ##      ##   ##  ####     
@echo      ##   ##  ##       ##   ##   ##      ##   ##   #####   
@echo      ##   ##  ##       ##   ##   ##      ##   ##      ###  
@echo      ##   ##  ##   ##  ##   ##   ##  ##  ##   ##  ##   ##  
@echo       ## ##    ## ##    ## ##   ### ###   ## ##    ## ##   
@echo.                                                 
@echo     ## ##   ##  ###  ### ###   ## ##   #### ##       ## ##    
@echo    ##   ##  ##   ##   ##  ##  ##   ##  # ## ##       ##  ##   
@echo    ##   ##  ##   ##   ##      ####       ##              ##   
@echo    ##   ##  ##   ##   ## ##    #####     ##             ##    
@echo    ##   ##  ##   ##   ##          ###    ##            ##     
@echo    ##  ##   ##   ##   ##  ##  ##   ##    ##           #   ##  
@echo     ##  ##   ## ##   ### ###   ## ##    ####         ######   
@echo.                                                         
@echo   ### ###   ## ##   ### ##   ### ###  ### ###  ### ###  ### ##   
@echo    ##  ##  ##   ##   ##  ##   ##  ##   ##  ##   ##  ##   ##  ##  
@echo    ##      ##   ##   ##  ##   ##       ##  ##   ##       ##  ##  
@echo    ## ##   ##   ##   ## ##    ## ##    ##  ##   ## ##    ## ##   
@echo    ##      ##   ##   ## ##    ##       ### ##   ##       ## ##   
@echo    ##      ##   ##   ##  ##   ##  ##    ###     ##  ##   ##  ##  
@echo   ####      ## ##   #### ##  ### ###     ##    ### ###  #### ##  
@echo.                                                      
@echo.                                                      
@echo.                                                      
@echo ===================================================================
rem StartRusTextBlock
rem @echo ++++++++   Браво! Мои поздраволения, вы открыли пасхалку!  +++++++
rem EndRusTextBlock
rem StartEngTextBlock
@echo ++++++++ Congratulations! You've found an Easter egg! +++++++
rem EndEngTextBlock
@echo ===================================================================
@pause 1>nul 2>nul
goto :_beginn                                                         

:_colhat
rem call :_cdcb

:_hat
@cls
rem @echo ==================================================================================================
@echo ╔═════════════════════════════════════════════════════════════════════════════════════════════════╗
@echo ║   %s%     QUest ADB Scripts - created by Varset - v4.0.0 - 3.07.24         Web: %_fBBlue%%_bBlack%www.vrcomm.ru%_fReset%    ║
@echo ╚═════════════════════════════════════════════════════════════════════════════════════════════════╝

rem @echo ==================================================================================================
@exit /b

:_hatmenu
@echo off
::@@echo.
@echo.
::@@echo     -------------------
::@@echo      ВЫБЕРИТЕ ДЕЙСТВИЕ
::@@echo     -------------------
@echo.
rem StartRusTextBlock
rem @echo    0.  Выход из программы
rem @echo    M.  Выход в Главное меню
rem EndRusTextBlock
rem StartEngTextBlock
@echo    0.  Exit from the program
@echo    M.  Exit to Main menu
rem EndEngTextBlock
@exit /b

:_MenuChoiceEnter
@set "choice="
rem StartRusTextBlock
rem @Set /p choice="Выберите пункт меню и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="Select a menu number and press Enter: "
rem EndEngTextBlock
@exit /b

:_MenuChoiceEnterDef
rem StartRusTextBlock
rem @Set /p choice="Выберите пункт меню и нажмите Enter: "
rem EndRusTextBlock
rem StartEngTextBlock
@Set /p choice="Select a menu number and press Enter: "
rem EndEngTextBlock
@exit /b

:_returnmenu
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите любую кнопку для возврата в Главное меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press any key to return to the Main menu ^<^<^<
rem EndEngTextBlock
@pause >nul
@cls
goto _beginn

:_exitout
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите любую кнопку для выхода из программы ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press any key to exit the program ^<^<^<
rem EndEngTextBlock
@pause >nul
@exit

:_prevmenu
@echo ----------------------------------------------------------------
@echo.
rem StartRusTextBlock
rem @echo ^>^>^> Нажмите что-нибудь для возврата в предыдущее меню ^<^<^<
rem EndRusTextBlock
rem StartEngTextBlock
@echo ^>^>^> Press any key to return to the previous menu ^<^<^<
rem EndEngTextBlock
@pause 1>nul 2>nul
exit /b

:_SetColours
@set _fReset=

@Set _fBlack=
@Set _bBlack=

@Set _fBRed=
@Set _bRed=
@Set _bBRed=

@Set _fBGreen=
@Set _bGreen=
@Set _bBGreen=

@set _fCyan=
@Set _bBCyan=
@Set _bCyan=

@set _fBYellow=
@Set _bBYellow=
@Set _bYellow=

@Set _fBBlue=
@Set _bBBlue=

@Set _bBMag=
@Set _bMag=

@Set _bLGray=
@Set _bDGray=

@Set _bBWhite=
@Set _fBWhite=
exit /b

:_ColorTest
call :_cdcbnoreg
@echo.
@echo.
@echo. %_fReset% 
set nd=%_fBlack%%_bRed%ND%_fReset%
set cb=%_fBlack%%_bGreen%CB%_fReset%
set dv=%_fBlack%%_bBYellow%DV%_fReset%
set db=%_fBlack%%_bBBlue%DB%_fReset%
set au=%_fBlack%%_bBMag%AU%_fReset%
set wf=%_fBlack%%_bBCyan%WF%_fReset%
set dr=%_fBlack%%_bYellow%DR%_fReset%
set sl=%_fBlack%%_bLGray%SL%_fReset%
set bl=%_fBlack%%_bDGray%BL%_fReset%
set ns=%_fBlack%%_bBWhite%NS%_fReset%
rem StartRusTextBlock
rem @echo   Цветовые (только Win 10) и буквенные индикаторы статуса или режима подключенного устройства
rem @echo   Отображаются в верхнем левом углу программы. Удобно использовать с ключом Bypass (пункты F-H)
rem @echo.
rem @echo		%nd%	= Устройство не подключено
rem @echo		%cb%	= Устройство подключено по кабелю
rem @echo		%dv%	= Режим разработчика не включен
rem @echo		%db%	= Двойное подключение, по кабелю и Wi-Fi одновременно
rem @echo		%au%	= Устройство не авторизовано
rem @echo		%wf%	= Устройство подключено по Wi-Fi
rem @echo		%dr%	= Шлем подключен, но драйверы не установлены
rem @echo		%sl%	= Шлем в режиме Sideload
rem @echo		%bl%	= Шлем в режиме Bootloader
rem @echo		%ns%	= Подключенное устройство не является шлемом
rem EndRusTextBlock
rem StartEngTextBlock
@echo   Color and letter markings for the status or mode of the connected device
@echo   Displayed in the top left corner of the program. Convenient to use with the Bypass option (items F-H)
@echo.
@echo		%nd%	= Device not connected
@echo		%cb%	= Device connected via cable
@echo		%dv%	= Developer mode not enabled
@echo		%db%	= Dual connection, via cable and Wi-Fi simultaneously
@echo		%au%	= Device not authorized
@echo		%wf%	= Device connected via Wi-Fi
@echo		%dr%	= Headset connected, but drivers not installed
@echo		%sl%	= Headset in Sideload mode
@echo		%bl%	= Headset in Bootloader mode
@echo		%ns%	= Connected device is not a headset
rem EndEngTextBlock
exit /b

:_qctlangset
rem StartRusTextBlock
rem set qtlang=ru
rem EndRusTextBlock
rem StartEngTextBlock
set qtlang=en
rem EndEngTextBlock
exit /b

:_utf
set codepage=@chcp 65001
rem set cod=utf
rem set hatcod=          [ ver. UTF-8 ]
exit /b

:_oem
set codepage=@chcp 866
set cod=oem
set hatcod=        [ ver. OEM-866 ]
exit /b

:_CheckOSVersion
@FOR /F "tokens=1,2,3,4,5 delims=. " %%a IN ('ver.exe') DO set /a osverrr=%%d
if %osverrr% GEQ 10 set osversion=10
exit /b

:_cdcbnoreg
@FOR /F "tokens=1,2,3,4,5 delims=. " %%a IN ('ver.exe') DO set /a osverrr=%%d
if %osverrr% GEQ 10 call :_SetColours
exit /b

:_colorsetlite
@FOR /F "tokens=1,2,3,4,5 delims=. " %%a IN ('ver.exe') DO set /a osverrr=%%d
if %osverrr% GEQ 10 call :_SetColours
rem if %cod%==utf call :_SetColours
@call :_CheckCableModeLT
@call :_CheckWiFiModeLT
@call :_CheckDoubleOrNoDeviceModeLT
@call :_CheckDevModeLT
@call :_CheckAfterWiFiCheckModeLT
@call :_CheckSideloadModeLT
@call :_CheckBootloaderModeLT
exit /b

:_CheckCableModeLT
rem @echo off
@%MYFILES%\devcon_x64 find *VID_2833* | findstr /i /c:"XRSP" 1>nul 2>nul
@IF %ERRORLEVEL% EQU 0 (
@set /A cablecheck=1 
call :_CheckCableModeDriversT
) else (
@set /A cablecheck=0
call :_setfwtxt
rem call :_CheckUnSupportDevMode
call :_CheckUnSupportDevice
)
@exit /b

:_CheckCableModeDriversT
@echo off
@%MYFILES%\devcon_x64 find *VID_2833* | findstr /i /c:"Oculus" 1>nul 2>nul
@IF %ERRORLEVEL% EQU 0 (
@set /A cablecheckdriver=1
) else (
@set /A cablecheckdriver=0
set s=%_fBlack%%_bYellow%DR%_fReset%
goto _NoDriversInstalled
)
@exit /b

:_CheckWiFiModeLT
rem @echo off
@%MYFILES%\adb devices 2>NUL | findstr ":" 2>nul 1>nul
@IF %ERRORLEVEL% EQU 0 (
@set /A wificheck=1
) else (
@set /A wificheck=0
)
@exit /b

:_CheckDoubleOrNoDeviceModeLT
rem @echo off
@set /a connectsum=%cablecheck%+%wificheck%
@IF %wificheck% GTR %cablecheck% set s=%_fBlack%%_bBCyan%WF%_fReset%&& exit /b
@IF %connectsum% EQU 0 set s=%_fBlack%%_bRed%NA%_fReset%&& goto _beginn else exit /b 
@IF %connectsum% EQU 2 set s=%_fBlack%%_bBBlue%DB%_fReset%&& exit /b
@IF %cablecheck%==1 set s=%_fBlack%%_bGreen%CB%_fReset%&& exit /b
@exit /b


:_CheckDevModeLT
@echo off
@%MYFILES%\devcon_x64 find *VID_2833* | findstr /i /c:"ADB" 1>nul 2>nul
IF %wificheck%==1 exit /b
@IF %ERRORLEVEL% EQU 0 (
@set /A adbcheck=1
) else (
@set /A adbcheck=0
set s=%_fBlack%%_bBYellow%DV%_fReset%
@exit /b
)
@exit /b

:_CheckAfterWiFiCheckModeLT
:_CheckAutorizationLT
@echo off
@%MYFILES%\adb devices 2>NUL | findstr /i /c:"unauthorized" 1>NUL 2>nul
@IF %ERRORLEVEL% EQU 0 (
@set /A autorizecheck=1 
set s=%_fBlack%%_bBMag%AU%_fReset%
exit /b
) else (
@set /A autorizecheck=0
)
@exit /b

:_CheckSideloadModeLT
@echo off
@%MYFILES%\adb devices | findstr /i /c:"sideload" 1>nul 2>nul
@IF %ERRORLEVEL% EQU 0 (
set /A sideloadcheck=1 
set s=%_fBlack%%_bLGray%SL%_fReset%
@goto _sideloadmode
) else (
@set /A sideloadcheck=0
)
@exit /b

:_CheckBootloaderModeLT
@%MYFILES%\fastboot devices | findstr /i /c:"fastboot" 1>nul 2>nul
@If %ERRORLEVEL%==0 (
set bl=1
set s=%_fBlack%%_bDGray%BL%_fReset%
goto _bootloadermode
)
exit /b


rem @%myfiles%\adb shell getprop ro.boot.serialno 1>NUL 2>&1
rem if %errorlevel%==0 (set s=%_bGreen%O%_fReset%) else (set s=%_bRed%X%_fReset%)
exit /b

:_CheckRegisterKeys
For /f "tokens=3" %%a in ('reg query HKEY_CURRENT_USER\Software\Quas /v Bypass 2^>nul') do set bpstatus=%%a
@if [%bpstatus%]==[] (exit /b)
@if %bpstatus%==0xb call :_colorsetlite & goto _beginn else goto _begin0
exit /b


For /f "skip=1 tokens=3 delims= " %%a in ('reg query HKCU\Software\Quas /v Rights') do set rightskey=%%a
if [%rightskey%]==[] goto _begin0
if /i %rightskey%==u goto _userright 
if /i %rightskey%==a goto _adminright
if /i %rightskey%==c goto _uacright
exit /b