Серый форум — Открытие окна поверх игры, оверлей

Re: Открытие окна поверх игры, оверлей

2021-01-20T13:21:07Z

__Михаил__
Я с предоставленным кодом то еще не до конца разобрался, какой мне отсев

Re: Открытие окна поверх игры, оверлей

2021-01-19T16:46:30Z

Michael

Поиск на сайтах? Ну это явно не для новичка.
А вот отсев по остановке, думаю очень даже полезно прикрутить, иначе так и будут всякие системные процессы появляться постоянно - а это не дело.

Re: Открытие окна поверх игры, оверлей

2021-01-19T04:05:11Z

__Михаил__
Можно добавить, но, думаю, это уже лишнее, скрипт работает так, как нужно, затрачивая минимум времени и добавляя удобство.
Сейчас хочу начать еще один небольшой проектик "Поиск на Ютубе / Хром", но, видимо, мне тут уже не рады

Re: Открытие окна поверх игры, оверлей

2021-01-19T00:26:48Z

serzh82saratov
В текущем состоянии 'одну программу' - я это и имел в виду.

Michael
Можно добавить список исключений, но легче будет переделать на постоянный отсев пока не нажата клавиша 'Стоп'.

Re: Открытие окна поверх игры, оверлей

2021-01-18T16:26:57Z

stealzy
Благодарю! Теперь всё запускается, остальные команды работают также на УРА! Еще и вебку отразил, как нужно, кайф

Итоговый скрипт (может кому-то будет полезно):

#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Cam OverLay

GroupAdd, AppGroup, % Name


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


for Process in ComObjGet("Winmgmts:").ExecQuery("Select * From Win32_Process")
 Txt .= Process.Caption "|"

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\
Return

#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


Подтвердить:
Gui, Submit, NoHide
;ToolTip, Пункт: %G1% ; отображение выбранного пункта
Return


Reverse:
Reverse := !Reverse
GoSub, App

If Reverse
 Sort, Txt, R D|

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


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


NewP:	; Отсев новых программ.
GoSub, App
Txt_New = 
D = |
Loop, Parse, Txt, %D%
{
 If !InStr(D Txt2 D, D A_LoopField D)
  Txt_New := A_LoopField "|"
}
If Txt_New
{
 Txt := Txt_New
 SetTimer, NewP, Off		; Выключить тестер.
 GuiControl,, % hListbox, |	; Очистить список.
 GuiControl,, % hListbox, % Txt_New	; Вставить из переменной.
 GuiControl, Enable, % hBut	; Разблок кнопки.
 GuiControl, Enable, % hSear	; Разблок поиска.
}
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 Оконный проектор (Источник) - Вебка,, 0, 0, 408, 308 ; перемещаем окошко в угол + ресайз
		WinSet Style, -0x800000, Оконный проектор (Источник) - Вебка ; -рамка
		WinSet Style, -0x40000, Оконный проектор (Источник) - Вебка ; -рамка
		WinSet Style, -0x400000, Оконный проектор (Источник) - Вебка ; -рамка
