AHK: Скрипт для зацикливания клавиш

#NoEnv
#SingleInstance Force
#NoTrayIcon

FileInstall, D:\unlock.png, %A_Temp%\Биндик\unlock.png 
FileInstall, D:\lock.png, %A_Temp%\Биндик\lock.png ;  Вшиваем картинки в exe

#include %A_ScriptDir%/Hotkey.ahk ;  Подключаем библиотеку Hotkey

SaveFile = %A_ScriptDir%/info.ini 
Hotkey_IniPath(SaveFile)
Hotkey_IniSection("Keys")
Hotkey_Arr("KillFocus", true) ;  см. библиотеку Hotkey
GoSub Restore

{ ;  Считывание данных из ini файла
IniRead, MyHotkey1, %SaveFile%, Keys, MyHotkey1
b1 := WhatKey(MyHotkey1)
IniRead, MyHotkey2, %SaveFile%, Keys, MyHotkey2
b2 := WhatKey(MyHotkey2)
IniRead, BToggle, %SaveFile%, Keys, BToggle
IniRead, BStop, %SaveFile%, Keys, BStop
IniRead, BExit, %SaveFile%, Keys, BExit
IniRead, Ind, %SaveFile%, Settings, Ind
IniRead, Num1, %SaveFile%, Time, Num1
IniRead, Delay1, %SaveFile%, Time, Delay1
IniRead, Num2, %SaveFile%, Time, Num2
IniRead, Delay2, %SaveFile%, Time, Delay2
IniRead, NameWin, %SaveFile%, Settings, NameWin
If NameWin is space
	NameWin := "Во всех окнах"
IniRead, size, %SaveFile%, Settings, IndSize
IfNotExist, %A_Temp%\Биндик
	FileCreateDir, %A_Temp%\Биндик
}

{ ;  Main
Gui, +hwndhGui
Menu, HelpMenu, Add, Настройки, Settings
Menu, HelpMenu, Add, Связь с разработчиком, Link
Menu, HelpMenu, Add, О программе, MenuHandler
Menu, MyMenuBar, Add, Помощь, :HelpMenu
Gui, Menu, MyMenuBar
Gui, font, cRed s8
Gui, Add, Text, Center x0 y-2 h15 w220 hwndWindowCheck,
Gui, font, cRed s15
if NameWin != Во всех окнах
	GuiControl, Text, %WindowCheck%, Установленно определённое окно
Gui, Add, Text, Center x10 y10 w210 h25 vSt, Скрипт остановлен
Gui, Add, Picture, x220 y0 w22 h39 vState1 gLock, %A_Temp%\Биндик\unlock.png
Gui, Add, Picture, x220 y0 w22 h39 vState0 gLock, %A_Temp%\Биндик\lock.png
Gui, font
Gui, Add, GroupBox, x10 y40 w240 h63, #1
Gui, Add, Text, xp+10 yp+15, Горячая клавиша:
Hotkey_Add("Center x140 yp-3 w100 h15 -ReadOnly", "MyHotkey1", "KMLDRJNG1", Hotkey_Read("MyHotkey1"), "Save")
Gui, Add, Text, x20 yp+27, Задержка                 :
Gui, Add, DropDownList, xp+55 yp-3 w45 vDelay1 gDropDownList1 AltSubmit Choose%Delay1%, мс.|сек.|мин.
Gui, Add, Edit, Number Center x140 yp+1 w100 h20 vNum1 hwndhEdit1 gEdit1,
GuiControl, , Num1, %Num1%
Gui, Add, GroupBox, x10 yp+30 w240 h63, #2
Gui, Add, Text, x20 yp+15, Горячая клавиша:
Hotkey_Add("Center x140 yp-3 w100 h15 -ReadOnly", "MyHotkey2", "KMLDRJNG1", Hotkey_Read("MyHotkey2"), "Save")
Gui, Add, Text, x20 yp+27, Задержка                 :
Gui, Add, DropDownList, xp+55 yp-3 w45 vDelay2 gDropDownList2 AltSubmit Choose%Delay2%, мс.|сек.|мин.
Gui, Add, Edit, Center number x140 yp+1 w100 h20 vNum2 hwndhEdit2 gEdit2
GuiControl, , Num2, %Num2%
Gui, font, cBlack
ControlFocus, , % "ahk_id" Hotkey_Arr("Focus")[hGui] 
T := "off"
l := "unlock"
GoSub Lock
Gui, Show, Restore  w260 h175, Биндик

GoSub Ind
WinActivate, Биндик

SwitchHotKeys("on") ;  Включаем Хоткеи

}return

