;DynVars-------------------------------
WinGet, TTRHANDLE, List, ahk_exe TTREngine.exe
WinGet, TTRPID1, PID, ahk_id %TTRHANDLE1%
WinGet, TTRPID2, PID, ahk_id %TTRHANDLE2%
WinGet, TTRPID3, PID, ahk_id %TTRHANDLE3%
WinGet, TTRPID4, PID, ahk_id %TTRHANDLE4%
WinGet, TTRPID5, PID, ahk_id %TTRHANDLE5%
WinGet, TTRPID6, PID, ahk_id %TTRHANDLE6%

;Main Script-------------------------------
$RButton::
MouseClick, Left,,, 1, 0,
Process_Suspend(TTRPID1)
Process_Suspend(TTRPID2)
Process_Suspend(TTRPID3)
Process_Suspend(TTRPID4)
Process_Suspend(TTRPID5)
Process_Suspend(TTRPID6)
Sleep, 3000
Process_Resume(TTRPID1)
Process_Resume(TTRPID2)
Process_Resume(TTRPID3)
Process_Resume(TTRPID4)
Process_Resume(TTRPID5)
Process_Resume(TTRPID6)
return
^Q::
ExitApp
return


;Functionality--------------------
Process_Suspend(PID_or_Name){

    PID := PID_or_Name
    h:=DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", pid)

    If !h

        Return -1

    DllCall("ntdll.dll\NtSuspendProcess", "Int", h)

    DllCall("CloseHandle", "Int", h)

}



Process_Resume(PID_or_Name){

    PID := (InStr(PID_or_Name,".")) ? ProcExist(PID_or_Name) : PID_or_Name

    h:=DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", pid)

    If !h

        Return -1

    DllCall("ntdll.dll\NtResumeProcess", "Int", h)

    DllCall("CloseHandle", "Int", h)

}



ProcExist(PID_or_Name=""){

    Process, Exist, % (PID_or_Name="") ? DllCall("GetCurrentProcessID") : PID_or_Name

    Return Errorlevel

}