VBS script to auto-start Ultimate Crosshair + Game Bar widget + Steam Game and kill all background processes (GameBar.exe, etc.) after closing the game to save RAM.

HuntStart.vbs

' Скачайте https://apps.microsoft.com/detail/9n2bjz33395t
' ======================================================================================
' NAME: HuntShowdown_AutoStart_with_Crosshair.vbs
' DESCRIPTION: Автоматизация запуска прицела (Ultimate Crosshair) и игры Hunt: Showdown.
' 
' ПОРЯДОК РАБОТЫ:
' 1. Запуск приложения прицела и ожидание его процесса.
' 2. Активация виджета Xbox Game Bar (через Ctrl+F12).
' 3. Запуск игры напрямую через исполнительный файл.
' 4. Очистка ОЗУ от Game Bar и прицела после выхода из игры (~150MB ОЗУ).
'
' ИНСТРУКЦИЯ:
' - В Game Bar установите сочетание "Ctrl + F12" для открытия панели.
' - Закрепите (Pin) виджет прицела в интерфейсе Game Bar.
' - Запускайте этот скрипт ВМЕСТО кнопки "Играть" в Steam.
' ======================================================================================

Set WshShell = CreateObject("WScript.Shell")

' 1. Запуск приложения прицела
WshShell.Run """C:\Program Files\WindowsApps\KGStudio.49721AA8083EB_1.0.16.0_x64__2x24ed2vmzbv8\Ultimate Crosshair for Games.exe""", 0, False

' Ожидание процесса прицела
Do
    Set ProcessList = GetObject("winmgmts://./root/cimv2").ExecQuery("Select * from Win32_Process Where Name = 'Ultimate Crosshair for Games.exe'")
    If ProcessList.Count > 0 Then Exit Do
    WScript.Sleep 500 
Loop
WScript.Sleep 1500

' 2. Активация виджета (Открыть/Закрыть Game Bar)
WshShell.SendKeys "^{F12}"
WScript.Sleep 1000
WshShell.SendKeys "^{F12}"
WScript.Sleep 1000

' 3. Запуск игры Hunt: Showdown 1896
' Используем полный путь, чтобы избежать ошибки 80070002
WshShell.Run """C:\Program Files (x86)\Steam\steamapps\common\Hunt Showdown 1896\bin\win_x64\HuntGame.exe""", 1, False

' 4. Мониторинг процесса игры
' Сначала ждем появления
Do
    Set ProcessList = GetObject("winmgmts://./root/cimv2").ExecQuery("Select * from Win32_Process Where Name = 'HuntGame.exe'")
    If ProcessList.Count > 0 Then Exit Do
    WScript.Sleep 2000
Loop

' Теперь ждем закрытия
Do
    Set ProcessList = GetObject("winmgmts://./root/cimv2").ExecQuery("Select * from Win32_Process Where Name = 'HuntGame.exe'")
    If ProcessList.Count = 0 Then Exit Do
    WScript.Sleep 5000
Loop

' 5. ПОЛНАЯ ОЧИСТКА ПАМЯТИ
WshShell.Run "taskkill /f /im ""Ultimate Crosshair for Games.exe""", 0, True
WshShell.Run "powershell -Command ""$p = 'GameBar', 'GameBarFTServer', 'XboxGameBarWidgets', 'GameBarPresenceWriter'; Get-Process -Name $p -ErrorAction SilentlyContinue | Stop-Process -Force""", 0, True
WshShell.Run "taskkill /f /im XboxAppServices.exe", 0, False