Restore: ;  Проверяет есть ли ini файл в дериктории скрипта. Если его нет, оно его создаёт.
{
	IfNotExist, %SaveFile%
	{
		IniWrite, %A_Space%, %SaveFile%, Keys, MyHotkey1
		IniWrite, %A_Space%, %SaveFile%, Keys, MyHotkey2
		IniWrite, vk71, %SaveFile%, Keys, BToggle
		IniWrite, vk72, %SaveFile%, Keys, BStop
		IniWrite, Esc, %SaveFile%, Keys, BExit
		IniWrite, 0, %SaveFile%, Time, Num1
		IniWrite, 2, %SaveFile%, Time, Delay1
		IniWrite, 0, %SaveFile%, Time, Num2
		IniWrite, 2, %SaveFile%, Time, Delay2
		IniWrite, 1, %SaveFile%, Settings, Ind
		IniWrite, %A_Space%, %SaveFile%, Settings, NameWin
		IniWrite, 10, %SaveFile%, Settings, IndSize
	}
}return

DropDownList1:
{
	GuiControlGet, Delay1, , Delay1
	IniWrite, %Delay1%, %SaveFile%, Time, Delay1
	goto Edit1
}return


DropDownList2:
{
	GuiControlGet, Delay2, , Delay2
	IniWrite, %Delay2%, %SaveFile%, Time, Delay2
	goto Edit2
}return


Edit1:
{
	GuiControlGet, Num1, , Num1
	if (Num1 = "" || 0)
		SendMessage, EM_SETCUEBANNER := 0x1501, 0, "0", , ahk_id %hEdit1%
	if Delay1 = 1
		Rezz1 := Num1
	if Delay1 = 2
		Rezz1:= Num1*1000
	if Delay1 = 3
		Rezz1 := Num1*60000
	IniWrite, %Num1%, %SaveFile%, Time, Num1
}return

Edit2:
{
	GuiControlGet, Num2, , Num2
	if Num2 is space 
		SendMessage, EM_SETCUEBANNER := 0x1501, 0, "0", , ahk_id %hEdit2%
	if Delay2 = 1
		Rezz2 := Num2
	if Delay2 = 2
		Rezz2:= Num1*1000
	if Delay2 = 3
		Rezz2 := Num2*60000
	IniWrite, %Num2%, %SaveFile%, Time, Num2
}return

Save(Name) { ;  см. библиотеку Hotkey 
	HotKey := Hotkey_Write(Name)
}

Ind: ;  Окно индикатора скрипта 
{
	Gui, Settings: Submit, NoHide
	IniWrite, %Ind%, %SaveFile%, Settings, Ind
	IniWrite, %size%, %SaveFile%, Settings, IndSize
	If (Ind = 1){
		Gui, Indicator: New, -Caption +ToolWindow +AlwaysOnTop +Border
		If (T = "off")
			Gui,Indicator: Color, Red
		If (T = "on")
			Gui, Indicator: Color, Blue
		Gui, Indicator: Show, Restore x0 y0 w%size% h%size%, Биндик - Индикатор
		GuiControl, Settings: Enable, size
		GuiControl, Settings: Enable, InfoIndSize
		GuiControl, Settings: Enable, Размер индикатора:
		Guicontrol, Settings:, InfoIndSize, %size%
		WinActivate, Биндик - Настройки
	}
	else{
		Gui, Indicator: Destroy
		GuiControl, Settings: Disabled, size
		GuiControl, Settings: Disabled, InfoIndSize
		GuiControl, Settings: Disabled, Размер индикатора:
	}
}return