;		ОкноБезРамокДляВебки := true
	}

	IfWinExist ahk_class Qt5152QWindowIcon ahk_exe obs64.exe
	{
		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

Re: Открытие окна поверх игры, оверлей

2021-01-18T13:48:39Z

Michael пишет:

не поддерживаем запуск заданий из-за пределов текущего рабочего каталога

У команды Run есть параметр WorkingDir.
Не знаю почему, но по умолчанию используется директория скрипта, а не запускаемой программы.

Re: Открытие окна поверх игры, оверлей

2021-01-17T20:59:15Z

__Михаил__ пишет:

Вот так находит, только 1 программу.

Не одну, а последнюю не совпавшую.

Re: Открытие окна поверх игры, оверлей

2021-01-17T20:56:38Z

serzh82saratov
Благодарю!

__Михаил__
Большое спасибо! Собственно, все работает, запускаемое окно с игрой он находит, но есть один нюанс, иногда нужно дважды/трижды выполнять поиск, т.к. иногда вместо игрового процесса отображается audiodg.exe (не понимаю, почему)
Начал доработку ГУИ и скрипта под свои нужды, возникла еще одна проблемка
Сделал кнопку, для запуска ОБСки, но она выдает ошибку при запуске. С кнопкой всё отлично, и другие ЛЮБЫЕ программы стартуют прекрасно, кроме неё. С правами админа - тоже самое.
Нарыл похожую проблему у человека https://github.com/obsproject/obs-studio/issues/2966

Это ожидаемо, мы не поддерживаем запуск заданий из-за пределов текущего рабочего каталога

Можно как-то это дело обойти?
Текущий полный скрипт с изменениями: (если кому интересно)

#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Cam OverLay

GroupAdd, AppGroup, % Name


;Gui +ToolWindow
Gui Add, Button, x125 y50 w102 h23, Подтвердить
Gui Add, ListBox, vG1 gПодтвердить hwndhListbox x25 y151 w196 h160
Gui Add, Button, gNewApp hwndhBut x125 y19 w102 h23, Отследить игру
Gui Add, Button, gGames x15 y19 w102 h23, Папка GAMES
Gui Add, Button, gOBS x15 y50 w102 h23, Запустить OBS
Gui Add, Button, gReverse x125 y104 w102 h23, Реверс
Gui Add, Text, x18 y90 w210 h2 +0x10
Gui Add, GroupBox, x18 y134 w211 h188, Выбрать процесс
Gui Add, Edit, hwndhSear gGet vPoisk x17 y105 w100 h21, Поиск процесса...
;Gui Add, Edit, gGet vPoisk x8 y16 w200 h21, Поиск...	; Ищет сразу, если не нужно убрать 'gGet'.
;Gui Add, ListBox, vG1 gOk hwndhListbox x8 y40 w200 h160
;Gui Add, Button, x8 y208 w80 h23, OK


for Process in ComObjGet("Winmgmts:").ExecQuery("Select * From Win32_Process")
 Txt .= Process.Caption "|"

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

Gui Show, w246 h340, % Name
Return

GuiEscape:
GuiClose:
ExitApp

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

OBS:
Run, C:\Program Files\obs-studio\bin\64bit\obs64.exe

#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


Подтвердить:
Gui, Submit, NoHide
;ToolTip, Пункт: %G1% ; отображение выбранного пункта
Return


Reverse:
Reverse := !Reverse
GoSub, App

If Reverse
 Sort, Txt, R D|

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


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


NewP:	; Отсев новых программ.
GoSub, App
Txt_New = 
D = |
Loop, Parse, Txt, %D%
{
 If !InStr(D Txt2 D, D A_LoopField D)
  Txt_New := A_LoopField "|"
}
If Txt_New
{
 Txt := Txt_New
 SetTimer, NewP, Off		; Выключить тестер.
 GuiControl,, % hListbox, |	; Очистить список.
 GuiControl,, % hListbox, % Txt_New	; Вставить из переменной.
 GuiControl, Enable, % hBut	; Разблок кнопки.
 GuiControl, Enable, % hSear	; Разблок поиска.
}
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 Оконный проектор (Источник) - Вебка,, 1510, 0, 410, 310 ; перемещаем окошко в угол + ресайз
		WinSet Style, -0x800000, Оконный проектор (Источник) - Вебка ; -рамка
		WinSet Style, -0x40000, Оконный проектор (Источник) - Вебка ; -рамка
		WinSet Style, -0x400000, Оконный проектор (Источник) - Вебка ; -рамка
;		ОкноБезРамокДляВебки := true
	}

	IfWinExist ahk_class Qt5152QWindowIcon ahk_exe obs64.exe
	{
		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

Re: Открытие окна поверх игры, оверлей

2021-01-17T16:24:52Z

Michael

Вот так находит, только 1 программу.

#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Выбор процесса...

GroupAdd, AppGroup, % Name

; Ищет сразу, если не нужно убрать 'gGet'. Enter - для применения поиска.
Gui Add, Edit, hwndhSear gGet vPoisk x8 y16 w200 h21, Поиск...
Gui Add, ListBox, vG1 hwndhListbox x8 y40 w200 h160
Gui Add, Button, gReverse x8 y208 w80 h23, Реверс
Gui Add, Button, gNewApp hwndhBut x96 y208 w100 h23, Новая прога

for Process in ComObjGet("Winmgmts:").ExecQuery("Select * From Win32_Process")
 Txt .= Process.Caption "|"

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

Gui Show, w216 h236, % Name
Return

GuiEscape:
GuiClose:
ExitApp


#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


Ok:
Gui, Submit, NoHide
ToolTip, Пункт: %G1%
Return


Reverse:
Reverse := !Reverse
GoSub, App

If Reverse
 Sort, Txt, R D|

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


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


NewP:	; Отсев новых программ.
GoSub, App
Txt_New = 
D = |
Loop, Parse, Txt, %D%
{
 If !InStr(D Txt2 D, D A_LoopField D)
  Txt_New := A_LoopField "|"
}
If Txt_New
{
 Txt := Txt_New
 SetTimer, NewP, Off		; Выключить тестер.
 GuiControl,, % hListbox, |	; Очистить список.
 GuiControl,, % hListbox, % Txt_New	; Вставить из переменной.
 GuiControl, Enable, % hBut	; Разблок кнопки.
 GuiControl, Enable, % hSear	; Разблок поиска.
}
Return


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

Re: Открытие окна поверх игры, оверлей

2021-01-17T15:34:16Z


old = smss.exe|csrss.exe|wininit.exe|services.exe|lsass.exe|svchost.exe|WUDFHost.exe|fontdrvhost.exe
new = new 2.exe|smss.exe|csrss.exe|wininit.exe|new 1.exe|services.exe
 
D = |

Loop, Parse, new, %D%
	If !InStr(D old D, D A_LoopField D)
		MsgBox % A_LoopField

Re: Открытие окна поверх игры, оверлей

2021-01-17T13:49:05Z

__Михаил__
Реверс это конечно хорошо, но его сортировка меня убила

Осталось сделать сравнение старого списка с новым, когда произойдёт отсев - будет нужная, новая программа.

Осталось только понять, где вообще смотреть примеры этого "сравнения" и как сделать отсев. Единственное что нарыл пока-что - http://forum.script-coding.com/viewtopic.php?id=14701. Но, не понимаю, это к диспетчеру задач и сравнению процессов можно ли как-то прикрутить вообще...

UPDATE:
Нашел вот такой вот скрипт от serzh82saratov: (вроде мне что-то типо этого надо, но не могу в нем разобраться и понять как туда засунуть список процессов

D := A_Tab

Data_base = Все	что	удалось	сделать	на	текущий	момент:	в	приведенном	ниже	коде	идет	построчное	сравнение	списка	из	файла
Ordinar = Такого там нет	удалось	сравнение	файла

Loop, Parse, Ordinar, %D%
	MsgBox % "Строка: """ A_LoopField """`n`n" (InStr(D Data_base D, D A_LoopField D) ? "Есть" : "Нет") " - в Data_base"

Re: Открытие окна поверх игры, оверлей

2021-01-17T12:42:56Z

Michael

Если нужен реверс списка. Правда при этом идёт сортировка.

#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Выбор процесса...

GroupAdd, AppGroup, % Name

; Ищет сразу, если не нужно убрать 'gGet'. Enter - для применения поиска.
Gui Add, Edit, gGet vPoisk x8 y16 w200 h21, Поиск...
Gui Add, ListBox, vG1 hwndhListbox x8 y40 w200 h160
Gui Add, Button, gReverse x8 y208 w80 h23, Реверс

for Process in ComObjGet("Winmgmts:").ExecQuery("Select * From Win32_Process")
 Txt .= Process.Caption "|"

GuiControl,, % hListbox, % Txt	; Вставить из переменной.
Gui Show, w216 h236, % Name
Return

GuiEscape:
GuiClose:
ExitApp


#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


Ok:
Gui, Submit, NoHide
Return

Reverse:
Reverse := !Reverse
Txt = 
for Process in ComObjGet("Winmgmts:").ExecQuery("Select * From Win32_Process")
 Txt .= Process.Caption "|"

If Reverse
 Sort, Txt, R D|

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

Re: Открытие окна поверх игры, оверлей

2021-01-17T09:20:16Z

Michael

Думаю придётся писать свой код. Как получить список всех запущенных в этой теме уже есть. Осталось сделать сравнение старого списка с новым, когда произойдёт отсев - будет нужная, новая программа.

Re: Открытие окна поверх игры, оверлей

2021-01-16T23:47:27Z

__Михаил__
Ну, по первых интерфейс с кнопками мне как то больше по душе, по ряду причин, а во вторых, люблю когда в 1 программке реализовано все необходимое для конкретной задачи, ибо когда я начинаю задачи свои выполнять - времени тупить и совершать лишние телодвижения нету, нажал пару кнопок и поехали, как говорится
Прошу помощи реализовать это, хотя бы дайте понять что и где читать, может сам разберусь...

ГУИ 1 кнопка: Запустить, жмем ее, начался процесс отслеживания файла, который я запущу первым после нажатия данной кнопки, и ЕХЕшник данного приложения записывается в ту же переменную

Re: Открытие окна поверх игры, оверлей

2021-01-16T23:26:48Z

Michael

Всё описанное возможно, только зачем?
Нажать одну клавишу, которая соберёт инфу о текущем окне и выполнит какое-либо действие - куда проще на мой взгляд. Например Win, она мало для чего пригодна, если уже занята, то можно повесить сочетание с ней - Win+1 и т.д.