Ответ участнику ice913

;-----Инициализация
; Скрипт не выгружается
#Persistent
; Запрет повторного запуска
#SingleInstance
OnExit, lEndSacred2

  keyAtt := "F6"
; chkExt := 1
; Тут запустить таймер проверки игры
  Hotkey, %keyAtt%,         lEmulAtack,              On
  fnTray()
  fEmulAtack  := False
  vDelayBase  := 25
  vDelayTwo   := 35
Return

lEndSacred2:
  ExitApp

#UseHook, On
#If WinActive("Sacred")
SetTitleMatchMode, 2
lEmulAtack:
  if (fEmulAtack)
      {
        Return ; Блокировка повторного входа
      }
    Else
      {
        fEmulAtack := True
      }
  Sleep %vDelayTwo%
  Send, {LCtrl Down}{LButton Down}
  Sleep %vDelayBase% 
    while (GetKeyState(keyAtt, "P"))
    {
      Sleep %vDelayBase%
        }
  Sleep %vDelayBase%
  Send, {LCtrl Up}{LButton Up}
  Sleep %vDelayTwo%
  fEmulAtack := False
Return
#UseHook, Off

#IfWinActive

fnTray()
{
global ;Установки трея для скрипта
    Menu1  := "Справка"
    Menu2  := "Выход"
    Menu, tray, NoStandard  ; меню в трее будет не стандартным - своим
      
      ;Добавляем пункт меню по ПКМ
      Menu, tray, add, %Menu1%, AboutScript
      Menu, tray, add  ;Разделитель  
      Menu, tray, add, %Menu2%, lEndSacred2     
      
      ; Задаём свою выноску "балон"
      Menu, tray, tip, ——Обработка клавиш——`n        Для Sacred 2 Gold`n`nАвтор: Indomito©`n 
      ;: `n  - приложений `n  - игр `n  - и т.д. `n `n
;      Menu, tray, default, %Menu1%  ; Этот пункт меню по умолчанию двойной щелчёк ЛКМ по иконке в трее для его вызова
;      Menu, Tray, Click, 1          ; Переназначаем двойной на одиночный ЛКМ
Return
}

AboutScript:
  vMsgOptionsOK   :=0+4096+64
  txtHelp := "`n1. Клавиша F6 - сочетание Ctrl+ЛКМ с автоповтором."
  msgbox, % vMsgOptionsOK
          ,Sacred 2 Keys to AHK
          ,`n`n`nПерехват и виртулизация нажатий клавиш`n %txtHelp%
          ,25
Return

;-----Инициализация
; Скрипт не выгружается
#Persistent
; Запрет повторного запуска
#SingleInstance

 hHookKeybd := DllCall("SetWindowsHookEx"
  , Int, WH_KEYBOARD_LL := 13
  , Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
  , Ptr, DllCall("GetModuleHandle", UInt, 0, "Ptr")
  , UInt, 0, "Ptr")
Return

^#ESC::
  ToolTip
ExitApp  

LowLevelKeyboardProc(nCode, wParam, lParam)
    {
      Critical
      SetFormat, Integer, H
      ToolTip, % wParam . "| vkCode: " . NumGet(lParam+0, 0, "UInt") . " scCode: " . NumGet(lParam+0, 4, "UInt")
                        . " Extended: " . NumGet(lParam+0, 8, "UInt") & 1 . " Time: " . NumGet(lParam+0, 12, "UInt")
      Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
    }
return