Lock: ; Блокировка ввода
{
	if (T = "on") ; Остановить скрипт при разблокировке замочка
		gosub, Stop
	if (l = "lock"){ ; Если заблокировано
		GuiControl, Hide, State0
		for name in Hotkey_Arr("AllHotkeys") 
			Hotkey_Disable(Name, 0) 
		GuiControl, -Disabled, Num1
		if Num1 = 0
			GuiControl, , Num1, 
		GuiControl, -Disabled, Num2
		if Num2 = 0
			GuiControl, , Num2, 
		GuiControl, -Disabled, Delay1
		GuiControl, -Disabled, Delay2
		l := "unlock"
	}else if (l = "unlock"){ ; Если разблокировано
	   GuiControl, Show, State0
		for name in Hotkey_Arr("AllHotkeys") 
			Hotkey_Disable(Name) 
		GuiControl, +Disabled, Num1
		if Num1 is space
			GuiControl, , Num1, 0
		GuiControl, +Disabled, Num2
		if Num2 is space
			GuiControl, , Num2, 0
		GuiControl, +Disabled, Delay1
		GuiControl, +Disabled, Delay2
	    l := "lock"
	}
}return

Settings: ; Окно настроек
{
	if (T = "on") ;  Останавлвиваем скрипт при открытии окна настроек
		GoSub, Stop
	SwitchHotKeys("off") ;  Отключаем хоткеи
	Gui, Settings: New
	Gui, Settings: Add, Button, x30 w140 gHelpRestore, Перезаписать ini файл
	Gui, Settings: Add, GroupBox, w180 h90 x10 yp+25, Индикатор:
	Gui, Settings: Add, Checkbox, x20 yp+20 Checked%Ind% vInd gInd, Использовать индикатор?
	Gui, Settings: Add, Text, , Размер индикатора:
	Gui, Settings: Add, Text, w20 xp yp+20 vInfoIndSize, %size%
	Gui, Settings: Add, Slider, altsubmit yp-5 xp+15 w150 gInd vsize TickInterval3 ToolTip range5-20, %size%
	If (Ind = 0){
		GuiControl, Settings: Disabled, size
		GuiControl, Settings: Disabled, InfoIndSize
		GuiControl, Settings: Disabled, Размер индикатора:	
	}
	
	Gui, Settings: Add, Text, x200 y10 h110 0x11
	
	Gui, Settings: Add, GroupBox, w180 h100 y15 x210, Настройка клавиш:
	Gui, Settings: Add, Text, x220 yp+20, Старт:
	Hotkey_Add("Center x280 yp-3 w100 h20 -ReadOnly", "BToggle", "KMLDRJNG1", Hotkey_Read("BToggle"), "Save")
	Gui, Settings: Add, Text, x220 yp+30, Стоп:
	Hotkey_Add("Center x280 yp-3 w100 h15 -ReadOnly", "BStop", "KMLDRJNG1", Hotkey_Read("BStop"), "Save")
	Gui, Settings: Add, Text, x220 yp+23 r2 w60, Закрыть программу:
	Hotkey_Add("Center x280 yp+5 w100 h15 -ReadOnly", "BExit", "KMLDRJNG1", Hotkey_Read("BExit"), "Save")
	
	
	
	Gui, Settings: Add, GroupBox, w380 h215 yp+40 x10, Работает в окне:
	Gui, Settings: Add, Edit, ReadOnly r1 w220 xp+10 yp+17 vNameWin, %NameWin%
	Gui, Settings: Add, Button, gClear xp+230 yp-1, Очистить
	Gui, Settings: Add, Button, gGetInfoAboutWindows xp+70 yp, Обновить
	Gui, Settings: Add, ListView, x20 yp+27 w360 h160 gWindowsListView -Multi, Окна|Процесс
	GetInfoAboutWindows()
	
	Gui, Settings: Show, Restore w400 h350, Биндик - Настройки
	Gui, %hGui%: +Disabled 
}return

