#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Cam OverLay

GroupAdd, AppGroup, % Name

;Gui +AlwaysOnTop
Gui -MaximizeBox
Gui Color, 0x000000
Gui Add, Button, x125 y50 w102 h23, Подтвердить
Gui Add, ListBox, vG1 gButtonПодтвердить hwndhListbox x25 y151 w196 h160
Gui Add, Button, gNewApp hwndhBut x125 y19 w102 h23, 3. Отследить игру
Gui Add, Button, gGames x15 y50 w102 h23, 2. Папка GAMES
Gui Add, Button, gOBS x15 y19 w102 h23, 1. Запустить OBS
Gui Add, Button, gReverse x125 y104 w102 h23, Реверс
Gui Add, Text, x18 y90 w210 h2 +0x10
Gui Font, c0xFFFFFF
Gui Add, GroupBox, x18 y134 w211 h188, Выбрать процесс
Gui Font
Gui Add, Edit, hwndhSear gGet vPoisk x17 y105 w100 h21, Поиск процесса...

for Process in ComObjGet("Winmgmts:").ExecQuery("Select * From Win32_Process")
 Txt .= Process.Caption "|"
GetSortedProcessesByLoad()
GuiControl,, % hListbox, % Txt	; Вставить из переменной.

Gui Show, w246 h340, % Name
Return

GuiEscape:
GuiClose:
ExitApp

Games:
Run, C:\Users\Администратор\Desktop\Games
Return

OBS:
Run, C:\Program Files\obs-studio\bin\64bit\obs64.exe, C:\Program Files\obs-studio\bin\64bit\
Sleep, 9000
WinSetTitle, ahk_class Qt5152QWindowIcon, , OBS
Sleep, 1000
MouseMove, 100, 760
Sleep, 200
MouseClick, left, 100, 760
MouseClick, right, 100, 760
Sleep, 200
MouseMove, 150, 650
MouseClick, left, 150, 650
Sleep, 200
If Not ОкноБезРамокДляВебки
{
		WinMove Оконный проектор (Источник) - Cam,, 0, 0, 408, 308 ; перемещаем окошко в угол + ресайз
		WinSet Style, -0x800000, Оконный проектор (Источник) - Cam ; -рамка
		WinSet Style, -0x40000, Оконный проектор (Источник) - Cam ; -рамка
		WinSet Style, -0x400000, Оконный проектор (Источник) - Cam ; -рамка
		ОкноБезРамокДляВебки := true
}
Sleep, 200
WinActivate Cam OverLay



#IfWinActive, Ahk_Group AppGroup

; Перехват клавиши Enter в своём окне:
Enter::
KeyWait, %A_ThisHotkey%, U

ControlGetFocus, F_Now, % Name	; Получить текущий выбранный контрол.
If (F_Now = "ListBox1")		; Если фокус на списке сохранить пункт и выйти:
{
 Gui, Submit, NoHide
 ToolTip, Переменная = %G1%
 Sleep, 300
 ToolTip
 Return
}
Else If (F_Now = "Edit1")	; Поиск в списке:
{
 GoTo, Get
}

;Else
; Send, {%A_ThisHotkey%}	; Нажать Enter если нет совпадений.
Return

#If


Get:
Gui, Submit, NoHide
T=
Loop, Parse, Txt, |
{
 If InStr(A_LoopField, Poisk)
 {
  SendMessage, 390, A_Index-1, 0,, ahk_id %hListbox%	; Выделить найденный пункт.
  T := A_Index
  Break
 }
}
If !T
{
 ToolTip, Нет такого.,0,0
 Sleep, 400
}
ToolTip
Return



ButtonПодтвердить:
myVar := MaxLoad.ProcessName[1]
Gui, Submit, NoHide
;ToolTip, Пункт: %G1% ; отображение выбранного пункта
WinActivate, ahk_exe %myVar%
Return


Reverse:
Reverse := !Reverse
GoSub, App

If Reverse
 Sort, Txt, R D|

GuiControl,, % hListbox, |	; Очистить список.
GuiControl,, % hListbox, % Txt	; Вставить из переменной.
Return


