file = e:\Work\files\Counters\Count.txt
LCount =
If !FileExist(file) {
 MsgBox, 48, Error, Файл не найден. Отмена.`n`n%file%
 ExitApp
 }
FileReadLine, LCount, %file%, 1
Sleep, 500
If (LCount > 30) {
 MsgBox, 48, Error, Не запущена программа!`n`n%file%
 ExitApp
 }
  
settitlematchmode 2

Loop  {
   FileReadLine, LCount, %file%, 1
   Sleep, 6000 
   }
   until LCount = 10
    Sleep, 150
	ControlSend, ahk_parent, {f6}, OBS ahk_exe obs64.exe
	Sleep, 10000
	ControlSend, ahk_parent, {f6}, OBS ahk_exe obs64.exe

Loop  {
   FileReadLine, LCount, %file%, 1
   Sleep, 6000 
   }
   until LCount = 20
    Sleep, 150
    ControlSend, ahk_parent, {f7}, OBS ahk_exe obs64.exe
	Sleep, 12000
	ControlSend, ahk_parent, {f7}, OBS ahk_exe obs64.exe
   
Loop  {
   FileReadLine, LCount, %file%, 1
   Sleep, 6000 
   }
   until LCount = 30
    Sleep, 150
    ControlSend, ahk_parent, {f8}, OBS ahk_exe obs64.exe
	Sleep, 20000
	ControlSend, ahk_parent, {f8}, OBS ahk_exe obs64.exe
ExitApp

f6::
settitlematchmode 2
ControlSend, ahk_parent, {f12}, OBS ahk_exe obs64.exe

;Previously
global OBSHWND := GetOBS()

GetOBS() {
	ntmm := A_TitleMatchMode
	SetTitleMatchMode, Regex
	;use the main window title to get the ID of the main window, because that's were we want the hotkeys to go
	OBSHWND := WinExist("OBS .*[0-9]{2}\.[0-9]+\.[0-9]+ ahk_exe obs64.exe")
	SetTitleMatchMode, %ntmm% ;avoids complicating other title matches
	Return OBSHWND
}


SendKeyOBS(Key) {
	tDelay := 250 ;ms
	If OBSHWND { 
		If (WinExist("ahk_id " .  OBSHWND)) { ;set's last found window 
			SetKeyDelay, 50,80 ;I experimented with various values here
			;send key to last found window
			ControlSend,ahk_parent,%key%
			ErrLvl := ErrorLevel
			If ErrLvl
				;if you aren't using dbgview for script debugging consider it -- it is extremely useful (and free)
				OutputDebug % Format("[{}][{}] ErrLvl: {}",sScript,A_ThisFunc . "." . A_LineNumber, ErrLvl) . " "
			Sleep %tDelay% ;can't remember why this is here
		}
		OutputDebug % Format("[{}][{}] Key: {}; Err: {}; OBSHWND: {}",sScript,A_ThisFunc . "." . A_LineNumber,Key,ErrLvl,OBSHWND) . " "
	}
	Return ;no value returned
}

Loop  {
   FileRead, LCount, e:\Work\\files\Counters\Count.txt
   Sleep, 6000 
   }
   until LCount = 10
	Send ^!{vk47}
	Sleep, 10000
	Send ^!{vk47}

Loop  {
   FileRead, LCount, e:\Work\files\Counters\Count.txt
   Sleep, 6000 
   }
   until LCount = 20
	Send ^!{vk46}
	Sleep, 10000
	Send ^!{vk46}
   
Loop  {
   FileRead, LCount, e:\Work\files\Counters\Count.txt
   Sleep, 6000 
   }
   until LCount = 30
	Send ^!{vk54}
	Sleep, 20000
	Send ^!{vk54}

F6::ControlSend,, ^!{vk54}, ahk_class Qt5QWindowIcon