Clear: ; Очистка переменной с окном
{
	MsgBox, 4, Внимание!
	, Скрипт будет работать в любом активном окне`nПродолжить?
	IfMsgBox Yes
	{
		IniWrite, %A_Space%, %SaveFile%, Settings, NameWin
		NameWin := "Во всех окнах"
		GuiControl, , NameWin, %NameWin%
		GuiControl, Text, %WindowCheck%,
	}
}return

WindowsListView:
{
	if A_GuiEvent = DoubleClick
	{
		LV_GetText(RowText, A_EventInfo)
		MsgBox, 4, Внимание!
		, Скрипт будет работать только в окне "%RowText%"`nПродолжить?
		IfMsgBox Yes
		{
			NameWin := RowText
			IniWrite, %NameWin%, %SaveFile%, Settings, NameWin
			GuiControl, , NameWin, %NameWin%
			GuiControl, , %WindowCheck%, Установленно определённое окно
		}
	}
}return

GetInfoAboutWindows(){
	LV_Delete()
	WinGet, Windows, List 
	Loop, % Windows
	{
		f := Windows%A_Index%
		WinGetTitle, title, ahk_id %f%
		WinGet, proc, ProcessName, ahk_id %f%
		if title <> Биндик - Настройки
			if title <> Биндик
				if title <> Биндик - Индикатор
					if title <> Program Manager
						if title <>
							LV_Add("", title, proc) ;  Оставим пока так
	}
	LV_ModifyCol()
}return

Link: ;  Связь с разработчиком
	Run, http://forum.script-coding.com/viewtopic.php?pid=123303
return