NewApp_Old:
Txt2 := Txt			; Резерв тек. списка.
GuiControl,, % hListbox, |	; Очистить список.
GuiControl,, % hListbox, Ожидание...
GuiControl, Disable, % hBut	; Блок кнопки.
GuiControl, Disable, % hSear	; Разблок поиска.
SetTimer, NewP, 1000		; Тест каждую секунду.
Return


NewP:	; Отсев новых программ.
   SortedProcesses := GetSortedProcessesByLoad()
   MaxLoad := SortedProcesses[1]
   GuiControl,, G1, % "|"        ; Очистить перед добавлением процесса.
   GuiControl,, G1, % "" . MaxLoad.ProcessName
   Return

;-------------------------------------------------------------------------------------------------------

; Обновлённый участок:
NewApp:	; Запуск / Стоп таймера - кнопка.
SW++
If !Mod(SW,2)
 GoTo, Stop

GuiControl,, G1, % "|"        ; Очистить перед добавлением процесса.
GuiControl,, G1, Ожидание...
GuiControl,, % hBut, 3. Остановить
GuiControl, Disable, % hSear	; Блок поиска.
SetTimer, NewP, 1000		; Тест каждую секунду.
Return

Stop:
GuiControl,, % hBut, 3. Отследить игру
GuiControl, Enable, % hSear	; Разблок поиска.
SetTimer, NewP, Off		; Выкл. обновление.
Return

;-------------------------------------------------------------------------------------------------------


GetSortedProcessesByLoad() {
   static LoadByPid := {}, prevSystemTime := ""
   Processes := WTSEnumProcesses()
   systemTime := GetSystemTimes()
   for k, v in Processes {
      processTime := GetProcessTimes(v.PID)
      if LoadByPid[v.PID]
         v.Load := 100*(processTime - LoadByPid[v.PID]) / (systemTime - prevSystemTime)
      LoadByPid[v.PID] := processTime
   }
   if prevSystemTime
      SortedProcesses := SortByLoad(Processes)
   prevSystemTime := systemTime
   Return SortedProcesses
}

WTSEnumProcesses() {
   DllCall("Wtsapi32\WTSEnumerateProcesses", "Ptr", 0, "UInt", 0, "UInt", 1, "PtrP", pProcessInfo, "PtrP", count)
   Processes := []
   pPtr := pProcessInfo
   Loop % count {
      Processes.Push({ PID:         NumGet(pPtr + 4, "UInt")
                     , ProcessName: StrGet(NumGet(pPtr + 8)) })
      pPtr += A_PtrSize = 4 ? 16 : 24
   }
   DllCall("Wtsapi32\WTSFreeMemory", "Ptr", pProcessInfo)
   Return Processes
}