MenuHandler: ;  О программе
{
	MsgBox, , О программе,
(
Спасибо за помощь в разработке форуму forum.script-coding.com`nОтдельное спасибо пользователям:
serzh82saratov
stealzy
teadrinker
---------------------------------------------------------------------------------
Скрипт способен зациклить клавишу(и) или сочетания клавиш в активном окне.
Чтобы начать работу:
1)Снимите блокировку ввода, нажав на замочек;
2)В поле "Горячая клавиша" введите клавишу(и) для зацикливания;
(Левая кнопка мыши, для определения необходимо: зажать правую кнопку - зажать левую кнопку - отпустить правую кнопку или удерживать левую кнопку и щёлкнуть правой)
Двойной клик по строке ввода клавиш сбрасывает определённые в нём данные.)
3)В поле "Задержка" выберете в выпадающем списке выберете единицу времени, а в поле ввода - количество времени, через которое будет нажиматься клавиша.
Старт: F2.
Стоп(Сброс): F3 (Таймер скрипта будет запускаться заново).
Закрыть программу: Esc.
---------------------------------------------------------------------------------
Версия программы - v1.8
)
}return

HelpRestore: ;  MsgBox перезаписи ini файла
{
MsgBox, 4, Внимание!
, Это действие перезапишет файл Info.ini!`nВсе ваши настройки будут сброшены!`nВы хотите продолжить?
IfMsgBox Yes
{
	Filedelete, %SaveFile%
	GoSub Restore
	Reload
}
}return

;T = on работает
;T = off остановлен

Stop:
{
	T := "off"
	SetTimer, Knopka1, off
	SetTimer, Knopka2, off
	Gui, font, cRed s15
	GuiControl, Font, St
	Guicontrol, , St, Скрипт остановлен
	Gui, Indicator: Color, Red
}return

Start:
{	
	if (l = "unlock") ;  Если разблокировано
		Gosub, lock
	T := "on"
		
	Gui, font, cBlue s15
	Guicontrol, , St, Скрипт работает
	GuiControl, Font, St
	Gui, Indicator: Color, Blue
		
	IniRead, MyHotkey1, %SaveFile%, Keys, MyHotkey1
	b1 := WhatKey(Myhotkey1)
	IniRead, MyHotkey2, %SaveFile%, Keys, MyHotkey2
	b2 := WhatKey(Myhotkey2)
	SetTimer, Loop, -1
	gosub, Knopka1
	gosub, Knopka2 ;  Чтобы при нажатии кнопки %Start% первый символ печатался сразу,а не через прошествие таймера
	Loop:
	{
		SetTimer, Knopka1, %Rezz1%
		SetTimer, Knopka2, %Rezz2%
		return
	}
}return

Knopka1:
{
	If NameWin = Во всех окнах
	{
		IfWinNotActive, Биндик
			SendInput, %b1%
	}else
		IfWinActive, %NameWin%
			SendInput, %b1%
}return

Knopka2:
{
	If NameWin = Во всех окнах
	{
		IfWinNotActive, Биндик
			SendInput, %b2%
	}else
		IfWinActive, % NameWin
			SendInput, %b2%
}return

WhatKey(Name){
	a := "{1 DownTemp}{2 DownTemp}{3 DownTemp}{4 DownTemp}{5 DownTemp}{6 DownTemp}{7 DownTemp}{8 DownTemp}{0}{8 Up}{7 Up}{6 Up}{5 Up}{4 Up}{3 Up}{2 Up}{1 Up}"
	If Instr(Name, "<^")
		StringReplace, a, a, 1, LCtrl, all
	If Instr(Name, ">^")
		StringReplace, a, a, 2, RCtrl, all
	If Instr(Name, "<+")
		StringReplace, a, a, 3, LShift, all
	If Instr(Name, ">+")
		StringReplace, a, a, 4, RShift, all
	If Instr(Name, "<!")
		StringReplace, a, a, 5, LAlt, all
	If Instr(Name, ">!")
		StringReplace, a, a, 6, RAlt, all
	If Instr(Name, "<#")
		StringReplace, a, a, 7, LWin, all
	If Instr(Name, ">#")
		StringReplace, a, a, 8, RWin, all
	loop, 16
	{
		a := RegExReplace(a, "U)[1-8].*p", "", , 1)
	}
	RegExMatch(Name, "[a-zA-Z0-9_].*", K)
	StringReplace, a, a, 0, %K%, 1
	return a
}

SwitchHotKeys(str){ ;  вкл/выкл хоткеев
	global BToggle, BStop, BExit
	if (str = "on"){
		Hotkey %BToggle%, Start, on
		Hotkey %BStop%, Stop, on
		Hotkey %BExit%, Exit, on
	}else{
		Hotkey %BToggle%, Start, off
		Hotkey %BStop%, Stop, off
		Hotkey %BExit%, Exit, off
	}
}return

Exit:
	ExitApp

SettingsGuiClose:
	if BToggle = ""
		BToggle := "vk71"
		IniWrite, vk71, %SaveFile%, Keys, BToggle
	if BStop = ""
		BStop := "vk72"
		IniWrite, vk72, %SaveFile%, Keys, BStop
	if BExit = ""
		BExit := "Esc"
		IniWrite, Esc, %SaveFile%, Keys, BExit ; Переменные с горячими клавишами не должны быть пустыми
	SwitchHotKeys("on")
	Hotkey_Delete("BToggle", Destroy = 1) 
	Hotkey_Delete("BStop", Destroy = 1)
	Hotkey_Delete("BExit", Destroy = 1) ;  см. библиотеку Hotkey
	Gui, Settings: Destroy
	Gui, %hGui%: -Disabled 
	WinActivate, Биндик
	return

Guiclose:
	ExitApp