RunAsAdmin(exitIfNotAdmin := false) {
   commandLine := DllCall("GetCommandLine", "str")
   isRestarted := !!RegExMatch(commandLine, " /restart(?!\S)")
   while !( A_IsAdmin || isRestarted ) {
      try Run, % "*RunAs " . (A_IsCompiled ? """" . A_ScriptFullPath . """ /restart"
                                           : """" . A_AhkPath . """ /restart """ . A_ScriptFullPath . """")
      catch
         break 
      ExitApp
   }
   if !A_IsAdmin {
      MsgBox, Failed to run the script as admin!
      if exitIfNotAdmin
         ExitApp
   }
}

SetPrivilege(privilege, enable := true) {
   static PROCESS_QUERY_INFORMATION := 0x400, TOKEN_ADJUST_PRIVILEGES := 0x20, SE_PRIVILEGE_ENABLED := 0x2
   
   hProc := DllCall("OpenProcess", "UInt", PROCESS_QUERY_INFORMATION, "Int", false, "UInt", DllCall("GetCurrentProcessId"), "Ptr")
   DllCall("Advapi32\OpenProcessToken", "Ptr", hProc, "UInt", TOKEN_ADJUST_PRIVILEGES, "PtrP", token)
   
   DllCall("Advapi32\LookupPrivilegeValue", "Ptr", 0, "Str", privilege, "Int64P", luid)
   VarSetCapacity(TOKEN_PRIVILEGES, 16, 0)
   NumPut(1, TOKEN_PRIVILEGES, "UInt")
   NumPut(luid, TOKEN_PRIVILEGES, 4, "Int64")
   NumPut(SE_PRIVILEGE_ENABLED, TOKEN_PRIVILEGES, 12, "UInt")
   DllCall("Advapi32\AdjustTokenPrivileges", "Ptr", token, "Int", !enable, "Ptr", &TOKEN_PRIVILEGES, "UInt", 0, "Ptr", 0, "Ptr", 0)
   res := A_LastError
   DllCall("CloseHandle", "Ptr", token)
   DllCall("CloseHandle", "Ptr", hProc)
   Return res  ; success — 0
}

GetProcessTimes(PID) {
   hProc := DllCall("OpenProcess", "UInt", PROCESS_QUERY_INFORMATION := 0x400, "int", 0, "UInt", PID, "Ptr")
   DllCall("GetProcessTimes", "Ptr", hProc, "Int64P", CreationTime, "Int64P", ExitTime, "Int64P", KernelTime, "Int64P", UserTime)
   DllCall("CloseHandle", "Ptr", hProc)
   Return KernelTime + UserTime
}

GetSystemTimes() {
   DllCall("GetSystemTimes", "Int64P", IdleTime, "Int64P", KernelTime, "Int64P", UserTime)
   Return KernelTime + UserTime
}

SortByLoad(Processes) {
   str := ""
   for k, v in Processes {
      if v.PID
         str .= (str ? "`n" : "") . v.Load . "|" . v.ProcessName . "|" . v.PID
   }
   Sort, str, N R
   SortedProcesses := []
   Loop, parse, str, `n
   {
      RegExMatch(A_LoopField, "(.*)\|(.*)\|(.+)", m)
      SortedProcesses.Push({Load: m1, ProcessName: m2, PID: m3})
   }
   Return SortedProcesses
}
Return

App:	; Создать список запущенных.
Txt = 
for Process in ComObjGet("Winmgmts:").ExecQuery("Select * From Win32_Process")
 Txt .= Process.Caption "|"
Return

F9:: 
 	If Not ОкноБезРамокДляИгр       
	{	
		BorderSize:=0
	    WinMove, ahk_exe %G1%,, -BorderSize, -BorderSize, 1920+2*BorderSize, 1080+2*BorderSize
		WinSet, Style, -0xC00000, ahk_exe %G1% ; убрать рамку
		ОкноБезРамокДляИгр := true
	}

;	If Not ОкноБезРамокДляВебки
;	{
;		WinMove Оконный проектор (Источник) - Cam,, 0, 0, 408, 308 ; перемещаем окошко в угол + ресайз
;		WinSet Style, -0x800000, Оконный проектор (Источник) - Cam ; -рамка
;		WinSet Style, -0x40000, Оконный проектор (Источник) - Cam ; -рамка
;		WinSet Style, -0x400000, Оконный проектор (Источник) - Cam ; -рамка
;		ОкноБезРамокДляВебки := true
;	}

	IfWinExist, Оконный проектор (Источник) - Cam
	{
		WinGet ExStyle, ExStyle
		if Not (ExStyle & 0x8)  ; 0x8 is WS_EX_TOPMOST. The window is always-on-top.
		{
			WinSet ExStyle, +0x20 ; чтобы клики проходили сквозь окошко
			WinSet Transparent, 255 ; прозрачность окна: 0 - максимальная, 255 - непрозрачное 
			WinSet AlwaysOnTop, On
		} else 
		 {
			WinSet ExStyle, -0x20
			WinSet Transparent, 255
			WinSet AlwaysOnTop, Off
			; переключаем режим "поверх всех" в окне игры, чтобы окошко ушло на задний план
			WinSet AlwaysOnTop, On, A
			WinSet AlwaysOnTop, Off, A
		 }
	}
Return

F12::
Run, R:\VIDEOS\РОЛИКИ НА ОБРАБОТКУ
Return